Einzelnen Beitrag anzeigen

BAMatze

Registriert seit: 18. Aug 2008
Ort: Berlin
759 Beiträge
 
Turbo Delphi für Win32
 
#9

Re: Anfänger probiert kniffel und kommt nicht weiter

  Alt 23. Mär 2009, 14:22
[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
  Mit Zitat antworten Zitat