Question

Помогите решить задачу в паскале под цифрой 8 , пожалуйста. Заранее спасибо.

Answer 1

Const
  pi=3.14159265359;

function Angle(x:real):real;
{ возвращает угол в градусах по значению его синуса }
begin
  Angle:=ArcTan(x/Sqrt(1-x*x))*180/pi;
end;

var
  a,b,c,h,alpha,beta,gamma,S,P:real;
 
begin
  Writeln('Введите a,b,h: '); Read(a,b,h);
  c:=Sqrt(a*a-h*h)+Sqrt(b*b-h*h);
  P:=a+b+c;
  S:=h*c/2;
  alpha:=Angle(h/b);
  beta:=Angle(h/a);
  gamma:=180-alpha-beta;
  Writeln('c=',c:0:5);
  Writeln('alpha=',alpha:0:3,', beta=',beta:0:3,', gamma=',gamma:0:3);
  Writeln('P=',P:0:5,', S=',S:0:5)
end.

Примеры
Введите a,b,h:
5 5 3
c=8.00000
alpha=36.870, beta=36.870, gamma=106.260
P=18.00000, S=12.00000

Введите a,b,h:
5 5 4
c=6.00000
alpha=53.130, beta=53.130, gamma=73.740
P=16.00000, S=12.00000