*希望对你有帮助

*1

CLEAR

LOCAL nsum

nsum=0

DIMENSION num(15)

num(1)=1

num(2)=1

?"求数列1，1，2，3，5，8，13，21...前十五项之和。"

?"结果如下："

?"数列的前15项为：",ALLTRIM(STR(num(1)))," ",ALLTRIM(STR(num(2)))," "

FOR i=3 TO 15

num(i)=num(i-1)+num(i-2)

ALLTRIM(STR(num(i)))," "

ENDFOR

FOR i=1 TO 15

nsum=nsum+num(i)

ENDFOR

?"以上数列的和为：",ALLTRIM(STR(nsum))

*2

CLEAR

?"编程计算S=1+（1+2）+(1+2+3)+……+（1+2+3...+N），N从键盘输入。"

input "请输入一个数值N：" to n

LOCAL csum,a

csum=0

a=0

FOR i=1 TO n

a=a+i

csum=csum+a

ENDFOR

"计算结果为：",csum