- 4


(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>

 

­ - .

. , ­ :




- -  - -  - -