Прямоугольный треугольник

На этой странице дано решение примеров Begin12 из задачника Абрамяна. Здесь рассматривается решение задачи о прямоугольном треугольнике.

Begin12. Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу c и периметр P:
c = (a² + b²)^1/2, P = a + b + c.

var
  a, b, c, P: real;

begin
  writeln('Введите два катета прямоугольного треугольника:');
  readln(a, b);
  P := a + b; { <-- сумма катетов }
  c := sqrt(sqr(a) + sqr(b)); { <-- гипотенуза с }
  P := P + c; { <-- периметр P }
  writeln('Результат:');
  writeln(' c = ', c:0:2);
  writeln(' P = ', P:0:2);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

Рекомендую также посмотреть задачу Boolean32 на странице Определение типа треугольника по его сторонам, где решаем задачи о разных типах треугольника.