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....