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