Question

Наберите на Паскаль программу вычисления гипотенузы по теореме Пифагора. Даю 50 баллов. Заранее спасибо

Answer 1

Ответ:

Program Gipotenuza;

var a,b,c:real;

begin

 writeln('Введите сторону a: ');

 readln(a);

 writeln('Введите сторону b: ');

 readln(b);

 c:=sqrt(a*a+b*b);

 writeln('Гипотенуза равна: ', c);

end.

Answer 2

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

pascalCopy code
program PythagoreanTheorem;

var
  a, b, c: real;

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

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

  c := sqrt(a*a + b*b);

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

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