2 сем_1 / 7 лаба / 1 задание / Unit1

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    btn1: TButton;
    lbledt1: TLabeledEdit;
    lbledt2: TLabeledEdit;
    lbledt3: TLabeledEdit;
    procedure btn1Click(Sender: TObject);
    procedure lbledt1Change(Sender: TObject);
    procedure lbledt1KeyPress(Sender: TObject; var Key: Char);
    procedure lbledt2Change(Sender: TObject);
    procedure lbledt2KeyPress(Sender: TObject; var Key: Char);
    procedure lbledt3Change(Sender: TObject);
    procedure lbledt3KeyPress(Sender: TObject; var Key: Char);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var a,b,h,x,y,m,t:real;
begin
begin
  a:=StrToFloat(lbledt1.text);
  b:=strtofloat(lbledt2.text);
  h:=StrToFloat(lbledt3.text);
 if (a<b)and (h>0) then
   begin
    t:=a;
    while t<=b do
    begin
     x:=Sqr(t)-2*t ;
     y:=Sqr(t)+2*t ;
     t:=t+h ;
     lbl1.Caption:=lbl1.Caption+#13+'x='+FloatToStrf(x,ffFixed,5,2)+' '+'y='+FloatToStrf(y,ffFixed,5,2);
      t:=t+H;
    end ;


    end
  else
    Begin
      ShowMessage('Данные не коректны');
        lbledt1.Text:=#0;
        lbledt2.Text:=#0;
        lbledt3.Text:=#0;
        lbl1.caption:=#0;
    end;
end;
end;

procedure TForm1.lbledt1Change(Sender: TObject);
var x :Boolean;
begin
 XEXE(lbledt1.text,lbledt2.text,lbledt3.text,x);
 btn1.Enabled:=x;
end;
procedure TForm1.lbledt1KeyPress(Sender: TObject; var Key: Char);
begin
Sisi (lbledt1.text,key);
end;

procedure TForm1.lbledt2Change(Sender: TObject);
var x:Boolean;
begin
XEXE(lbledt1.text,lbledt2.text,lbledt3.text,x);
 btn1.Enabled:=x
end;
procedure TForm1.lbledt2KeyPress(Sender: TObject; var Key: Char);
begin
Sisi (lbledt2.text,key);
end;

procedure TForm1.lbledt3Change(Sender: TObject);
var x:Boolean;
begin
 XEXE(lbledt1.text,lbledt2.text,lbledt3.text,x);
 btn1.Enabled:=x;
end;
procedure TForm1.lbledt3KeyPress(Sender: TObject; var Key: Char);
begin
Sisi (lbledt3.text,key);
end;
end.