Решить пример ** языке Pascal Желательно, чтобы в каждой строчке был комментарий. Вариант...

Question

Решить пример на языке Pascal
Желательно, чтобы в каждой строчке был комментарий.
Вариант 14, а не тот, что обведен.

---

Answer 1

Gamma=180-alfa-beta
b=h/sin(alfa/180*Pi)
a=h/sin(beta/180*Pi)
c=(a^2+b^2-2abcos(gamma/180*Pi)
P=a+b+c
S=1/2ch
---------
var
gamma,alfa,beta,a,b,c,h,S,P,Pi:real;

begin
//Pi
Pi:=3.14159265359;
//исходные данные
alfa := 90.0;
beta := 45.0;
h := 1.0;

//gamma
gamma := 180.0-alfa-beta;

//b
b:= h/sin(alfa/180.0*Pi);
//a
a:= h/sin(beta/180.0*Pi);

//c
c:= sqrt(a*a+b*b-2*a*b*cos(gamma/180.0*Pi));
//P
P:= a+b+c;

//S
S:= c*h/2.0;

end.