Thema: Delphi Ziegenproblem

Einzelnen Beitrag anzeigen

TForm1

Registriert seit: 11. Jan 2014
128 Beiträge
 
FreePascal / Lazarus
 
#27

AW: Ziegenproblem

  Alt 6. Mär 2014, 18:30
So, jetzt wollte ich es mal wissen und habe mir ein kleines Programm gebastelt.
Ich gehe davon aus, dass der Gewinn immer hinter dem 1. Tor versteckt ist. Wenn sich der Computer dann eines der Tore (zufällig) auswählt, hat er mehrere Möglichkeiten. In dem Fall, dass er das erste Tor erwischen sollte gibt es 2 Möglichkeiten: Wenn er sich umentscheidet verliert er, wenn nicht gewinnt er. Bei den beiden anderen Tore ist es genau andersherum. Entscheidet er sich um, gewinnt er; entscheidet er sich nicht um, verliert er. Das Ergebnis ist daher wenig überraschend.
Delphi-Quellcode:
Randomize;
  zaehler1a:= 0;//zählt die Siege mit Umentscheidung
  zaehler1b:= 0;//verloren mit Umentscheidung
  zaehler2a:= 0;//Sieg ohne Umentscheidung
  zaehler2b:= 0;//verloren ohne Umentscheidung
  for i:=1 to MAX do//MAX ist in dem Fall 1000
  begin
    auswahl1:=random(3);
    case auswahl1 of //Erste Auswahl aus 3 Toren
      0: begin
           auswahl2:=random(2); //Auswahl, ob Umentscheiden oder nicht
           if auswahl2 = 0 then zaehler1b:= zaehler1b+1 else zaehler2a:= zaehler2a+1;
         end;
      1: begin
           auswahl2:= random(2);
           if auswahl2 = 0 then zaehler1a:= zaehler1a+1 else zaehler2b:= zaehler2b+1;
         end;
      2: begin
           auswahl2:= random(2);
           if auswahl2 = 0 then zaehler1a:= zaehler1a+1 else zaehler2b:= zaehler2b+1;
         end;
    end;
  end;
 writeln('Siege mit Umentscheidung:'+IntToStr(zaehler1a));
 writeln('Verloren mit Umentscheidung:'+IntToStr(zaehler1b));
 writeln('Siege ohne Umentscheidung:'+IntToStr(zaehler2a));
 writeln('Verloren ohne Umentscheidung'+IntToStr(zaehler2b));
Ergebnis:
Siege mit Umentscheidung:318
Verloren mit Umentscheidung:166
Siege ohne Umentscheidung:185
Verloren ohne Umentscheidung331
Das ist jetzt zwar nur eine Simulation ohne das Öffnen der Tore, da es ja nur die vorgegebenen Möglichkeiten gibt, aber im "richtigen" Spiel würde das Ergebnis auch nicht anders ausfallen.

Wenn es jetzt wirklich drauf ankommt bei nur 3 Toren, ob man sich nun anders entscheidet oder nicht, bleibt jedem selbst überlassen, ich würde mich auf jeden Fall umentscheiden
Der Fehler sitzt immer vor dem Computer...
  Mit Zitat antworten Zitat