Question

Задача по информатике: даны стороны прямоугольника и квадрата определить площадь какой фигуры больше. Сделать паскаль!Мне через 20мин идти... Должно быть сделано. Помогите пожалуйста))

Answer 1

var a,b,c,d,s1,s2,p:real;

begin

 writeln('Введите стороны треугольника');

 readln(a,b,c);

 writeln('Введите сторону квадрата');

 readln(d);

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

 s1:=sqrt(p/(p-a)*(p-b)*(p-c));//считаем площадь треугольника по полупериметру

 s2:= d*d;//площадь квадрата

 if s1>s2 then writeln('Площадь треугольника больше');

 if s2>s1 then writeln('Площадь квадрата больше');

end.

Answer 2

Конечно, я помогу вам решить задачу по информатике и написать код на языке Паскаль для определения площади прямоугольника и квадрата. Вот пример кода:

pascalCopy code
program CalculateArea;

var
  rectangleLength, rectangleWidth, squareSide, rectangleArea, squareArea: real;

begin
  { Ввод данных }
  writeln('Введите длину прямоугольника:');
  readln(rectangleLength);
  writeln('Введите ширину прямоугольника:');
  readln(rectangleWidth);
  writeln('Введите сторону квадрата:');
  readln(squareSide);

  { Расчет площади прямоугольника и квадрата }
  rectangleArea := rectangleLength * rectangleWidth;
  squareArea := squareSide * squareSide;

  { Вывод результатов }
  writeln('Площадь прямоугольника: ', rectangleArea:0:2);
  writeln('Площадь квадрата: ', squareArea:0:2);

  { Определение, площадь какой фигуры больше }
  if rectangleArea > squareArea then
    writeln('Площадь прямоугольника больше.')
  else if rectangleArea < squareArea then
    writeln('Площадь квадрата больше.')
  else
    writeln('Площадь прямоугольника и квадрата равны.');

end.

Скопируйте приведенный код в среду программирования на языке Паскаль (например, Free Pascal) и запустите его. Вводите значения сторон прямоугольника и квадрата, и программа выдаст результат сравнения площадей этих фигур. Удачи с задачей! Если у вас возникнут дополнительные вопросы, не стесняйтесь спрашивать.