Писан Вычислить длину стороны 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.