(fam$, dl$, zpl) read fam$, dl$, zpl
fam$ = 䠠 if fam$ = then exit do
(fam$, dl$, z) ? fam$; dl$; z
k
:= k + 1 k = k + 1
s
:= s*(k - 1)/k + z/k s = s*(k - 1)/k + z/k
렠 loop
zsr = s zsr = s
( 3/nama=,zsr) ? /=; zsr
end
­ .



( :) :
s := 0: k := 0 S0 = 0 [ k = 0 ]

(fam$, dl$, z)
fam$ =
(fam$, dl$, z) <famk> <dlk> <zk> }*
k:=k + 1 [ k= (1...N) ]
s := s*(k - 1)/k + z/k sk = sk - 1×(k - 1)/k + zk/k

zsr
= s zsr = sN
( /nama=,zsr) /= <zsr>

­ - .
. , ­ :