Писан Вычислить длину стороны a и площадь S десятиугольника, который или в окружность с радиусом R, или описан вокруг нее - Turbo Pascal

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

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

нужно чтобы программа давала выбор: описан 10-угольник или вписан и потом уже считала

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

textual
Листинг программы
const n = 10;
var r: real;
    c: string;
begin
  repeat
    write('Радиус окружности = ');
    readln(r);
    if r <= 0 then writeln('Введите радиус больше 0.')
  until r > 0;
  write(n, '-угольник вписан в окружность (y/n)? ');
  readln(c);
  if (length(c) > 0) and (c[1] = 'y')
    then writeln('Площадь вписанного ', n, '-угольника = ', n / 2 * r * r * sin(2 * pi / n))
    else writeln('Площадь описанного ', n, '-угольника = ', n * r * r * sin(pi / n) / cos(pi / n));
  readln
end.

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

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