Ich habe folgende Aufgabe bekommen. Wie könnte ein Turbo-Pascal Programm dazu aussehen.
Bei der folgenden Aufgabe wird der Grobalalgorithmus für die meisten Kartenspiele (Mischen, Geben, Spielen, Auswerten) realisiert. Dabei hat der Benutzer am Monitor keinen Einfluß auf das Spiel als solches, wohl aber auf die Dauer des Mischens der Karten, so dass ihm ín Abhängigkeit davon eine Übersicht über den Ausgang des Spieles präsentiert wird.
Zu Anfang werden 32 Karten mit den Werten <1> bis <32> in einem Kartenstapel gemischt. Dannw erden an drei Spieler nacheinander je 10 Karten ausgegeben. Innerhalb der folgenden 10 Spielabschnitte legt jeder Spieler jeweils seine 'oberste' Karte auf den Tisch, wobei der Stich und damit die Augensumme an den Spieler fällt, der die höchstwertige Karte gelegt hat.
Das Programm lässt alle 10 Stiche Revue passieren und weist das Gesamtergebnis aus.
Eine zweckmäßige Datenorganisation erhält man z.B. wie folgt:
TYPE kartenwert = 1..32;
VAR spieler_a, spieler_b, spieler_c : ARRAY [1..10] OF kartenwert;
VAR kartenstapel : ARRAY [1..32] OF kartenwert;
VAR gewinn_a, gewinn_b, gewinn_c : INTEGER;