File: EREIHE.PS of Tape: Various/Decus/decus-3

(Source file text) 

---

PROGRAM EREIHE(OUTPUT);

  CONST EPSILON=5.0E-11;

  VAR   N: INTEGER;
        GLIED, SUMME: REAL;

BEGIN
    N := 0;
    GLIED := 1;
    SUMME := GLIED;
    REPEAT
        N := N + 1;
        GLIED := GLIED/N;
        SUMME := SUMME + GLIED
    UNTIL GLIED<EPSILON;
    WRITELN("E=", SUMME)
END.

---