Mehrfacher Ablauf bisheriger Programme

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