Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
26. Jan 2012
Es fiel mir - nach dem Kaffee - auch wie Schuppen aus den Haaren :mrgreen:
Darum der EDIT in meinem Beitrag :)
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
26. Jan 2012
Ganz einfach, die Anzahl der schwarzen Kugeln im Gefäß wird erhöht.
Es ist ein theretisches Konstrukt mit der Annahme, dass die schwarzen Kugeln ausserhalb in beliebiger Anzahl verfügbar sind
EDIT: Der Wahrscheinlichkeit ist mit den 4 Fällen mehr als Genüge getan, es wird durch das separate Ziehen nicht wahrscheinlicher ;)
EDIT2: Wenn ich es mir recht überlege, dann hängt die...
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
26. Jan 2012
Nein, denn die Beschreibung der Aufgabe, der Kommentar und der Code besagen, bei 2 Weißen geht eine Schwarze wieder rein.
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
25. Jan 2012
ok, ich hatte die Schleife übersehen :)
Ich habe deinen Ursprungs-Quelltext mal etwas modifiziert und entsprechende Kommentare hinzugefügt
procedure TForm1.KugelnZiehen(Sender: TObject);
var s,w,fall,zug:integer;
begin
w:=StrToIntDef( Weiss.text, 0 ); // Wenn keine Zahl im Edit-Feld,
s:=StrToIntDef( Schwarz.text, 0 ); // dann wird der Default-Wert genommen, hier 0
zug := 0; //...
Forum: Object-Pascal / Delphi-Language
by Sir Rufo,
25. Jan 2012
Random funktioniert genau so, wie man es dir erklärt hat, jedoch solltest du auf die Problematik hingewiesen werden, dass du mit deiner Logik auch dann weiße Kugeln aus dem Topf ziehst, wenn dort eigentlich keine mehr drin sind.
Somit hast du in deiner Logik den Copperfield-Faktor ;)
EDIT: Random( x ) liefert Werte von 0 bis x-1