MODULE bevoelk;
IMPORT Display;
PROCEDURE ProgMain*;
VAR anzahl: REAL;
jahr: INTEGER;
ch: CHAR;
BEGIN
jahr:=1999;
anzahl:=6.0E9;
REPEAT
anzahl:=1.018*anzahl;
jahr:=jahr+1;
Display. WriteInt (jahr, 4);
Display. WriteStr (": ");
Display. WriteReal (anzahl, 15);
Display. WriteLn;
UNTIL anzahl > 7.0E9;
Display. ReadChar (ch);
END ProgMain;
END bevoelk.
Zurück zur Übersicht über die Wiederholung mit
Endbedingung