Вычислить площадь и периметр правильного N-угольника, описанного около окружности радиуса R - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Вычислить площадь и периметр правильного N-угольника, описанного около окружности радиуса R (рассмотреть N-целого типа, R-вещественного типа).

Решение задачи: «Вычислить площадь и периметр правильного N-угольника, описанного около окружности радиуса R»

textual
Листинг программы
begin
  var r := ReadLnReal('Радиус вписанной окружности: R =');
  var n := ReadLnInteger('Число сторон правильного N-угольника: N =');
  var a := tan(Pi/n)*r*2;
  WriteLn('Длина стороны: a = ', a);
  WriteLn('Площадь: S = ', r*n*a/2);
  WriteLn('Периметр: P = ', a*n);
end.

Объяснение кода листинга программы

  1. Программа считывает радиус вписанной окружности и число сторон правильного N-угольника с помощью функций ReadLnReal и ReadLnInteger соответственно.
  2. Затем программа вычисляет длину стороны правильного N-угольника, используя формулу a = tan(Pi/n)r2.
  3. Далее программа выводит длину стороны правильного N-угольника с помощью функции WriteLn.
  4. Затем программа вычисляет площадь правильного N-угольника, используя формулу S = rna/2, и выводит результат с помощью функции WriteLn.
  5. Наконец, программа вычисляет периметр правильного N-угольника, используя формулу P = a*n, и выводит результат с помощью функции WriteLn.

Оцени полезность:

12   голосов , оценка 4 из 5
Похожие ответы