Вычислить стороны прямоугольного треугольника - 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.

Объяснение кода листинга программы

Объявление переменных:
- p - переменная для хранения значения периметра прямоугольного треугольника.
- s - переменная для хранения значения площади прямоугольного треугольника.
- d - переменная для хранения значения дискриминанта.
- a1 - переменная для хранения значения первого катета.
- a2 - переменная для хранения значения второго катета.
- b - переменная для хранения значения второго катета.
- c - переменная для хранения значения гипотенузы.
- a - переменная для хранения значения катета.
Ввод значений периметра и площади:
- Выводится запрос на ввод значений P S=, пользователь вводит их и они сохраняются в переменных p и s соответственно.
Вычисление переменной d:
- Значение переменной d вычисляется по такой формуле: d = sqr(p * p + 4 * s) - 32 * p * p * s, где sqr - это возведение в квадрат.
Вычисление переменных a1 и a2:
- Значения переменных a1 и a2 вычисляются по формулам: a1 = ((p * p + 4 * s) - sqrt(d)) / 4 / p a2 = ((p * p + 4 * s) + sqrt(d)) / 4 / p
Выбор значения переменной a:
- Если значение a1 больше нуля, то переменной a присваивается значение a1, иначе переменной a присваивается значение a2.
Вычисление переменной b:
- Значение переменной b вычисляется по формуле: b = 2 * s / a.
Вычисление переменной c:
- Значение переменной c вычисляется как квадратный корень из суммы квадратов значений переменных a и b (типа треугольника: (a^2 + b^2) = c^2).
Вывод результата:
- Выводятся значения сторон прямоугольного треугольника a, b и c с точностью до двух знаков после запятой.