[quote="jesus.or.christ"]
Delphi-Quellcode:
...
procedure TFormSpiel.ButtonWuerfelClick(Sender: TObject);
begin
w[1] := random(5) + 1;
w[2] := random(5) + 1;
w[3] := random(5) + 1;
w[4] := random(5) + 1;
w[5] := random(5) + 1;
...
end;
end.
Ich denke hier kommt der Einwand her, den einige formuliert haben. Ich hab mal ein kleines Programm geschrieben und diese Zeilen getestet. Hatte ebenso wie einige Vorredner das Gefühlt, dass niemals eine 6 gewürfelt wird und dies ist auch wirklich der Fall.
Hier der Code den ich genommen hab:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
randomize;
Memo1.Clear;
for i:= 1
to 100
do Memo1.Lines.Add(inttostr(random(5)+1));
end;
end.
Ich weiß, ist ziemlich simpel aber es wurde bei den 100 Testwürfen nicht ein mal eine 6 gewürfelt. So wie einige und ich richtig vermutet haben. Um auch 6 zu wirfeln muss das wie folgt heißen:
w[2] := random(6) + 1;
MfG
BAMatze