Programmas kods
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
Tmain = class(TForm)
editXc: TEdit;
editYc: TEdit;
editR: TEdit;
butDraw: TButton;
butClr: TButton;
labelXc: TLabel;
labelYc: TLabel;
labelR: TLabel;
tableGrid: TStringGrid;
butAxis: TButton;
procedure butDrawClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure drawCircle(Xc, Yc, r : integer);
procedure writeToGrid(Pn : real; n, Xk, Yk : integer);
private
{ Private declarations }
public
{ Public declarations }
end;
…
