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

Узнай цену своей работы

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

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

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

textual
Листинг программы
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.

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

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

Оцени полезность:

10   голосов , оценка 4.2 из 5
Похожие ответы