ВВЕРХ
ВНИЗ

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

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

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

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

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
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.

Гипотенуза и периметр прямоугольного треугольника в Pascal

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




Яндекс.Метрика