Eingabe des Wachstumsfaktors

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