Example programs

Fizzbuzz

Binde "Duden/Ausgabe" ein.

Für jede Zahl i von 1 bis 100, mache:
	Wenn i modulo 3 gleich 0 ist und i modulo 5 gleich 0 ist, Schreibe den Text "FizzBuzz" auf eine Zeile.
	Sonst:
		Wenn i modulo 3 gleich 0 ist, Schreibe den Text "Fizz" auf eine Zeile.
		Wenn aber i modulo 5 gleich 0 ist, Schreibe den Text "Buzz" auf eine Zeile.
		Sonst Schreibe die Zahl i auf eine Zeile.

Fibonacci

Binde "Duden/Ausgabe" ein.

Die Funktion fib mit dem Parameter n vom Typ Zahl, gibt eine Zahl zurück, macht:
	Wenn n kleiner als, oder 1 ist, gib n zurück.

    Gib die (n minus 2). Fibonacci Nummer plus die (n minus 1). Fibonacci Nummer zurück.
Und kann so benutzt werden:
	"die <n>. Fibonacci Nummer"

Schreibe (die 6. Fibonacci Nummer).

Tic Tac Toe

Binde "Duden/Eingabe" ein.
Binde "Duden/Ausgabe" ein.
Binde "Duden/Laufzeit" ein.

Der Wahrheitswert ist_Spieler_1_dran ist wahr.
Die Zahlen Liste Spielfeld ist 9 Mal 0.

Die Funktion spieler1dran gibt einen Wahrheitswert zurück, macht:
    Gib ist_Spieler_1_dran zurück.
Und kann so benutzt werden:
    "Spieler 1 dran ist"

Die Funktion wechsel_spieler gibt nichts zurück, macht:
    Negiere ist_Spieler_1_dran.
Und kann so benutzt werden:
    "Wechsel den Spieler"

Die Funktion momentane_Spieler gibt eine Zahl zurück, macht:
    Wenn Spieler 1 dran ist, gib 1 zurück.
    [otherwise] Gib 2 zurück.
Und kann so benutzt werden:
    "die Zahl für den aktuellen Spieler"

Die Funktion spiel_nicht_gewonnen gibt einen Wahrheitswert zurück, macht:
    Die Zahl Spieler_zahl ist 0.
    Wenn Spieler 1 dran ist, speichere 2 in Spieler_zahl.
    Sonst speichere 1 in Spieler_zahl.

    Der Wahrheitswert Gewonnen ist wahr, wenn
        Spielfeld an der Stelle 1 gleich Spielfeld an der Stelle 2 ist und Spielfeld an der Stelle 1 gleich Spielfeld an der Stelle 3 ist und Spielfeld an der Stelle 1 gleich Spieler_zahl ist oder
        Spielfeld an der Stelle 4 gleich Spielfeld an der Stelle 5 ist und Spielfeld an der Stelle 4 gleich Spielfeld an der Stelle 6 ist und Spielfeld an der Stelle 4 gleich Spieler_zahl ist oder
        Spielfeld an der Stelle 7 gleich Spielfeld an der Stelle 8 ist und Spielfeld an der Stelle 7 gleich Spielfeld an der Stelle 9 ist und Spielfeld an der Stelle 7 gleich Spieler_zahl ist oder
        Spielfeld an der Stelle 1 gleich Spielfeld an der Stelle 4 ist und Spielfeld an der Stelle 1 gleich Spielfeld an der Stelle 7 ist und Spielfeld an der Stelle 1 gleich Spieler_zahl ist oder
        Spielfeld an der Stelle 2 gleich Spielfeld an der Stelle 5 ist und Spielfeld an der Stelle 2 gleich Spielfeld an der Stelle 8 ist und Spielfeld an der Stelle 2 gleich Spieler_zahl ist oder
        Spielfeld an der Stelle 3 gleich Spielfeld an der Stelle 6 ist und Spielfeld an der Stelle 3 gleich Spielfeld an der Stelle 9 ist und Spielfeld an der Stelle 3 gleich Spieler_zahl ist oder
        Spielfeld an der Stelle 1 gleich Spielfeld an der Stelle 5 ist und Spielfeld an der Stelle 1 gleich Spielfeld an der Stelle 9 ist und Spielfeld an der Stelle 1 gleich Spieler_zahl ist oder
        Spielfeld an der Stelle 3 gleich Spielfeld an der Stelle 5 ist und Spielfeld an der Stelle 3 gleich Spielfeld an der Stelle 7 ist und Spielfeld an der Stelle 3 gleich Spieler_zahl ist.
    
    Gib nicht Gewonnen zurück.
Und kann so benutzt werden:
    "das Spiel nicht gewonnen ist"

Die Funktion spiel_unentschieden gibt einen Wahrheitswert zurück, macht:
    Für jede Zahl feld in Spielfeld, wenn feld gleich 0 ist, gib falsch zurück.
    [ if all fields are occupied ] Gib wahr zurück.
Und kann so benutzt werden:
    "das Spiel unentschieden ist"

Die Funktion schreibe_spielfeld gibt nichts zurück, macht:
    Für jede Zahl i von 0 bis 2, mache:
        Schreibe den Text "+-+-+-+" auf eine Zeile.
        Für jede Zahl j von 0 bis 2, mache:
            Schreibe den Buchstaben '|'.
            Die Zahl Feld ist Spielfeld an der Stelle (i mal 3 plus j plus 1).

            Wenn Feld gleich 0 ist, Schreibe den Buchstaben ' '.
            Wenn aber Feld gleich 1 ist, Schreibe den Buchstaben 'X'.
            Wenn aber Feld gleich 2 ist, Schreibe den Buchstaben 'O'.
        Schreibe den Buchstaben '|' auf eine Zeile.
    Schreibe den Text "+-+-+-+" auf eine Zeile.
Und kann so benutzt werden:
    "Zeige das Spielfeld"

[ program start ]
Solange das Spiel nicht gewonnen ist, mache:
    Wenn das Spiel unentschieden ist, dann:
        Zeige das Spielfeld.
        Schreibe den Text "The game is a draw" auf eine Zeile.
        Beende das Programm.

    Schreibe den Text "Please make a move, player ".
    Schreibe (die Zahl für den aktuellen Spieler) auf eine Zeile.
    Schreibe den Text "The board looks like this:" auf eine Zeile.
    Zeige das Spielfeld.
    Schreibe den Text "Enter the position where you want to place your mark. [1-9]" auf eine Zeile.

    [validate user input]
    Die Zahl Eingabe ist die nächste Zahl.
    Solange Eingabe kleiner als 1 ist oder Eingabe größer als 9 ist, mache:
        Schreibe den Text "Invalid input! Please only enter numbers from 1 to 9!" auf eine Zeile.
        Speichere die nächste  Zahl in Eingabe.

    [update the board and switch players]
    Wenn Spielfeld an der Stelle Eingabe gleich 0 ist, dann:
        Speichere (die Zahl für den aktuellen Spieler) in Spielfeld an der Stelle Eingabe.
        Wechsel den Spieler.

Zeige das Spielfeld.

Wechsel den Spieler.
Schreibe den Text "Player ".
Schreibe (die Zahl für den aktuellen Spieler).
Schreibe den Text " has won!" auf eine Zeile.