Контрольная ОАИ(основы алгоритмизации программирования)

Лабораторная работа №1
2.
При x=-4.5, y=0.7510-4, z=0.84510-2s=-55.6848.
Листингпрограммы:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x, y, z, s: real;
begin
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
z:=StrToFloat(Edit3.Text);

s:=power(8+sqr(abs(x-y))+1,1/3)/(x*x+y*y+2)-exp(abs(x-y))*power(tan(z)*tan(z)+1,x);
Edit4.Text:=FloatTostr(s);
end;

end.

Лабораторная работа №2

2.

Листингпрограммы:
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
RadioGroup1: TRadioGroup;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedureFormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
x,y,f,s :extended;
begin
Memo1.Clear;
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
case RadioGroup1.ItemIndex of
0 : f:=sin(x);
1 : f:=cos(x);
2 : f:=tan(x);
end;
if f > 0 then s:=ln(x)+power(f*f+y,3)
else
if f