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

Fillellipse(x,y,f1,f2) 
- ranglangan elleps chizadi. f1-elepsning eni, f2-
elepsning balandligi.
Fillpoly(n,k)
-rangli ko’pburchak chizadi. n-ko’pburchak uchlari soni, k-
ko’pburchak uchlari koordinatalari berilgan massiv. 
Floodfill(x,y,border)
–joriy rang va buyash usulida 
border
ko’rsatilgan 
rang bilan chegaralangan sohani buyab beradi. x,y –sohadagi ixtiyoriy nuqtadagi 
koordinatasi. 
2-Misol Ekran kengligida to’g’ri turtburchak va uning ichida feruza rangli ichida kizil rang 
bilan tuldirilgan eleps chizish dasturi quyidagicha bo’ladi. 
program ellipes; 
uses graph; 
var gd, gm: integer; 
begin 
gd:=detect; 
initgraph(gd, gm, ‘ ‘ ); 
setfillstyle(7, blue); 
bar(0,0,getmaxx, getmaxy); 
setcolor(3); 
setfillstyle(11, lightred); 
setfillstyle(11,lightred); 
fillellipse(getmaxx div 2, getmaxy div 2, 200,90); 
readln; 
closegraph; 
end. 
Yuqorida keltirilagan operatorlar va yordamchi suzlardan foydalanib, to’g’ri Chiziq, aylana, 
yoy, ellips, ellipsli yoy chizish dasturini keltiramiz. Bu dastur Turbo Pascal tizimida quyidagi 
ko’rinishda bo’ladi. 
program mashq3; 
uses graph; 
var x,y,r:integer; 
begin 
initgraph(x,y, ' '); 
setcolor(9); lineto(640,480); 
setcolor(12); line(500,200,200,400); 
setcolor(4); circle(325,225,200); 
setcolor(5); arc(325,225,0,180,100); 
setcolor(6); pieslice(220,300,90,280,50); 
setcolor(15); ellipse(200,100,0,360,30,50);