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