0051管理信息系统中计算机应用

S=1

Input “n=” to n For i=1 to n S=s*i

Endfor ?s Return

4、 求s=1/1!+1/2!+1/3!+…..+1/n! 解：Set talk off

S=0 P=1

Inpit “n=” to n For i=1 to n P=p*i S=s+p

Endfor ?s Return

5、 打印如下图形： * ***

29

***** ******* 解：Set talk off

Input “n=” to n For i=1 to n

? space(50)+repl(“*”,2*i-1) Endfor Return

6、 打印如下形式的乘法口决表。 1*1＝1 2*1＝2 2*2＝4

3*1＝3 3*2＝6 3*3＝9 …… ……. 9*1=9 9*9=81 Set talk off 解：For i=1 to 9 For j=1 to i

?? str(I,1)+”*”+str(j,1)+”=”+str(i*j,2)+” “ Endfor ?

Endfor

30

9*2=18 9*3=27………………………9*8=72

Return

31