Даны радиус круга и сторона квадрата. У какой фигуры больше площадь? Напишите программу на языке Паскаль.

Для решения задачи нужно найти площади круга и квадрата и сравнить их.

1. Площадь круга вычисляется по формуле:
   $S_{\text{круг}} = \pi \times R^2$,
   где $R$ — радиус круга.

2. Площадь квадрата вычисляется по формуле:
   $S_{\text{квадрат}} = a^2$,
   где $a$ — длина стороны квадрата.

Программа на языке Паскаль для решения этой задачи будет выглядеть следующим образом:

pascal
Копировать код
program CompareAreas;
uses math;  {Для использования константы Pi}
var
  R, a: real;  {Переменные для радиуса круга и стороны квадрата}
  area_circle, area_square: real;  {Переменные для площадей}
begin
  {Ввод данных}
  write('Введите радиус круга: ');
  readln(R);
  write('Введите сторону квадрата: ');
  readln(a);
  {Вычисление площади круга и квадрата}
  area_circle := Pi * R * R;  {Площадь круга}
  area_square := a * a;  {Площадь квадрата}
  {Сравнение площадей}
  if area_circle > area_square then
    writeln('Площадь круга больше.')
  else if area_circle < area_square then
    writeln('Площадь квадрата больше.')
  else
    writeln('Площади круга и квадрата равны.');
end.

Пояснение работы программы:

1. В программе используется стандартная константа Pi из библиотеки math, которая задает значение числа Пи.

2. Программа сначала принимает ввод радиуса круга и стороны квадрата.

3. Затем вычисляются площади обеих фигур.

4. После этого программа сравнивает площади и выводит результат: какая фигура имеет большую площадь, либо если площади равны.

Таким образом, программа позволяет пользователю сравнить площади круга и квадрата, исходя из заданных параметров.