Задать вопрос
17 сентября, 09:02

Даны действительные положительные числа a, b, c, которые задают длины сторон треугольника и угол между ними. Напишите программу (Паскаль), позволяющую найти длину третьей стороны треугольника и два остальных угла.

+5
Ответы (1)
  1. 17 сентября, 12:35
    0
    Var

    a, b, c, aa, ab, ac : real;

    function Arcsin (x : real) : real; begin Arcsin : = Arctan (x/Sqrt (1-sqr (x))) ; end;

    //магия. в паскале нет функции арксинус или арккосинус, поэтому приходится выражать через арктангенс.

    begin

    read (a, b, ac) ;

    ac : = ac * pi / 180; / / перевод в радианы

    c : = sqrt (sqr (a) + sqr (b) - 2 * a * b * cos (ac)) ;

    aa : = arcsin (a * sin (ac) / c) ;

    ab : = pi - aa - ac;

    writeln (a, ' ', b, ' ', c) ;

    writeln (aa * 180 / pi, ' ', ab * 180 / pi, ' ', ac * 180 / pi) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Даны действительные положительные числа a, b, c, которые задают длины сторон треугольника и угол между ними. Напишите программу (Паскаль), ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы