Добавил:
Xer1t
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
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.
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.