Datorgrafika. 3.laboratorijas darbs "Elipse"

Uzprogrammēt elipsi. Datorgrafika, 1 kurss, 3 lab. darbs unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; StringGrid1: TStringGrid; procedure FormCreate(Sender: TObject); procedure WriteTable(k,Pk,Xk,Yk:integer); procedure Elipse(Xc,Yc,Rx,Ry:integer); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;