Paskal tilida matematik ifoda va o`zgaruvchilarni tavsiflash

Bar(xl,yl,x2,y2)
– joriy rang va to’idirish usuli bilan to’rtburchak shaklini
hosil qiladi.
Bar3D(xl,yl,x2,y2,Depth,Top)
– joriy rang va to’ldirish usuli bilan
parallelepiped chizadi. Depth o’zgaruvchisi parallelepiped "chuqur"ligini belgilaydi.
Mantiqiy Top o’zgaruvchisining rost qiymatida parallepipedning yuqori yog’on
chiziladi, aks holda chizilmaydi.
M(x1,y1)
N(x2,y2)

---

59
Fillellipse (x,y, Xradius,Vradius)
– ranglangan ellipsni chizadi. Xradius –
ellipsning eni, Yradius esa balandligidir.
Fillpoly(Numpointes,PolyPointes)
– rangli ko’pburchakni chizadi,
NumPointes – ko’pburchak uchlarining soni. PolyPointes – ko’pburchak uchlari
koordinatalari berilgan massiv.
Grafik adapterlarning turiga mos ravishda kompyuter ekranida hosil bo’luvchi
ranglar soni har xil bo’lishi mumkin. Shu sababli ranglarning umumiy soni uchun
Getmaxcolor
o’zgarmasi kiritilgan.
Misol – 6. M(50,50) yuqori chap va N(200,200) pastkti o’ng burchaklari berilgan,
qizil rang bilan bo’yalgan to’rt burchakni chizish dasturi:
uses Graph;
var
Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult <> grOk then
Halt(1);
SetFillStyle(11,12);
Bar(50, 50, 200, 200);
readln;
CloseGraph;
end.
Misol – 7. Rangli, chuqurligi 30ga teng va M(50,50) yuqori chap va N(200,200)
pastkti o’ng burchaklari berilgan parallelepiped chizish dasturi:
uses Graph;
var
Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult <> grOk then
Halt(1);
SetFillStyle(11,15);
Bar3d(50, 50, 200, 200,30, topon);
readln;
CloseGraph;
end.
M(x,y)
xr
yr

---

60
Misol – 8 . Markazi M(200,200) bo’lgan, x koordinatasi bo’yicha 60 va y
koordinatasi bo’yicha 20 riadusli ellips chizish dasturi:
uses Graph;
var
Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult <> grOk then
Halt(1);