Random(2) in schnell

[grenzgaenger]

hab mal 'n kleines demo zusammengebastelt:

Delphi-Quellcode:

program Project2;
{$APPTYPE CONSOLE}
uses sysutils;

var
 a: array[1..15] of integer;
 i, level: integer;
begin
 level := 1;
 randomize;
 while level < 16 do
 begin
  case random(2) of
   0: begin
       inc(a[level]);
       inc(level)
      end;
   1: begin
       if level > 3 then
        dec(level);
      end;
  end;
 end;
 for i := 1 to 15 do
  writeln(i:3,#9,a[i]);
 readln;
end.

optimierungen musste da noch selbst vornehmen, z.b. wenn 'de 'ne monte carlo methode mit implementieren möchtest....