Щозирда инсоният фаолиятининг барча жабщаларига шахсий электрон щисоблаш машиналари (шэщм) шахдам =адамлар билан кириб бормо=д

procedure TForm1.Button1Click(Sender:TObject);

var

pol: array[1..3] of TPoint; //uchburchak nuktalari koordinatasi

{TPointqrecord

X:longint;

Y:longint

End;}

Begin

Pol[1].x:=10;

Pol[1].y:=50;

Pol[1].x:=40;

Pol[1].y:=10;

Pol[1].x:=70;

Pol[1].y:=50;

Form1.Canvas.Polygon(pol);

End;

12. 
    Cеktor.
    

Ellips yoki aylana sеktorini hosil qilishda Pie uslubidan foydalaniladi. Pie ning umumiy yozilish formati:

Ob’еkt.Canvas.Pie(x1,y1,x2,y2,x3,y3,x4,y4)

bu yerda

ob’еkt – yoy chiziluvchi ob’еkt nomi;

x1,y1,x2,y2 – hosil bo‘luvchi sеktorni davom ettirib hosil qilinuvchi ellips (aylana)ga tashqi chizilgan to‘g‘ri to‘rtburchakning mos koordinatalari;

x3,y3 – sеktorning boshlang‘ich nuqtasi;

x4,y4 – sеktorning tugash nuqtasi.

5.6-rasm.