Question

На паскале Разработайте программу запрашивающую у пользователя длины обеих катетов прямоугольного треугольника и выводящую на экран гипотенузу по формуле Пифагора.

Answer 1

// PascalABC.NET 3.2, сборка 1359 от 11.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a,b:real;
  Write('Введите через пробел длины катетов: '); Read(a,b);
  Writeln('Длина гипотенузы равна ',sqrt(a*a+b*b))
end.

Пример
Введите через пробел длины катетов: 15.6 18
Длина гипотенузы равна 23.819319889535

Answer 2

Конечно, вот пример программы на языке Pascal, который запрашивает у пользователя длины обоих катетов прямоугольного треугольника и выводит на экран длину гипотенузы, используя формулу Пифагора:

program CalculateHypotenuse;

var
  cathetus1, cathetus2, hypotenuse: real;

begin
  writeln('Введите длину первого катета: ');
  readln(cathetus1);

writeln('Введите длину второго катета: ');
  readln(cathetus2);

// Формула Пифагора: c^2 = a^2 + b^2, где c - гипотенуза, a и b - катеты
  hypotenuse := sqrt(cathetus1 * cathetus1 + cathetus2 * cathetus2);

writeln('Длина гипотенузы: ', hypotenuse:0:2);
end.

Эта программа сначала запрашивает у пользователя длины обоих катетов, затем использует формулу Пифагора \(c^2 = a^2 + b^2\) для вычисления длины гипотенузы, где \(c\) - гипотенуза, \(a\) и \(b\) - длины катетов. Результат выводится на экран с помощью функции `writeln`.

Не забудьте, что в Pascal используется тип `real` для вещественных чисел, и функция `sqrt` используется для вычисления квадратного корня.