Mm ivaat nosirov doc

Bar(x1,y1,x2,y2) - жорий ранг ва штирхлар билан тугритуртбурчак чизиш. Bar3d(x1,y1,x2,y2,depth,top)–жорий ранг ва тулдириш усули билан парал-лилепид чизади. Depth –паралилепид чукурлиги. Top –узгарувчининг киймати рост булса паралилепид юкори кисми (юзи) чизилади акс холда чизилмайди.
кг х Fillellipse(x,y,f1,f2)-рангланган эллепс чизади. f1-элепснинг
\ Р\ эни, f2-элепснинг баландлиги.
И Fillpoly(n,k)-рангли купбурчак чизади. n-купбурчак учлари
! сони, k-купбурчак учлари координаталари берилган массив.
^с —— Ч Floodfill(x,y,border)–жорий ранг ва буяш усулида border
^N - курсатилган ранг билан чегараланган сохани буяб беради. x,y -
сохадаги ихтиёрий нуктадаги координатаси.
2-Мисол Экран кенглигида тугри туртбурчак ва унинг ичида феруза ранг-ли ичида кизил ранг билан тулдирилган элепс чизиш дастури куйидагича була­ди.
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;
www.qmii.uz/e-lib
57
clograph; end
Юкорида келтирилаган операторлар ва ёрдамчи сузлардан фойдаланиб, тугри чизик, айлана, ёй, эллипс, эллипсли ёй чизиш дастурини келтирамиз. Бу дастур Turbo Pascal тизимида куйидаги куринишда булади.