Question

Як обчислити катет та площу прямокутного трикутника за заданими гіпотенузою та другим катетом в Pascal

Answer 1

Ответ:

Объяснение:

Нужно знать:

1) теорему Пифагора: квадрат гипотенузы прямоугольного треугольника равен сумме квадратов его катетов: с² = а² + b², где a и b - катеты, c - гипотенуза. Отсюда катет можно выразить так:

а² = с² - b² или а = √(с² - b²);

2) площадь прямоугольного треугольника равна половине произведения его катетов: S = ab/2, где S - площадь, a и b - катеты;

3) для нахождения квадратного корня используется функция sqrt();

4) для нахождения квадрата выражения используется функция sqr().

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

program treugolnik;

 var a,b,c,s:real;

begin

 write('b='); readln(b);

 write('c='); readln(c);

 a;=sqrt(sqr(c)-sqr(a));

 s:=a*b/2;

 writeln('a=',a:5:2);

 write('s=',s:5:2)

end.