Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

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

.pas
Скачиваний:
3
Добавлен:
18.07.2019
Размер:
1.24 Кб
Скачать
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.


Соседние файлы в папке 2 лаба
  • #
    18.07.2019188 б8Project1.dpr
  • #
    18.07.2019876 б3Project1.res
  • #
    18.07.20195.06 Кб4Unit1.dcu
  • #
    18.07.201951 б3Unit1.ddp
  • #
    18.07.20191.3 Кб3Unit1.dfm
  • #
    18.07.20191.24 Кб3Unit1.pas