Даны действительные положительные числа a, b, c, которые длины сторон треугольника и угол между ними. напишите программу (паскаль), позволяющую найти длину третьей стороны треугольника и два остальных угла.
226
281
Ответы на вопрос:
Var a, b, c, aa, ab, ac : real; function arcsin (x : real) : real; begin arcsin : = arctan(x/sqrt(1-sqr(; 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.
Популярно: Информатика
-
Kazanji13.02.2021 05:42
-
valiullin199809.05.2023 23:50
-
привет98514.07.2021 03:02
-
8928616350313.09.2021 22:59
-
Цнрер14.04.2023 10:28
-
Роннилав05.07.2020 19:08
-
ksusha02050419.09.2022 17:32
-
6262024332319.09.2021 23:20
-
vinerxasanzyan07.04.2022 16:57
-
daniilkartel26.04.2020 20:47