Hallöchen erstmal,
hab da nen kleines Problem mit der KI für mein Karten spiel 17+4.
Es gibt zwar schon einige beiträge im netzt über 17+4 und KI's aber die haben mir nicht weiter geholfen bzw. ich hab sie nicht verstanden.
Das Programm schreib ich als abschlussarbeit in der schule. Also hab ich 2 Jahre mit Delphi gearbeitet bin aber ehr ein schlechtes schüler.^^ [url=
www.potenzmittel-apotheke.eu/]potenzmittel kamagra billig[/url]
Hier ist meine Ki dargestellt:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| repeat
banksumme:=banksumme+Karte[i];
bank:=banksumme+Karte[31];
Edit3.Text:=IntToStr(bank);
dec(i);
Inc(a);
until ((bank > spieler) and (bank <= 21)) or ((bank>21) or (bank=spieler) or (bank = 21)); |
i= anzahl der Karten
banksumme= summiert die karten auf( die man zieht)
bank= summiert folgendes auf: eine karte die schon am anfang ausgegeben wird(karte31) und die restlichen karten die man zieht (banksumme)
Mein Problem ist (wahrscheinlich) folgendes:
die repeatschleife hört bei mir zu früh auf
--> es wird ausgegeben das die Bank gewonnen hat obwohl der spieler mehr punkte hat
im anhang befindet sich die unit(ohne formular) mit den gesamten quelltext glaub aber nicht das da jemand durch blickt^^ (procedure TForm2.Image1Click <-- dort ist die
repeat drin)
----------------------------------------------
kp ob ich das jetzt in die richtige ecke geschrieben hab
über eure hilfe würde ich mich sehr freuen
das programm muss ich nächste woche freitag abgeben
Moderiert von 
Gausi: Delphi-Tags hinzugefügt
