Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу c, периметр P и площадь S. (Pascal)

Гипотенуза находится по теореме Пифагора:

\[c=\sqrt{a^2+b^2}\]

Периметр:

\[P=a+b+c\]

Площадь:

\[S=\frac{ab}{2}\]

Программа на Pascal:

program Triangle;
var a, b, c, P, S: real;
begin
  readln(a, b);
  c := sqrt(a * a + b * b);
  P := a + b + c;
  S := a * b / 2;
  writeln('c = ', c:0:2);
  writeln('P = ', P:0:2);
  writeln('S = ', S:0:2);
end.

0 0 Пожаловаться