Для каждого варианта разработать алгоритм вычисления выражения - Turbo Pascal

Формулировка задачи:

Для каждого варианта разработать алгоритм вычисления выражения, заданного в первом столбце, введя функцию пользователя, описанную во втором столбце.

Решение задачи: «Для каждого варианта разработать алгоритм вычисления выражения»

Листинг программы

function s(x,y:real):real;
begin 
  S:=x*y/2;
end;
begin
  writeln('площадь четырехугольника равна ',S(3,2)+S(2,7)+S(7,3)+S(3,3):0:2);
  readln;
end.

Объяснение кода листинга программы

В данном коде объявлена функция s, которая принимает два аргумента типа real и возвращает значение типа real. Внутри функции происходит расчет площади четырехугольника по формуле x * y / 2 и результат присваивается переменной S. Затем в блоке begin-readln описывается основной алгоритм программы. Выводится сообщение «площадь четырехугольника равна », после чего вызываются четыре функции s, передавая им аргументы 3, 2; 2, 7; 7, 3; 3, 3 соответственно. Результат каждого вызова функции s сохраняется в отдельную переменную и затем суммируется. В конце программы с помощью оператора readln производится чтение ввода пользователя и завершение работы программы.