Вычислить стороны прямоугольного треугольника - Pascal

Формулировка задачи:

Вычислить стороны прямоугольного треугольника, если известны его площадь и периметр.


textual

Код к задаче: «Вычислить стороны прямоугольного треугольника - Pascal»

var
  p,s,d,a1,a2,b,c,a:real;
begin
  write('P S=');readln(p,s);
  d:=sqr(p*p+4*s)-32*p*p*s;
  a1:=((p*p+4*s)-sqrt(d))/4/p;
  a2:=((p*p+4*s)+sqrt(d))/4/p;
  if a1>0 then a:=a1 else a:=a2;
  b:=2*s/a;
  c:=sqrt(a*a+b*b);
  writeln('a=',a:0:2,' b=',b:0:2,' c=',c:0:2);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.200 из 5

Источник