sw/src/pascal/EREIHE.PS

   1 PROGRAM EREIHE(OUTPUT);
   2
   3   CONST EPSILON=5.0E-11;
   4
   5   VAR   N: INTEGER;
   6         GLIED, SUMME: REAL;
   7
   8 BEGIN
   9     N := 0;
  10     GLIED := 1;
  11     SUMME := GLIED;
  12     REPEAT
  13         N := N + 1;
  14         GLIED := GLIED/N;
  15         SUMME := SUMME + GLIED
  16     UNTIL GLIED<EPSILON;
  17     WRITELN("E=", SUMME)
  18 END.