(一)输入n的值,求1+1/2!+1/3!+1/4!+ .+1/n! (阶乘
n!=1*2*3*4....*(n-1)*n )
CLEAR
SUM=0
MUL=1
INPUT "请输入n的值: " TO N
FOR i=1 TO N
FOR j=1 TO i
MUL=MUL*J
ENDFOR
SUM= SUM+1/MUL
ENDFOR
?'求得的总和为: ',SUM
(二)输入10 个数,将它们按照从大到小的顺序排列。
clear
dime a(10)
?'输入10个数: '
for i=1 to 10
input "请输入: " to a(i)
endfor
for i=1 to 9
for j=1 to i
if a(j)>a(i+1)
t=a(i+1)
a(i+1)=a(j)
a(j)=t
endif
endfor
endfor
list memo like a