求s＝1+

1

2

+

1

3

+…+

1

n

的值的程序如下：
INPUT“n=”；n
i=1
s=0
DO
s=s+1/i
i=i+1
LOOP  UNTIL  i＞n
PRINT s
END