2 сем / 2 лаба / Unit1

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    edt1: TEdit;
    edt2: TEdit;
    l1: TLabel;
    btn1: TButton;
    lbl2: TLabel;
    lbl3: TLabel;
    l2: TLabel;
    l3: TLabel;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
const a = 3; b =5;
var x, y, z, z1, z2, z3:real;
begin
  x:=StrToFloat(edt1.Text);
  y:=StrToFloat(edt2.Text);      //считываем значения x и y
  z1:=(exp(ln(y)*x)-(sqr(y)*y))/(exp(ln(x)*y)+sqr(sqr(x))); //задаём 3 параметра z
  z2:=(exp(ln(x)*y)-(sqr(x)*x))/(exp(ln(y)*x)+sqr(sqr(y)));
  z3:=(sqr(y)-sqr(y)*y)/(exp(ln(2)*y)+16);
  z:=a*z1+b*z2+z3;         //пишем общее уравнение z
  l1.Caption:='Результат в обычном формате z=' + FloatToStr(z); //Вывод результата
  l2.Caption:='Результат в экспоненциальном формате z=' + FloatToStrF(z, ffExponent,5,13);
  l3.Caption:='Результат с округлением до трёх знаков после запятой z=' + FloatToStrF(z,ffFixed,10,3);
end;

end.