Напишіть програму обчислення площі та гіпотенузи прямокутного трикутника, якщо відомі його катети. Паскаль
Ответы
Объяснение:
за такое задание нужно больше баллов. повезло что я сегодня добрый.
program triangle;
var
a, b, c, s : real;
begin
write('Enter the length of the first cathetus: ');
readln(a);
write('Enter the length of the second cathetus: ');
readln(b);
c := sqrt(sqr(a) + sqr(b));
writeln('The hypotenuse is: ', c:0:2);
s := (a * b) / 2;
writeln('The area is: ', s:0:2);
end.
Решение через формулу Герона (PascalABC.NET):
program x;
uses crt;
var
a, b, c, hp, s: real;
begin
write('Введите длину первого катета: '); readln(a);
write('Введите длину второго катета: '); readln(b);
c := sqrt(a**2 + b**2);
hp := (a + b + c) / 2;
s := sqrt( hp * (hp - a) * (hp - b) * (hp - c) );
writeln('Длина гипотенузы равна: ', c:0:2);
writeln('Площадь треугольника равна: ', s:0:2);
end.