Commit | Line | Data |
81e70d48 PH |
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. |