Einfache "Kugeln Ziehen"-Aufgabe mit Schleife

[Helmi]

Hallo,

vielleicht solltest noch die Eingabe etwas abfangen.

Falls es TryStrToInt in deinem Delphi schon gibt, könntest folgendes machen:

Delphi-Quellcode:

procedure TForm1.KugelnZiehen(Sender: TObject);
 var s,w,fall,zug:integer;
begin
  If (not TryStrToInt(Weiss.Text, w)) or (not TryStrToInt(Schwarz.Text, s)) then
    begin
      ShowMessage('Eingaben prüfen!');  //oder was auch immer
      exit;
    end;
 
repeat

Somit gibts keine unschöne Exception wenn man keine Zahlen in die Edits eingibt.
Oder man verwendet MaskEdit´s statt Edits.

[Edit]
Klammerfehler beseitigt

[yga]

Danke an alle, der Thread kann geschlossen werden, es klappt jetzt alles.
@Helmi: Das ist TryStrToInt ist praktisch, das werd ich auch in Zukunft benutzen, thx.

[Sir Rufo]

ok, ich hatte die Schleife übersehen

Ich habe deinen Ursprungs-Quelltext mal etwas modifiziert und entsprechende Kommentare hinzugefügt

Delphi-Quellcode:

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; // Initialisierung vergessen, ansonsten hat Zug einen Zufallswert

// Wenn die Summe aus s und w < 1 ist, dann hast du eine Endlosschleife, darum

if ( s + w ) < 1 then
  begin
    ShowMessage( 'Ungültige Eingabe für Schwarz und Weiß!' );
    Exit;  // diese procedure wird nun verlassen
  end; 

repeat
 begin
  // randomize;  // Sollte nur einmal in Anwendung aufrufen werden
  // fall:=(Random(2)+1); {Welcher Fall tritt ein?} 
  // Random( 2 ) + 1 ergibt Werte von 1..2 Fall 3 würde also niemals eintreten
  fall := Random( 3 ) + 1; // jetzt gibt es Werte von 1..3 :o)
  Case fall of
   1: begin {Zwei Schwarze Kugeln rausgenommen, eine Schwarze wieder rein}
       if s>=2 then
        begin
        s:=s-1;
        zug:=zug+1;
        end
        // else
      end;
   2: begin {Zwei Weiße Kugeln rausgenommen, eine Schwarze wieder rein}
       if w>=2 then
        begin
        w:=w-2;
        s:=s+1;
        zug:=zug+1;
        end
        // else
      end;
   3: begin {Zwei unterschiedliche Kugeln rausgenommen, eine Schwarze wieder rein}
       if (s>0) and (w>0) then
        begin
        s := s-1;
        zug:=zug+1;
        end
        // else
      end;
 end;
end;
until s+w=1;

  // Textausgabe.Caption:='Züge: '+(inttostr(zug))+' Schwarze Kugeln: '+(inttostr(zug))+' Weiße Kugeln: '+(inttostr(zug))+' ';
  // ist etwas umständlich und du hast immer nur die Variable Zug angegeben, besser so
  // %d ist ein Platzhalter für eine Integer-Zahl
  Textausgabe.Caption := Format( 'Züge: %d Schwarze Kugeln: %d Weiße Kugeln %d', [zug, s, w] );

end;

[sx2008]

Ich hab da grad noch einen grossen Fehler entdeckt:
fall := Random( 3 ) + 1; // jetzt gibt es Werte von 1..3
Das ist aber aus Sicht der Wahrscheinlichkeit nicht korrekt, denn es gibt 4 Fälle:
1: Schwarz + Schwarz
2: Weiss + Weiss
3: Schwarz + Weiss
4: Weiss + Schwarz
Die Wahrscheinlichkeit zweier Kugeln mit unterschiedlicher Farbe beträgt 50% aller Fälle.
So wie es bisher programmiert wurde wäre die Wahrscheinlichkeit nur 1/3.

Achja, der Kommentar bei dem Fall #2 ist wohl durch Copy & Paste entstanden;
   2: begin {Zwei Weiße Kugeln rausgenommen, eine Schwarze wieder rein}

[Sir Rufo]

Nein, denn die Beschreibung der Aufgabe, der Kommentar und der Code besagen, bei 2 Weißen geht eine Schwarze wieder rein.

[angos]

@sx2008. Um der Wahrscheinlichkeit gerecht zu werden müsste man die beiden Kugeln einzeln ziehen. Es sind ja nicht zu jedem Zeitpunkt die gleiche Anzahl Schwarz und Weiße Kugeln vorhanden.


Aber noch eine Frage: Wenn man denn nun den Fall hat->Zwei weiße Kugeln gezogen und vorher noch keine schwarze Kugel gezogen (oder zumindest keine mehr neben dem Topf liegen hat, weil man sie alle wieder reingeworfen hat), wird dann eine neue schwarze Kugel "generiert", oder der Schritt "Eine schwarze wieder in den Topf" übersprungen?


Gruß

[Sir Rufo]

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 Wahrscheinlichkeit welche Kombination gezogen wird, ja stark von dem Verhältnis schwarz zu weiß ab - ich glaube jetzt bin ich auch wach.
Somit ist der Lösungsansatz von einbeliebigername eigentlich der sinnvollste

Delphi-Quellcode:

z1 := Random( Schwarze + Weisse ) + 1; // 1. Kugel ziehen
z2 := Random( Schwarze + Weisse - 1 ) + 1; // 2. Kugel ziehen - ist jetzt 1 Kugel weniger im Gefäß

if ( z1 <= Schwarze ) then
  // Erste Kugel ist Schwarz
  begin
    if ( z2 <= Schwarze - 1 ) then
      Fall := 1 // Beide Kugeln Schwarz
    else
      Fall := 3; // Schwarz und Weiß
  end
else
  // Erste Kugel ist Weiß
  begin
    if ( z2 > Schwarze ) then
      Fall := 2 // Beide Kugeln Weiß
    else
      Fall := 3; // Schwarz und Weiß
  end;

[Blup]

Zitat von Sir Rufo:

Der Wahrscheinlichkeit ist mit den 4 Fällen mehr als Genüge getan, es wird durch das separate Ziehen nicht wahrscheinlicher

Das Problem ist hier, die 4 Fälle sind vor jedem Doppelzug unterschiedlich wahrscheinlich.
Im Extremfall sind zum Beispiel nur schwarze Kugeln im Hut.
Man müsste also vor jedem Doppelzug erst einmal die Wahrscheinlichkeit für jede Kombination ermitteln.

Einfacher zu Programmieren ist auf jeden Fall die Variante, jede Kugel einzeln zu ziehen.
Im Prinzip z.B. so:

Delphi-Quellcode:

function Ziehung: Farbe;
begin
  n := Random(AnzahlSchwarz + AnzahlWeiss);
  if n < AnzahlSchwarze then
  begin
    Result := Schwarz;
    Dec(AnzahlSchwarz);
  end
  else
    Kugel1 := Weiss;
    Dec(AnzahlWeiss);
  end;
end;

procedure Doppelzug;
begin
  Kugel1 := Ziehung;
  Kugel2 := Ziehung;

  if Kugel1 = Kugel2 then
    Inc(AnzahlSchwarz)
  else
    Inc(AnzahlWeiss);
end;

Edit: Sehe auch gerade das "einbeliebigername" das Prinzip schon gepostet hat.

[Sir Rufo]

Es fiel mir - nach dem Kaffee - auch wie Schuppen aus den Haaren
Darum der EDIT in meinem Beitrag