Как решить эту задачу в программе паскаль Даны катеты прямоугольника а и в. Найти гипотенузу и периметр.

Как обычная задача на применение теоремы Пифагора.

Формулы:

• гипотенуза: $c = \sqrt{a^2 + b^2}$

• периметр прямоугольного треугольника: $P = a + b + c$

В Паскале удобно использовать sqr(x) для возведения в квадрат и sqrt для корня.

Простой вариант (Free Pascal / Turbo Pascal):

pascal
Копировать код
program HypotenusePerimeter;
var
  a, b, c, p: Double;
begin
  write('a = '); readln(a);
  write('b = '); readln(b);
  if (a <= 0) or (b <= 0) then
  begin
    writeln('Катеты должны быть положительными.');
    halt(1);
  end;
  c := sqrt(sqr(a) + sqr(b));
  p := a + b + c;
  writeln('Гипотенуза c = ', c:0:6);
  writeln('Периметр P = ', p:0:6);
end.

Комментарии:

• Тип Double даст нормальную точность для вещественных чисел.

• sqr(x) быстрее и точнее, чем x*x для вещественных на старых компиляторах, и читается ясно.

• Формат :0:6 печатает 6 знаков после запятой; при желании можно изменить.

Пример:

makefile
Копировать код
a = 3
b = 4
Гипотенуза c = 5.000000
Периметр P = 12.000000