Programmieren in Pascal: Zahlenraten - Versionsgeschichte

Admin am 25. Januar 2024 um 10:15 Uhr

2024-01-25T10:15:22Z

Admin am 26. Juli 2022 um 12:29 Uhr

2022-07-26T12:29:24Z

Admin am 26. Juli 2022 um 12:28 Uhr

2022-07-26T12:28:30Z

Admin am 26. Juli 2022 um 12:27 Uhr

2022-07-26T12:27:10Z

Admin am 26. Juli 2022 um 12:10 Uhr

2022-07-26T12:10:52Z

Admin am 26. Juli 2022 um 12:09 Uhr

2022-07-26T12:09:41Z

Admin am 26. Juli 2022 um 12:06 Uhr

2022-07-26T12:06:42Z

Admin am 22. Juli 2022 um 08:31 Uhr

2022-07-22T08:31:48Z

Admin am 27. Juni 2022 um 08:57 Uhr

2022-06-27T08:57:21Z

Admin am 6. Januar 2022 um 13:45 Uhr

2022-01-06T13:45:59Z

@@ Zeile 18: / Zeile 18: @@
 <abbr title="BEGIN und END bilden immer einen so genannten Block. Damit können Programme in Abschnitte aufgeteilt werden.">BEGIN</abbr>
-   Richtig := FALSE; // Zunächst mal
+   Richtig := FALSE; // Zunächst mal wird dem Rückgabewert FALSE zugewiesen. Die Funktion wird dadurch nicht beendet.
    IF iGuess > iNumber THEN    // Der Abfrage folgt nur ein Befehl

@@ Zeile 7: / Zeile 7: @@
 <abbr title="Jedes Pascal-Programm beginnt mit dem Schlüsselwort program.">PROGRAM</abbr> Zahlenraten;
-// Testen von LAZARUS auf Windows und Linux
+<abbr title="Das hier sind Kommentare. Sie werden vom Computer (Compiler) ignoriert und sind nur für die Menschen gedacht.">//</abbr> Testen von LAZARUS auf Windows und Linux
 // (c) Frank Werner, 21.12.2021

@@ Zeile 33: / Zeile 33: @@
 <abbr title="Die Funktion ist hier zu Ende.">END;</abbr>
 <abbr title="Prozeduren sind Unterprogramme, die keinen Wert zurück geben.">PROCEDURE</abbr> Titel_ausgeben;
 BEGIN

@@ Zeile 18: / Zeile 18: @@
 <abbr title="BEGIN und END bilden immer einen so genannten Block. Damit können Programme in Abschnitte aufgeteilt werden.">BEGIN</abbr>
-   IF iGuess > iNumber THEN BEGIN
+  Richtig := FALSE; // Zunächst mal
      WRITELN ('...kleiner');
-    Richtig := FALSE;
+   IF iGuess > iNumber THEN    // Der Abfrage folgt nur ein Befehl
-   END ELSE IF iGuess < iNumber THEN BEGIN
+     WRITELN ('...kleiner');   // weshalb wir den einfach dahin schreiben.
      WRITELN ('...größer');
-    Richtig := FALSE;
-   END ELSE IF iGuess = iNumber THEN BEGIN
+   IF iGuess = iNumber THEN BEGIN // Wenn der Abfrage mehr als ein Befehl folgt,
-     WRITELN ('...ERRATEN!');
+     WRITELN ('...ERRATEN!');     // brauchen wir BEGIN und END
      Richtig := TRUE;
    END;
-END;
+<abbr title="Die Funktion ist hier zu Ende.">END;</abbr>
 <abbr title="Prozeduren sind Unterprogramme, die keinen Wert zurück geben.">PROCEDURE</abbr> Titel_ausgeben;
@@ Zeile 36: / Zeile 38: @@
    WRITELN ('zwischen 0 und ', iMaxZahl);
    WRITELN ('und Du errätst sie!');
-END;
+<abbr title="Die Prozedur ist hier zu Ende">END;</abbr>
-BEGIN // des Hauptprogramms: Hier startet das Programm
+// Anfang des Hauptprogramms: Hier startet das Programm. Prozeduren und Funktionen
-   // Titel ausgeben
+   // Titel ausgeben: Aufruf der gleichnamigen Prozedur
-   Titel_ausgeben; // Aufruf der gleichnamigen Prozedur
+   Titel_ausgeben;
    // Zufallszahl initialisieren und erzeugen
