Лаба №5
Объем и площадь поверхности куба со стороной а:
(V = a3 S = 6a2)
procedure TForm1.Button1Click(Sender: TObject);
var
S,V,a:Real;
begin
a:=StrToFloat(Edit1.Text);
V:=exp(3*ln(a));
S:=6*sqr(a);
Label2.Caption:='Объём куба = '+FloatToStr(V);
Label3.Caption:='Площадь куба = '+FloatToStr(S);
end;
Периметр и площадь треугольника со сторонами a, b, c:
P = a + b + c = 2/p
procedure TForm1.Button1Click(Sender: TObject);
var
S,pl,P,a,b,c:Real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
P:= a + b + c;
pl:= 2/p;
S:=sqrt(pl*(pl-a)*(pl-b)*(pl-c));
Label4.Caption:=Label4.Caption+FloatToStr(S);
Label5.Caption:=Label5.Caption+FloatToStr(p);
end;
Переглядів: 265 |