Question

Даны катеты прямоугольного треугольника. Найти его периметр. На экран должно быть выведсно: Введите катет а-> 5 Введите катет Ь ->-7 Периметр прямоугольнаго треугольника -> 20.602
ИНФОРМАТИКА, НАДО В ПАСКАЛЕ ВСЕ СДЕЛАТЬ ​

Answer 1

Код программы:

var a, b:integer;

c:real;

begin

 writeln('Введите катет a');

 readln(a);

 writeln('Введите катет b');

 readln(b);

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

 writeln('Периметр прямоугольного треугольника = ', abs(a)+abs(b)+c);

end.

Answer 2

Ответ:

program test;

var a,b: real;

begin

write('Введите катет а -> ');

readln(a);

write('Введите катет b -> ');

readln(b);

writeln;

writeln('Периметр прямоугольного треугольника ->  ',a + b + sqrt(sqr(a)+sqr(b)):0:3)

end.

Объяснение:

Периметр - сумма длин всех сторон.

Две из трех сторон (катеты) известны, а третью сторону (гипотенузу) всегда можно найти через теорему Пифагора.

c = $\sqrt{a^{2}+b^{2} }$

sqrt - квадратный корень числа

sqr - квадрат числа

Форматированный вывод. Через двоеточие (:) указывается ширина поля вывода (количество знакомест). Если мы выводим вещественное (дробное) число, то вторым числом через двоеточие (:) указывается количество знаков после запятой. Если после первого двоеточия (:) указать 0, то программа автоматически выделит необходимое место.

Защиты от ввода отрицательных чисел (как в примере) нет.

Можно заменить строку writeln('Периметр прямоугольного треугольника ->  ',a + b + sqrt(sqr(a)+sqr(b)):0:3) на writeln('Периметр прямоугольного треугольника ->  ',abs(a) + abs(b) + sqrt(sqr(a)+sqr(b)):0:3)

abs - модуль числа