Решить пример на языке Pascal
Желательно, чтобы в каждой строчке был комментарий.
Вариант 14, а не тот, что обведен.
Желательно, чтобы в каждой строчке был комментарий.
Вариант 14, а не тот, что обведен.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.