@@ Zeile 51: / Zeile 57: @@
      WRITE ('Deine Vermutung?');
      READLN (Vermutung);
-   UNTIL Richtig (iZahl, iVermutung);
+   UNTIL Richtig (iZahl, iVermutung);  // <- Diese Abfrage ruft gleichzeitig stets die Funktion auf.
 END.
 </pre>
 </html>

@@ Zeile 16: / Zeile 16: @@
 // Prüft, ob die Vermutung richtig ist und gibt Tipps
 <abbr title="Funktionen sind Unterprogramme, die nach dem Aufruf einen Wert an den Aufrufer zurück geben">FUNCTION</abbr> Richtig (iNumber, iGuess: INTEGER): <abbr title="Diese Funktion gibt einen Wert vom Typ BOOLEAN, also nur TRUE (wahr) oder FALSE (falsch) zurück.">BOOLEAN</abbr>;
-BEGIN
+<abbr title="BEGIN und END bilden immer einen so genannten Block. Damit können Programme in Abschnitte aufgeteilt werden.">BEGIN</abbr>
    IF iGuess > iNumber THEN BEGIN

@@ Zeile 31: / Zeile 31: @@
 END;
-<abbr title="Prozeduren sind Unterprogramme, die keinen Wert zurück geben.">PROCEDURE</abbr> Titel_ausgeben();
+<abbr title="Prozeduren sind Unterprogramme, die keinen Wert zurück geben.">PROCEDURE</abbr> Titel_ausgeben;
 BEGIN
    WRITELN ('Zahlenraten - ich denke mir eine Zahl!');

@@ Zeile 1: / Zeile 1: @@
-'''Pascal''' ist eine nach Blaise Pascal benannte Programmiersprache, die von Niklaus Wirth definiert wurde. Da die Sprache im Unterricht und im Studium eingesetzt wurde, erfuhr sie eine große Popularität. Pascal ist eine strukturierte Sprache, hat aber m. E. einige Schwächen. Zum Beispiel dass jedes END ein BEGIN erfordert und dass ELSIF fehlt, was etwas merkwürdige Schachtelungen ergibt.
+'''Pascal''' ist eine nach [https://de.wikipedia.org/wiki/Blaise_Pascal Blaise Pascal] benannte Programmiersprache, die von [https://de.wikipedia.org/wiki/Niklaus_Wirth Niklaus Wirth] definiert wurde. Da die Sprache im Unterricht und im Studium eingesetzt wurde, erfuhr sie eine große Popularität. Pascal ist eine strukturierte Sprache, hat aber m. E. einige Schwächen. Zum Beispiel dass jedes END ein BEGIN erfordert und dass ELSIF fehlt, was etwas merkwürdige Schachtelungen ergibt.
 Ein freies, portables und leistungsfähiges Entwicklungssystem für Windows, MacOS und Linux ist [https://www.lazarus-ide.org/ Lazarus]. Die Programme können zwischen den Systemen frei kopiert und neu übersetzt werden.
@@ Zeile 12: / Zeile 12: @@
 <abbr title="Mit dem Schlüsselwort CONST werden Konstante definiert, also Platzhalter, deren Inhalt nicht geändert werden kann.">CONST</abbr> iMaxZahl = 100;
-VAR iZahl, iVermutung: INTEGER;
+<abbr title="Mit VAR werden dem Computer Variable erklärt, also Speicherstellen, deren Inhalt variabel ist.">VAR</abbr> iZahl, iVermutung: <abbr title="Jede Variable hat einen Typ, der ihren Inhalt bestimmt. Variable vom Typ INTEGER können nur ganze Zahlen speichern.">INTEGER</abbr>;
 // Prüft, ob die Vermutung richtig ist und gibt Tipps
-FUNCTION Richtig (iNumber, iGuess: INTEGER): BOOLEAN;
+<abbr title="Funktionen sind Unterprogramme, die nach dem Aufruf einen Wert an den Aufrufer zurück geben">FUNCTION</abbr> Richtig (iNumber, iGuess: INTEGER): <abbr title="Diese Funktion gibt einen Wert vom Typ BOOLEAN, also nur TRUE (wahr) oder FALSE (falsch) zurück.">BOOLEAN</abbr>;
 BEGIN