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
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.
Do'stlaringiz bilan baham: |
