random процедур Опции

[SkyBoy]

как сделать random процедур??

[klem4]

Хм, в жизни ничего подобного не делал, но вышло занятно.

uses crt;
type
  TProcType = Procedure();

    procedure A(); begin writeln('A') end;
    procedure B(); begin writeln('B') end;

var
  procs: Array [0..1] of Pointer = (@A, @B);
  i: Integer;
begin
  Randomize;
  for i := 1 to 10 do TProcType(procs[Random(2)])();
end.