Wann lebte der erste Mensch?

MODULE sinken;

IMPORT Display;

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

BEGIN

      jahr:=1999;
      anzahl:=6.0E9;

      REPEAT
            jahr:=jahr-1;
            anzahl:=anzahl/1.018;
            Display. WriteInt (jahr, 4);
            Display. WriteStr (": ");
            Display. WriteReal (anzahl, 15);
            Display. WriteLn;

      UNTIL anzahl<1;

      Display. ReadChar (ch);
END ProgMain;

END sinken.

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