program Sechser_Wuerfeln; {$APPTYPE CONSOLE} {13.12.2003 R.Weigel} {Dieses Programm simuliert das Spiel: Würfle solange bis du einen Sechser würfelst. Die Anzahl der Würfe bis zum ersten Sechser wird gezählt. Vermutung : 6 Würfe braucht man durchschnittlich bis zum ersten Sechser. Um die Vermutung zu bestätigen wird das Spiel oft gespielt, und die Anzahl der benötigten Würfe gemittelt.} {Anm.: Dieses Programm ist nicht so einfach wie ich beim Aufgabenstellen dachte. Wers rausgekriegt hat: gut!} uses SysUtils; function Wuerfe_bis_Sechs():integer; var Augenzahl,Anzahl:integer; begin Anzahl:= 0; Augenzahl:= 0; {Initialisierung} Repeat Augenzahl:=random(6)+1; Anzahl:= Anzahl +1; Until Augenzahl = 6; Wuerfe_bis_Sechs := Anzahl; end; {--- Beginn Hauptprogramm ---} const SpielAnzahl = 1000; var Summe,i ,tmp_bis_Sechs:integer; begin randomize; Summe := 0; writeln('Dieses Programm simuliert das Spiel: Wuerfle solange,'); writeln('bis du einen Sechser wuerfelst.'); writeln('Die Anzahl der Wuerfe bis zum ersten Sechser wird gezaehlt.'); writeln('Die Frage ist: Wieviele Wuerfe braucht man '); writeln('durchschnittlich bis zum ersten Sechser.'); writeln('Um die Frage zu klaeren wird ',SpielAnzahl,' mal das Spiel gespielt.'); writeln('Druecke Return um die Simulation zu starten.'); readln; for i:= 1 to SpielAnzahl do begin tmp_bis_Sechs:= Wuerfe_bis_Sechs(); writeln(tmp_bis_Sechs,' Wuerfe bis zur Sechs.'); Summe:= Summe + tmp_bis_Sechs; writeln('Es werden durchschnittlich ',Summe/i:3:1,' Wuerfe bis zur Sechs gebraucht'); end; writeln; writeln('Endergebnis:'); writeln('------------'); writeln('Es werden durchschnittlich ',Summe/Spielanzahl:3:1,' Wuerfe bis zur Sechs gebraucht'); readln; end.