Лаба 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.