Помогите решить задачу, очень срочно !!! Дан произвольный треугольник ABC, для которого...

Question

Помогите решить задачу, очень срочно !!!
Дан произвольный треугольник ABC, для которого определен следующий набор характерных параметров: a,b,c - стороны треугольника, альфа, бета, гамма - углы (в градусах), h - высота, опущенная на сторону c, S - площадь, P - периметр треугольника. По трем заданным параметрам вычислить все остальные возможные сочетания параметров: h,с,а.
Замечание: входные (исходные) и выходные значения углов представить в градусной мере.

---

Answer 1

Var h,c,c1,c2,pi,s,a,b,P,al,be,ga,ga1,ga2:double;Beginal:=30;pi:=3.1415926;h:=10;c:=25;b:= h/sin(al*pi/180);s:= h *c/2;C2:= b* cos(al*pi/180);c1:= c - c2;ga1:= ArcTan(c1/h)*180/pi;ga2:= 90 - al;ga:= ga1 + ga2;a:= c1/sin(ga1*pi/180);P:= a + b + c;writeln('b =',b:4:1,' a =', a:5:1,' P =', P:5:1,' s =', s:5:1);writeln('ga1 =', ga1:6:4, ' ga2 =', ga2:6:4, ' ga =', ga:6:4);end.

Comments

var h,c,c1,c2,pi,s,a,b,P,al,be,ga,ga1,ga2:double; Begin al:=30;pi:=3.1415926; h:=10; c:=25; b:= h/sin(al*pi/180); s:= h *c/2; C2:= b* cos(al*pi/180); c1:= c - c2; ga1:= ArcTan(c1/h)*180/pi; ga2:= 90 - al; ga:= ga1 + ga2; a:= c1/sin(ga1*pi/180); P:= a + b + c; writeln('b =',b:4:1,' a =', a:5:1,' P =', P:5:1,' s =', s:5:1); writeln('ga1 =', ga1:6:4, ' ga2 =', ga2:6:4, ' ga =', ga:6:4); end.