8–Mashg’ulot. Paskalning grafik imkoniyati. Tasvirli matnlar bilan ishlash. Maqsad: Paskal tilida Paskalning grafik imkoniyatini, Tasvirli matnlar bilan ishlashni yozilishi va ularning qo’llanishini o’rganish

circle(100,100,50);
Readln;
CloseGraph;
end.
Miso1 – 3. a(10,10) yuqori chap va b(100,100) pastki o’ng uchlarga ega bo’lgan
to’rtburchakni chizish dasturi:
uses Crt, Graph;
var
Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult <> grOk then halt(100);
rectangle(10,10,100,100);
Readln;
CloseGraph;
end.
Misol – 4. a(100,200) mos aylana markazi, 90 va 200 yoy burchaklarining
boshlang’ich va oxirgi qiymatlari va 100 radiusli yoy chizish dasturi:
uses Crt, Graph;
var
Gd, Gm: Integer;

---

58
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult <> grOk then halt(100);
arc(100,220,90,200,100);
Readln;
CloseGraph;
end.
Misol – 5. 3 qirrali, uchlar koordinatalari A(X:150; Y:100), B(X:100; Y:100), C(X:
150; Y: 150)) bo’lgan ko’pburchakni chizish dasturi:
uses Graph;
const
Triangle: array[1..4] of PointType = ((X: 150;
Y: 100), (X: 100; Y:100),(X: 150;
Y: 150), (X: 150; Y: 100));
var Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult <> grOk then
Halt(1);
DrawPoly(4, Triangle);
Readln;
CloseGraph;
end.
 SHAKLLAR CHIZISH.
Setcolor(color) fiunksiyasi chiziqlarning rangini belgilagani kabi funksiya
Setiillstyle(StyIe,Color) – shakllarni ranglash va to’ldirish usulini belgilaydi. Bu
yerda u 0 dan 12 gacha qiymat qabul qilib, to’ldirish usulini belgilaydi.
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