projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
ad47d84cdd77e3b7e2b751a65ef55b2ce21d945e
[pdp8.git]
/
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.