Дан произвольный треугольник abc, для которого определен следующий набор характерных параметров: a,b,c - стороны треугольника, альфа, бета, гамма - углы (в градусах), h - высота, опущенная на сторону c, s - площадь, p - периметр треугольника. по заданным параметрам: a,b,h

Var a, b, s, c, alpha, betta, gamma, h, p: real; x, ar, br, gr: real; {alpha, beta. gamma в радианах} begin write('введите длины двух сторон треугольника и площадь: '); readln(a, b, s); x : = 2 * s / (a * b); if x > 1 then writeln('такой треугольник невозможен') else begin gr : = arcsin(x); c : = sqrt(sqr(a) + sqr(b) - 2 * a * b * cos(gr)); p : = a + b + c; ar : = arcsin(a * sin(gr) / c); br : = pi - (ar + gr); h : = b * sin(ar); alpha : = ar * 180 / pi; betta : = br * 180 / pi; gamma : = 180 - (alpha + betta); writeln('решение треугольника'); writeln('a=', a, ', b=', b, ', c=', c: 0: 5); writeln('alpha=', alpha: 0: 2, ', betta=', betta: 0: 2, ', gamma=', gamma: 0: 2); writeln('p=', p: 0: 5, ', h=', h: 0: 5, ', s=', s) end end. тестовое решение: введите длины двух сторон треугольника и площадь: 3 4 6 решение треугольника a=3, b=4, c=5.00000 alpha=36.87, betta=53.13, gamma=90.00 p=12.00000, h=2.40000, s=6

ответ: нижнее спальное место

Объяснение: