Чет про программирование / 16) Указатель на функцию

Указатель на функцию

Функции в ЯП Паскаль имеют адрес – адрес ее первой инструкции. Функцию можно вызвать по указателю на нее. Пример использования:

• type

pp = procedure(i: integer);

var

n: integer;

p: pp;

procedure f1(i: integer);

begin

writeln('f1');

end;

procedure f2(i: integer);

begin

writeln('f2');

end;

Begin

readln(n);

if n = 1 then p := @f1;

if n = 2 then p := @f2;

p(10) ;

readln;

end.