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;

Объяснение:

Answer 2

Для создания программы на Delphi, которая вычисляет периметр и площадь квадрата, можно использовать следующий код:

delphiCopy code
program CalculateSquare;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  SideLength, Perimeter, Area: Double;

begin
  // Введите длину стороны квадрата
  Write('Введите длину стороны квадрата: ');
  ReadLn(SideLength);

  // Вычислить периметр и площадь квадрата
  Perimeter := 4 * SideLength;
  Area := SideLength * SideLength;

  // Вывести результаты
  WriteLn('Периметр квадрата: ', Perimeter);
  WriteLn('Площадь квадрата: ', Area);

  ReadLn;
end.

Скопируйте этот код в среду Delphi, создайте новый проект и запустите его. Программа запросит у вас ввести длину стороны квадрата, а затем вычислит периметр и площадь квадрата, и выведет результат на экран.