Қarshi muҳandislik-iқtisodiyot instituti “Axborot texnologiyalari va matematik modellashtirish” kafedrasi assistenti J

Black-qora=0

Blue-ko’k=1

Green-yashil=2

Gyan-ochiq ko’k(feruza)=3

Red-qizil=4

Magente-gulovi=5

Brown-malla=6

LightGray-kulrang=7

DarkGray-o’tkir kulrang=8

LightBlue-havo rang=9

LightGreen-tiniq yashil=10

Lightgyan-tiniq feruza=11

LightRed-tiniq qizil=12

LightMegenta-tiniq gulovi(malina)=13

Yellow-sariq=14

White-oq=15
Misol:

Markazi (90,90) raduisi 70 bo’lgan aylana chizish dasturi:

program aylana;

uses graph;{grafik modulini qo’shish}

var gd,gm:integer;

begin

gd:=detect; initgraph(gd,gm, ’ ’);

circle(90,90,70);

readln;

closegraph;

end.
Pascal tilida shaqllarni buyash usullari

SetFillStyle(style,color);- shaqllarni ranglash va buyash usulini urnatadi. Buyash usuli style 0 dan 12 gacha kiymat qabul qiladi va ular quyidagilar:

0 – sohani fon rangi bilan tuldirish

1 – sohani berilgan rang bilan tuldirish

2 – kalin gorizantal Chiziqlar bilan tuldirish

3 – ingichka ogma Chiziqlar bilan tuldirish

4 – yugon ogma Chiziqlar bilan tuldirish ///

5 –yugon ogma Chiziqlar bilan tuldirish \\\

6 – ogma yullar bilan tuldirish

7 – turtburchaqlar bilan tuldirish

8 – ogma turtburchak bilan tuldirish

9 – zich ogma shtirxlar bilan tuldirish

10 – kam nuqtalar bilan tuldirish

11 – ko’p nuqtalar bilan tuldirish

12 – foydalanuvchi aniqlaydigan buyash usuli.

Bu rakamlar urniga usullarning inglizcha so’zlarini yozsa ham bo’ladi.

Masalan: Setfillstyle(close dot fill,lihgtred) yoki setfille style(11.12), yani teng kuchli.

Quyidagi operator, protsedura va funktsiyalar orqali shaqllar chizish mumkin.