Question

Составьте программу нахождения площади прямоугольного треугольника в виде процедуры и функции в Паскале. ​ function​

Answer 1

Функция должна возвращать значение. Пусть катеты a и b, тогда она должна вернуть a * b / 2. Проверки входных параметров я не провожу, считая, что они корректны:

Код (Pascal):

function area(a, b: real): real;

begin

 area := a * b / 2;

end;

begin

 write(area(2, 2)) { должно вывести 2 }

end.

Процедура не возвращает значение. Чтобы она смогла-таки как-то сообщить основной программе результат, используем аргумент, перед которым указываем var.

Код (Pascal):

procedure area(a, b: real; var c: real);

begin

 c := a * b / 2;

end;

var S: real;

begin

 area(2, 2, S);

 write(S) { должно вывести 2 }

end.

Answer 2

Ответ:

function Triangle(a,b:real):real;

begin

  result:=(a*b)/2;

end;

Answer 3

Для нахождения площади прямоугольного треугольника в виде процедуры и функции в языке Pascal, вы можете использовать следующий код:

pascalCopy code
program CalculateTriangleArea;

var
  Base, Height, Area: Real;

procedure CalculateArea(Base, Height: Real; var Area: Real);
begin
  Area := 0.5 * Base * Height;
end;

function CalculateAreaFunction(Base, Height: Real): Real;
begin
  Result := 0.5 * Base * Height;
end;

begin
  Write('Введите длину основания: ');
  ReadLn(Base);

  Write('Введите высоту: ');
  ReadLn(Height);

  CalculateArea(Base, Height, Area);
  WriteLn('Площадь треугольника (процедура): ', Area:0:2);

  Area := CalculateAreaFunction(Base, Height);
  WriteLn('Площадь треугольника (функция): ', Area:0:2);
end.

В этом коде используется процедура CalculateArea для вычисления площади треугольника и функция CalculateAreaFunction, которая также выполняет тот же расчет, но возвращает результат как значение функции. Обратите внимание, что результат выводится с точностью до двух знаков после запятой (Area:0:2).