Question

Напишіть програму обчислення площі та гіпотенузи прямокутного трикутника, якщо відомі його катети. Паскаль

Answer 1

Объяснение:

за такое задание нужно больше баллов. повезло что я сегодня добрый.

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.

Answer 2

Решение через формулу Герона (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.