Question

Написать программу на Паскале.Заданы длины двух катетов в прямоугольном треугольнике.Найти длину гипотенузы.

Answer 1

var  

   k1, k2 , g: real;

begin

   write('k1=');

   readln(k1);

   write('k2=');

   readln(k2);

   c := sqrt(k1*k1 + k2*k2);

   writeln('g=',g:1:2);

end.

Answer 2

Для вычисления длины гипотенузы прямоугольного треугольника по заданным длинам катетов можно использовать теорему Пифагора: гипотенуза в квадрате равна сумме квадратов катетов. Вот программа на языке Паскаль для решения этой задачи:

pascalCopy code
program HypotenuseCalculation;

var
  cathet1, cathet2, hypotenuse: real;

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

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

  { Вычисляем длину гипотенузы по теореме Пифагора }
  hypotenuse := sqrt(cathet1 * cathet1 + cathet2 * cathet2);

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

Пользователь должен будет ввести длины обоих катетов после запуска программы, а затем программа вычислит и выведет длину гипотенузы с округлением до двух десятичных знаков.