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

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–paralilepid chukurligi. Top–uzgaruvchining kiymati rost bo’lsa paralilepid yuqori qismi (yuzi) chiziladi aks holda chizilmaydi.
F illellipse(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);