Question

Написать программу и процедуру в паскале, вызываемую из основной программы для вычисления гипотенузы и площади прямоугольного треугольника, если известны его катеты.

Answer 1

// PascalABC.NET

procedure Tri(a, b: real; var c, S: real);

begin

 c := Sqrt(a * a + b * b);

 S := a * b / 2

end;

begin

 var (a, b) := ReadReal2('Введите длины катетов:');

 var c, S: real;

 Tri(a, b, c, S);

 Print('Гипотенуза', c, '   площадь', S)

end.

Answer 2

Конечно, вот пример программы на Pascal, которая вычисляет гипотенузу и площадь прямоугольного треугольника по заданным катетам:

pascalCopy code
program TriangleCalculator;

var
  a, b: real;

procedure CalculateHypotenuseAndArea(a, b: real; var hypotenuse, area: real);
begin
  hypotenuse := sqrt(a*a + b*b);
  area := 0.5 * a * b;
end;

var
  hypotenuse, area: real;

begin
  writeln('Enter the length of the first cathetus:');
  readln(a);
  
  writeln('Enter the length of the second cathetus:');
  readln(b);
  
  CalculateHypotenuseAndArea(a, b, hypotenuse, area);
  
  writeln('Hypotenuse: ', hypotenuse:0:2);
  writeln('Area: ', area:0:2);
end.

Этот код определяет основную программу TriangleCalculator, которая сначала запрашивает длины катетов у пользователя, затем вызывает процедуру CalculateHypotenuseAndArea для вычисления гипотенузы и площади треугольника. Результаты выводятся на экран.