Benutzereingabe der Endbedingung

MODULE endbed;

IMPORT Display;

PROCEDURE ProgMain*;
VAR anzahl: REAL;
      jahr, endJahr: INTEGER;
      ch: CHAR;

BEGIN

      jahr:=1999;
      anzahl:=6.0E9;
      Display. WriteStr ("Bis zu welchem Jahr soll gerechnet werden?");
      Display. ReadInt (endJahr, 4, ch);
      Display. WriteLn;

      REPEAT
            anzahl:=1.018*anzahl;
            jahr:=jahr+1;
            Display. WriteInt (jahr, 4);
            Display. WriteStr (": ");
            Display. WriteReal (anzahl, 15);
            Display. WriteLn;
      UNTIL jahr= endJahr;

      Display. ReadChar (ch);
END ProgMain;

END endbed.

Zurück zur Übersicht über die Wiederholung mit Endbedingung