Question

Создайте в среде Delphi программу, которая вsчисляет периметр и плошадь квадрата равная стороне а. ​

Answer 1

Ответ:

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,c,p,S:real;

begin

a:=2;b:=2;c:=3;

if (abs(a-b)<c)and(c<(a+b))then

begin

p:=(a+b+c)/2;

S:=sqrt(p*(p-a)*(p-b)*(p-c));

edit1.text:=floattostr(s);

end else showmessage('не треугольник');

end;

Объяснение: