Bevölkerungswachstum in Indien

MODULE indien;

IMPORT Display;

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

BEGIN

      jahr:=1950;
      anzahl:=357600000;

      REPEAT
            anzahl:=1.021*anzahl;
            jahr:=jahr+1;
            Display. WriteInt (jahr, 4);
            Display. WriteStr (": ");
            Display. WriteReal (anzahl, 15);
            Display. WriteLn;
      UNTIL anzahl>1.0E9;

      Display. ReadChar (ch);
END ProgMain;

END indien.

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