2 сем_1 / 3 лаба / 3.1 / Unit1

unit Unit1;

interface

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

type
TForm1 = class(TForm)
le1: TLabeledEdit;
le2: TLabeledEdit;
btn1: TButton;
l1: TLabel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function drob1(y,x:real):real;
var t1, t2:real;
begin
t1:=exp(ln(y)*x)-(sqr(y)*y);
t2:=exp(ln(x)*y)+sqr(sqr(x));
drob1:=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); // считывание значения x из Edit1
y:=StrToFloat(le2.Text); //считывание значения y из Edit2
z1:=drob1(y,x); //вызовы функции и
z2:=drob1(x,y); //присвоение её значений
z3:=drob1(y,2); //промежуточным переменным
z:=a*z1+b*z2+z3; //итоговые вычисления
l1.Caption:='z='+ FloatToStr(z); //вывод значения z в Label3
end;

end. //конец модуля проекта