MODULE Mehrfach;
IMPORT Display;
PROCEDURE ProgMain*;
VAR ch: CHAR;
BEGIN
REPEAT
Display. WriteStr ("HIER DER EIGENTLICHE PROGRAMMTEXT. ER WIRD WIEDERHOLT, BIS E EINGEGEBEN WIRD!");
Display. WriteLn;
REPEAT
Display. WriteStr ("Weiter (w) oder beenden (e)? ");
Display. ReadChar (ch);
Display. WriteLn;
IF ~(((ch = 'e') OR (ch = 'E')) OR ((ch = 'w') OR (ch = 'W')))
THEN Display. WriteStr ("Sie müssen schon w, W, e oder E eingeben!" );
Display. WriteLn;
END;
UNTIL ((ch = 'e') OR (ch = 'E')) OR ((ch = 'w') OR (ch = 'W'));
UNTIL (ch='e')OR(ch='E' );
END ProgMain;
END Mehrfach.
Zurück zur Übersicht über die Wiederholung mit
Anfangsbedingung