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
