Напиши строку завершения работы программы

Question

Информатика: Напиши строку завершения работы программы

знания436 · Accepted Answer

Function ArcCos(x:real):real;
var t:real;
begin
     t:=ArcTan(Sqrt(1-x*x)/x);
     if x<0 then ArcCos:=t+Pi
     else ArcCos:=t
end;

var
a,b,c,p,p2,s,alpha,beta,gamma,h:real;
begin
Read(a,b,p);
c:=p-a-b;
p2:=p/2;
s:=sqrt(p2*(p2-a)*(p2-b)*(p2-c));
alpha:=ArcCos((b*b+c*c-a*a)/(2*b*c));
beta:=ArcCos((a*a+c*c-b*b)/(2*a*c));
h:=a*Sin(beta);
alpha:=alpha*180/Pi;
beta:=beta*180/Pi;
gamma:=180-alpha-beta;
Writeln('c=',c);
Writeln('alpha=',alpha:0:2,', beta=',beta:0:2,', gamma=',gamma:0:2);
Writeln('S=',s,', h=',h)
end.

MOGZ ответил