Musterlösung zu "Freundlicher Computer"

MODULE FreundComp;

IMPORT Display;

PROCEDURE ProgMain*;
VAR
      Name: ARRAY 20 OF CHAR;
      geschlecht, ch: CHAR;

BEGIN
      Display. WriteStr ("Bitte Nachnamen eingeben! ");
      Display. ReadStr (Name, 20, ch);
      Display. WriteLn; 
      Display. WriteStr ("Bitte Geschlecht eingeben (m/w) ");
      Display. ReadChar (geschlecht);
      Display. WriteLn;
      IF geschlecht = "m"
            THEN Display. WriteStr ("Guten Tag, Herr ");
                        Display. WriteStr (Name);
                        Display. WriteChar ("!"); 
            ELSE Display. WriteStr ("Guten Tag, Frau ");
                        Display. WriteStr (Name);
                        Display. WriteChar ("!"); 
      END;

      REPEAT UNTIL Display.KeyPressed();
END ProgMain;

END FreundComp.

Zurück zum Thema Bedingte Anweisung