лабораторная работа / лабораторные работы по LAZARUS / спо 1 лаба лазариус

unit Unit1;

{$mode objfpc}{$H+}

Interface

uses

Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,

Buttons;

Type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

var

x,y,z,a,b: extended;

begin

x:=StrToFloat(Edit1.Text);

y:=StrToFloat(Edit2.Text);

z:=StrToFloat(Edit3.Text);

a:=(2*cos(x-(Pi/6)))/(0.5+sin(y)*sin(y));

b:=1+(z/(3+(Exp(2*ln(z)))/5));

Memo1.Lines.Add('X = '+Edit1.Text+' Y = '+Edit2.Text+

' Z = '+Edit3.Text);

Memo1.Lines.Add(' a = '+FloatToStr(a));

Memo1.Lines.Add(' b = '+FloatToStr(b));

end;

initialization

{$I unit1.lrs}

end.