Question

Составить программу для паскаль,которая вычисляет гипотенузу прямоугольного треугольника с каттами a b

Answer 1

Program z1;
var a,b,c:real;
begin
read (a,b);
c:=sqrt(sqr(a)+sqr(b));
writeln(c);
end.

Answer 2

Программа на языке Pascal, которая вычисляет гипотенузу прямоугольного треугольника с катетами a и b, может выглядеть следующим образом:

program HypotenuseCalculation;

var
  a, b, c: real;

begin
  writeln('Введите длину первого катета: ');
  readln(a);
  
  writeln('Введите длину второго катета: ');
  readln(b);
  
  c := sqrt(a*a + b*b); // Вычисление гипотенузы по теореме Пифагора
  
  writeln('Гипотенуза треугольника равна: ', c:0:2); // Вывод результата с округлением до 2 знаков после запятой
  
  readln;
end.

В данной программе используется переменная `a` для хранения значения первого катета, переменная `b` для хранения значения второго катета и переменная `c` для хранения значения гипотенузы.

Сначала пользователю предлагается ввести значения катетов с помощью функции `readln`. Затем происходит вычисление гипотенузы по формуле `c = sqrt(a*a + b*b)`, где `sqrt` - функция для вычисления квадратного корня.

Наконец, результат выводится на экран с помощью функции `writeln`. Результат округляется до 2 знаков после запятой с помощью формата `:0:2`.

В конце программы используется функция `readln` для того, чтобы программа не закрывалась сразу после вывода результата и пользователю было удобно ознакомиться с результатом.