Programmieren in Pascal: Zahlenraten: Unterschied zwischen den Versionen

Aus Datenschutz
Zur Navigation springen Zur Suche springen
(Die Seite wurde neu angelegt: „'''Pascal''' ist eine nach Blaise Pascal benannte Programmiersprache, die von Niklaus Wirth definiert wurde. Da die Sprache im Unterricht und im Studium einges…“)
 
Zeile 5: Zeile 5:
  
 
// Testen von LAZARUS auf Windows und Linux
 
// Testen von LAZARUS auf Windows und Linux
// (p) Frank Werner, 25.03.2021
+
// (c) Frank Werner, 21.12.2021
  
 
CONST iMaxZahl = 100;
 
CONST iMaxZahl = 100;

Version vom 21. Dezember 2021, 13:08 Uhr

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 BEGIN ein END erfordert.

PROGRAM Zahlenraten;

// Testen von LAZARUS auf Windows und Linux
// (c) Frank Werner, 21.12.2021

CONST iMaxZahl = 100;

VAR Zahl, Vermutung: INTEGER;

// Prüft, ob die Vermutung richtig ist und gibt Tipps
FUNCTION Test (Number, Guess: INTEGER): BOOLEAN;
BEGIN

  IF Guess > Number THEN BEGIN
    WRITELN ('...kleiner');
    Test := FALSE;
  END ELSE IF Guess < Number THEN BEGIN
    WRITELN ('...größer');
    Test:=FALSE;
  END ELSE IF Guess = Number THEN BEGIN
    WRITELN ('...ERRATEN!');
    Test:=TRUE;
  END;

END;

BEGIN

  // Titel ausgeben
  WRITELN ('Zahlenraten - ich denke mir eine Zahl!');
  WRITELN ('zwischen 0 und ', iMaxZahl);
  WRITELN ('und Du errätst sie!');

  // Zufallszahl initialisieren und erzeugen
  RANDOMIZE;
  Zahl:=RANDOM(iMaxZahl);

  // Abfragen bis die Zahl erraten ist
  REPEAT
    WRITE ('Deine Vermutung?');
    READLN (Vermutung);
  UNTIL Test (Zahl, Vermutung);

END.