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

PutPixel(Random(600), Random(900), 12);
delay(50)

---

56
until KeyPressed;
Readln;
CloseGraph;
end.
Getpixcel(x,y) – ekrandagi x,y koordinatali nuqta rangining raqamini
aniqlaydi.
Setcolor(color) – chiziqlarning rangini belgilaydi. Color ga – 0 dan 15 gacha
qiymat berilib, 16 xil rangni hosil qiiadi. 0 –Black (qora), 15 –White (oq), ya’ni
raqamlarning o’rniga ranglarning inglizcha nomlari ham yozilishi mumkin.
Line(x1,y1,x2,y2) – x1,y1 nuqtadan x2,y2 nuqtagacha kesma hosil qiladi:
Circle(x,y,R) – x,y markazga ega va r radiusli aylanani chizadi.
Rectangle(xl,yl,x2,y2) – xI ,1y yuqori chap va x2,y2 pastki o’ng uchlarga ega
bo’lgan to’rtburchakni chizadi.
Arc(x,y,Stang,Endang,Radius) – yoy chizadi. x,y mos aylana markazi. Stang
va endang yoy burchaklarining boshlang’ich va oxirgi qiymatlari. Radius aylana
radiusi.
DrawPoly(NumPointes,PolyPointes) – ko’pburchakni chizadi. numPointes –
ko’pburchak uchlari soni. PolyPointes – ko’pburchak uchlari koordinatalari berilgan
massiv.
B(x2,y2)
A(x1,y1
)
M(x1,y1)
N(x2,y2)
M(x,y)
r
stang
endang
M(x,y)
r

---

57
Grafik rejimida ekranning eni va balandligi bo’yicha nuqtalarning soni
adapterning turiga bog’liq bo’lib, turlicha bo’ladi. Gorizontal va vertikal yo’nalish
bo’yicha nuqtalar soni uchun o’zgarmaslar getmaxx va getmaxy kiritilgan.
Misol –1. Ekranni ikki uchburchakka ajratuvchi chiziqning dasturi:
uses Crt, Graph;
var
Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult <> grOk then halt(100);
line(0,0,getmaxx,getmaxy);
Readln;
CloseGraph;
end.
Misol –2. M(100,100) markazli 50 radiusli aylani chizish dasturi:
uses Crt, Graph;
var
Gd, Gm: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult <> grOk then halt(100);