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