Paskal tilida matematik ifoda va o`zgaruvchilarni tavsiflash

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);
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.