Hallo
ich habe für den Mathe Unterricht ein Programm programmiert um
das Experiment 2 geworfener Würfel darzustellen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var m,Wa,Wb,W: integer;
begin
for m:=1 to strtoint(Edit1.text) do
begin
randomize;
Wa:=random(6)+1;
randomize;
Wb:=random(6)+1;
W:=Wa+Wb;
Stringgrid2.cells[Wa,Wb]:=inttostr(strtoint(Stringgrid2.cells[Wa,Wb])+1);
Stringgrid1.cells[W-2,1]:=inttostr(strtoint(Stringgrid1.cells[W-2,1])+1);
http://img3.imagebanana.com/img/c5kx.../Unbenannt.JPG
Wie auf dem Bild zu sehen ist, hat die 7 einen relativ geringen Wert obwohl sie den höchsten haben müsste.
Woran kann das liegen?
Vielen Dank für eure Hilfe =)