Wahrscheinlichkeitsrechnung

[himitsu]

Nja, Formel weiß ich jetzt auf die Schnelle och nicht, aber man kann sich das Ergebnis erstmal schnell ausprobieren.

216 Möglichkeiten mit Zurücklegen,
120 Möglichkeiten ohne Zurücklegen
und 36 Mal mit unterschiedlichen Farben,
womit das richtige Ergebnis 0,3 wäre, was vermutlich dein ODER sein müßte.


Du darfst dir gern 6 Kugeln anmalen und es ausprobieren, aber damit wäre man bei uns etwas fehl am Platz

Delphi-Quellcode:

procedure TForm10.Button1Click(Sender: TObject);
const
  Value: array[0..5] of Integer = (0, 1, 1, 2, 2, 2);
var
  i1, i2, i3: Integer;
begin
  for i1 := 0 to 5 do
    for i2 := 0 to 5 do
      for i3 := 0 to 5 do begin
        Edit1.Tag  := Edit1.Tag + 1;
        Edit1.Text := IntToStr(Edit1.Tag);
        if (i1 = i2) or (i1 = i3) or (i2 = i3) then
          Continue;
        Edit2.Tag  := Edit2.Tag + 1;
        Edit2.Text := IntToStr(Edit2.Tag);
        if (Value[i1] = Value[i2]) or (Value[i1] = Value[i3]) or (Value[i2] = Value[i3]) then
          Continue;
        Edit3.Tag  := Edit3.Tag + 1;
        Edit3.Text := IntToStr(Edit3.Tag);
        Application.ProcessMessages;
      end;
  Edit4.Text := FloatToStr(Edit3.Tag / Edit2.Tag);
end;