Mm ivaat nosirov doc

Arc(x,y,z,t,R) –оператори ёй чизади, бу ерда (х,у) марказий нукта, z- ёй-нинг бошлангич бурчак нуктаси, t- охирги бурчак нуктаси, R-ёй радиуси.
PieSlice(x,y,z,t,R) оператори, оркали (х, у) маркази, R радиусли t бурчакли сектор чизиш мумкин
www.qmii.uz/e-lib
55
Ellipse(x1,y1,x2,y2,z1,z2) –эллипс ва эллипсли ёй чизилади. Бу ерда (х1,у1) эллипснинг маркази, х2 ва у2 бурчак катталиги, z1 ва z2 кичик ва катта радиус-лар
Rectangle(x1,y1,x2,y2); -(x1,y1) юкори чап ва (x2,y2) паски унг учларга эга булган тугри туртьурчак чизади
Drawpoly(k,m);- учларининг сони k та булган ва учларининг координата-лари берилган массив m булгани купбурчак чизади
SetColor(n)- чизикларни рангли чикишини таъминлайди. Бу ерда n ранг-нинг номери
Setbkcolor(n);- фонни ранглаш функцияси
Ранглар куйидагича номерланади;
Black-кора=0
Blue-кук=1
Green-яшил=2
Gyan-очик кук(феруза)=3
Red-кизил=4
Magente-гулови=5
Brown-малла=6
LightGray-кулранг=7
DarkGray-уткир кулранг=8
LightBlue-хаво ранг=9
LightGreen-тиник яшил=10
Lightgyan-тиник феруза=11
LightRed-тиник кизил=12
LightMegenta-тиник гулови(малина)=13
Yellow-сарик=14
White-oк=15
Мисол;
Маркази (90,90) радуиси 70 булган айлана чизиш дастури.
program aylana;
uses graph;{график модулини кушиш} var gd,gm:integer; begin gd:=detect; initgraph(gd,gm, ’ ’); circle(90,90,70); readln; closegraph; end.
3. Pascal тилида шаклларни буяш усуллари SetFillStyle(style,color);- шаклларни ранглаш ва буяш усулини урнатади. Буяш усули style 0 дан 12 гача киймат кабул килади ва улар куйидагилар:

0. 
   – сохани фон ранги билан тулдириш
   
1. 
   – сохани берилган ранг билан тулдириш
   

www.qmii.uz/e-lib
56

2. 
   - калин горизантал чизиклар билан тулдириш
   
3. 
   - ингичка огма чизиклар билан тулдириш
   
4. 
   - йугон огма чизиклар билан тулдириш ///
   
5. 
   -йугон огма чизиклар билан тулдириш \\\
   
6. 
   - огма йуллар билан тулдириш
   
7. 
   - туртбурчаклар билан тулдириш
   
8. 
   - огма туртбурчак билан тулдириш
   
9. 
   - зич огма штирхлар билан тулдириш
   

10. 
    - кам нукталар билан тулдириш
    
11. 
    - куп нукталар билан тулдириш
    
12. 
    - фойдаланувчи аниклайдиган буяш усули.
    

Бу ракамлар урнига усулларнинг инглизча сузларини ёзса хам булади. Масалан: Setfillstyle(close dot fill,lihgtred) ёки setfille style(11.12), яьни тенг кучли.
Куйидаги оператор, процедура ва функциялар оркали шакллар чизиш мумкин.