Egyébként ez egy dobókocka szimuláló program, mely megszámolja, hogy xy dobásban hányszor volt 1-es, 2-es...6-os.
Program kocka;
uses crt;
var n,szam,a,b,c,d,e,f:byte;
BEGIN
clrscr;
randomize;
write('Kockadobások száma: ');
readln(n);
repeat
szam:=random(6)+1;
case szam of
1:inc(a);
2:inc(b);
3:inc(c);
4:inc(d);
5:inc(e);
6:inc(f);
end;
dec(n);
until n=0;
writeln('1-2-3-4-5-6');
writeln('a:3, b:3, c:3, d:3, e:3, f:3');
readln;
END.
Tehát ennek a folyamatábrája kellene nagyon, valaki ha megrajzolná és belinkelné nagyon megköszönném.
FC Barcelona! Més que un Club!
