Напишите программу вычисления площади круга, если известна длина окружности. Pascal

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

1. Длина окружности круга $C$ связана с его радиусом $r$ через формулу:

   $$C = 2 \pi r$$

   где $\pi$ — это математическая константа (приблизительно 3.1416).

2. Из этой формулы можно выразить радиус $r$:

   $$r = \frac{C}{2\pi}$$

3. Площадь круга $S$ вычисляется по формуле:

   $$S = \pi r^2$$

Подставляем выражение для радиуса в формулу площади:

Упростив, получаем:

Теперь, зная длину окружности $C$, можно вычислить площадь круга.

Пример программы на языке Pascal:

pascal
program CircleArea;
uses math;

var
  C, S: real;

begin
  writeln('Введите длину окружности:');
  readln(C);
  
  S := (C * C) / (4 * Pi);
  
  writeln('Площадь круга равна: ', S:0:2);
end.

Эта программа сначала запрашивает у пользователя длину окружности, затем вычисляет площадь круга с помощью формулы $S = \frac{C^2}{4\pi}$, и выводит результат на экран с точностью до двух знаков после запятой.