"
628
FOR J
Cup
C=107(gr20%
(xs227C2%3) SRC!
EVAL
+
IF
DUP ROT =
THEM
. 1E493
EMD
STEP
[ENTER] (J BER [STO]
Begint de lus.
Slaat de huidige waarde van de recks
op (in eerste instantie 1).
Berekent de volgende term uit de
reeks.
Telt de volgende term op bij de
huidige waarde van de reeks, om de
nieuwe waarde van de reeks te
berekenen.
Begint de voorwaardelijke lus.
Test of de nieuwe waarde van de
reeks niet gelijk is aan de oude.
Als de nieuwe en de oude waarde
niet gelijk zijn, geeft . ..
...aandatn = 2.
Als de nieuwe en de oude waarde
gelijk zijn (met een nauwkeurigheid
van 12 cijfers), geeft ...
... aan dat n = 9.1E499
Beéindigt de voorwaardelijke
structuur.
Geeft de stapgrootte aan, op basis
van de voorwaardelijke lus.
Beéindigt de definiérende
procedure.
Voert het programmain en slaat het
op in BER.
31: Extra programmeervoorbeelden