... / ...
Commit | Line | Data |
| 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. |