Hallo,
ich komme bei folgender Aufgabe einfach nicht weiter. Ich habe ein Würfelprogramm, und
wenn mit dem Würfel w1 zweimal hintereinander die gleiche Zahl kommt, soll die Anzahl der dafür benötigten Werte ausgegeben werden.
Das Programm in den Rohform funktoniert, aber ich weiß nicht, wie ich die Aufgabenstellung umsetzen soll.
So sieht die betreffende Prozedur bisher aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
anzahl:=0;
ergebnis:=0;
repeat
w1.wuerfeln();
anzahl:=anzahl+1;
ergebnis:=w1.augenLesen();
w1.wuerfeln();
anzahl:=anzahl+1;
until ergebnis=w1.augenLesen();
label1.caption:='Versuche:'+inttostr(anzahl);
end;
Das ist aber falsch, da nun lediglich geprüft wird, ob
Wurf 1 + Wurf 2 oder
Wurf 3 + Wurf 4 zusammenpasst, nicht jedoch, ob
Wurf 2 + Wurf 3 zusammenpasst.
Wie kann ich die Aufgabe realisieren?