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

Rectangle(x1,y1,x2,y2); 
-(x1,y1) yuqori chap va (x2,y2) paski ung uchlarga ega bo’lgan 
to’g’ri turturchak chizadi 
Drawpoly(k,m);
- uchlarining soni k ta bo’lgan va uchlarining koordinatalari berilgan massiv 
m bo’lgani ko’pburchak chizadi 
SetColor(n)- 
Chiziqlarni rangli chiqishini ta‘minlaydi. Bu yerda n rangning nomeri 

---

117 
Setbkcolor(n);-
fonni ranglash funktsiyasi 
Ranglar quyidagicha nomerlanadi; 
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. 
Bar(x1,y1,x2,y2)
- joriy rang va shtirxlar bilan to’g’riturtburchak chizish. 
Bar3d(x1,y1,x2,y2,depth,top)
–joriy rang va tuldirish usuli bilan parallilepid chizadi. 
Depth
–

---

118 
paralilepid chukurligi. 
Top
–uzgaruvchining kiymati rost bo’lsa paralilepid yuqori qismi (yuzi) 
chiziladi aks holda chizilmaydi.