Mavzuning dolzarbligi i-bob. Asosiy tushunchalar

procedure TForml.Button2Click(Sender: TObject);
var
pol: array[1..3] of TPoint;
begin
pol[l].x := 10;
polfl].y := 50;
pol[2].x := 40;
pol[2].y := 10;
pol[3].x := 70;
pol[3].y := 50;
Form l .Canvas.Polygon(pol);
end;

Sektor
Ellips yoki aylana sektori pie usuli bilan chizilib, chaqirish instruksiyasi quyidagi umumiy ko‘rinishga ega:
Object. Canvas.Pie(xl,yl,x2,y2,x3,y3,x4,y4)
Bu yerda:
• x 1, y 1, x 2, y 2 — ellips yoki aylana parametrlari;
• x 3, y 3, x 4, y 4 — sektor chegarasini tashkil qiluvchi to‘g‘ri chiziqlar, oxirgi nuqtalar koordinatalari.

Nuqta
Canvas obyektining pixels xossasi tipidagi ikki olchovli massiv bo‘lib. har bir soha nuqtasining rangi haqidagi ma’lumotni o‘z ichiga oladi. Pixels xossasidan foydalanib ixtiyoriy nuqta rangini o‘zgartirish. ya’ni nuqta chizish mumkin. Misol uchun:
Form 1.Canvas.Pixels [10,10]:=clRed
Instruksiyasi soha nuqtasini qizil rangga bo‘yaydi.
Q uyida k e ltirilg an d astu r pixels xossasidan foydalanib, y = 2- Sinx • e |- funksiyasi grafigini chiqaradi.

Unit Unitl; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogos, StdCtrls;
Type
TForml = class(TForm) Buttonl: TButton;
procedure ButtonlClick(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end;
Var
Forml: TForml; implementation
{$R *.dfm}
Function f(x:real):real; Begin f:=2*Sin(x)*exp(x/5) ; end;
Procedure GrOfFunc;