Лабораторная работа: Создание расчетных приложений и программы поиска в базе данных в среде Delphi 7 0

Задача 1

procedure TForm4.Button1Click(Sender: TObject);

const pi=3.14;

var H,R,S: real;

begin

H:=StrToFloat(Trim(MaskEdit1.Text));

R:=StrToFloat(Trim(MaskEdit2.Text));

S:=pi*R*(R+SQRT(SQR(H)+SQR(R)));

MaskEdit3.Text:=FloatToStr(S);

Memo1.Lines.Add('площадьповерхностиконуса S равна' +MaskEdit3.Text);

end;

Задача 2

procedure TForm5.Button1Click(Sender: TObject);

var n,a,b,c:Real;

var M:Boolean;

begin

n:=StrToFloat(Trim(MaskEdit1.Text));

a:=StrToFloat(Trim(MaskEdit2.Text));

b:=StrToFloat(Trim(MaskEdit3.Text));

c:=StrToFloat(Trim(MaskEdit4.Text));

if trunc(n/2)+2=n

THEN

M:=True

ELSE

M:=False;

MaskEdit5.Text:=boolToStr(M);

Memo1.Lines.Add('Если M=1, то это однополостный гиперболоид, в противном случае нет' +MaskEdit5.Text);

end;

Задача 3

// Вводмассива

procedure TForm6.Button1Click(Sender: TObject);