Добавил:
Xer1t
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
le1: TLabeledEdit;
le2: TLabeledEdit;
btn1: TBitBtn;
l1: TLabel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure drob(y:real;x:Real; var d:real);
var t1, t2:real;
begin
t1:=exp(ln(y)*x)-(sqr(y)*y);
t2:=exp(ln(x)*y)+sqr(sqr(x));
d:=t1/t2;
end;
procedure TForm1.btn1Click(Sender: TObject);
const a=3; b =5;
var x, y, z, z1, z2, z3:real;
begin
x:=StrToFloat(le1.Text); //считывание данных
y:=StrToFloat(le2.Text);
drob(y,x,z1); //вызов процедуры
drob(x,y,z2);
drob(y,2,z3);
z:=a*z1+b*z2+z3; //вычисление результата
l1.Caption:='z='+ FloatToStr(z); //вывод результата
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;
type
TForm1 = class(TForm)
le1: TLabeledEdit;
le2: TLabeledEdit;
btn1: TBitBtn;
l1: TLabel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure drob(y:real;x:Real; var d:real);
var t1, t2:real;
begin
t1:=exp(ln(y)*x)-(sqr(y)*y);
t2:=exp(ln(x)*y)+sqr(sqr(x));
d:=t1/t2;
end;
procedure TForm1.btn1Click(Sender: TObject);
const a=3; b =5;
var x, y, z, z1, z2, z3:real;
begin
x:=StrToFloat(le1.Text); //считывание данных
y:=StrToFloat(le2.Text);
drob(y,x,z1); //вызов процедуры
drob(x,y,z2);
drob(y,2,z3);
z:=a*z1+b*z2+z3; //вычисление результата
l1.Caption:='z='+ FloatToStr(z); //вывод результата
end;
end.