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

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

.pas
Скачиваний:
5
Добавлен:
18.07.2019
Размер:
976 б
Скачать
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.
Соседние файлы в папке 3.2
  • #
    18.07.2019188 б5Project1.dpr
  • #
    18.07.2019876 б5Project1.res
  • #
    18.07.20194.71 Кб5Unit1.dcu
  • #
    18.07.201951 б5Unit1.ddp
  • #
    18.07.20191.13 Кб5Unit1.dfm
  • #
    18.07.2019976 б5Unit1.pas