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