Лаба 7 вар 9 / 1 / Unit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Sint;

type
TForm1 = class(TForm)
LabeledEdit1: TLabeledEdit;
LabeledEdit2: TLabeledEdit;
LabeledEdit3: TLabeledEdit;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
procedure LabeledEdit1Change(Sender: TObject);
procedure LabeledEdit2Change(Sender: TObject);
procedure LabeledEdit2KeyPress(Sender: TObject; var Key: Char);
procedure LabeledEdit3Change(Sender: TObject);
procedure LabeledEdit3KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b,h,x,y,t:real;
const m=5;
begin
a:=StrToFloat(LabeledEdit1.Text);
b:=StrToFloat(LabeledEdit2.Text);
h:=StrToFloat(LabeledEdit3.Text);
t:=a;
while t<=b do
begin
x:=m*Cos(t);
y:=m*Sin(t);
Label1.Caption:=Label1.Caption+#13+'x='+FloatToStr(x)+#9+'y='+FloatToStr(y);
t:=t+h;
end;
end;

procedure TForm1.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
begin
Control(Key, LabeledEdit1.Text);
end;

procedure TForm1.LabeledEdit1Change(Sender: TObject);
begin
Button1.Enabled:=Control2(LabeledEdit1.Text)
and Control2(LabeledEdit2.Text)
and Control2(LabeledEdit3.Text);
end;

procedure TForm1.LabeledEdit2Change(Sender: TObject);
begin
Button1.Enabled:=Control2(LabeledEdit1.Text)
and Control2(LabeledEdit2.Text)
and Control2(LabeledEdit3.Text);
end;

procedure TForm1.LabeledEdit2KeyPress(Sender: TObject; var Key: Char);
begin
Control(Key, LabeledEdit2.Text);
end;

procedure TForm1.LabeledEdit3Change(Sender: TObject);
begin
Button1.Enabled:=Control2(LabeledEdit1.Text)
and Control2(LabeledEdit2.Text)
and Control2(LabeledEdit3.Text);
end;

procedure TForm1.LabeledEdit3KeyPress(Sender: TObject; var Key: Char);
begin
Control(Key, LabeledEdit3.Text);
end;

end.