Ich bin grade dabei Mastermind zu programmieren, also ein Spiel bei dem man einen Zahlencode erraten muss.
der Zahlencode besteht aus 4 Zahlen zwischen 1 und 6. Das Problem besteht nun darin, dass mir nichts einfällt, wie ich verhindern kann, dass eine der Zahlen doppelt vorkommt in dem Code. Könnt ihr mir eine Lösung verraten ?
Die Schleifen mit while und repeat until wollten bei mir nicht wirklich funktionieren, ich denke ich habe was falsch gemacht.
hier könnt ihr sehen wie der code bislang erstellt wird :
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
| randomize; c1:=random(6}+1; c2:=random(6}+1; c3:=random(6)+1; c4:=random(6)+1;
code1.Caption:=inttostr(c1); code2.Caption:=inttostr(c2); code3.Caption:=inttostr(c3); code4.Caption:=inttostr(c4); |
Moderiert von Narses: Code in Delphi-Tags hinzugefügt, Anhang gelöscht.