Есть ответ 👍

Найти периметр и площадь прямоугольного треугольника если известны радиус описанной окружности и острый угол в паскале

215
388
Посмотреть ответы 2

Ответы на вопрос:


Pascalabc.net 3.4.2, сборка 1857 от 05.11.2018 внимание! если программа не работает, обновите версию!

begin

  var (x, ad) : = readreal2('введите радиус и угол в градусах: ');

  var ar : = degtorad(ad);

  var c : = 2 * x;

  var (a, b) : = (c * sin(ar), c * cos(ar));

  var (p, s) : = (a + b + c, a * b);

  writeln('p=', p: 0: 3, ', s=', s: 0: 4)

end.

введите радиус и угол в градусах: 23 37.5 p=110.497, s=1021.9495

Это ж изи 864 строк

Популярно: Информатика