Функции в Pascal!! Помогите написать.

Question

Надо написать какую-нибудь свою функцию на Pascal, помогите, пожалуйста! Допустим функция которая складывает два числа х и y или любые другие.

Сергей Денисеня · Accepted Answer

function add(x, y: real): real;
begin add := x + y end;

Павел Терехов · Answer

function f( fnc: TFuncPtr; a,b: real; st: integer ): real;
var x, dx, s: real;

begin

dx := (b-a) / (st+1); x := a; s := 0;

while (x <= b) do begin s := s + dx * fnc(x); x := x + dx; end;

f := s;

end;

Сладкая Девочка · Answer

Когда уже Паскаль чем-то совершенней заменят...