【程序说明】 计算下列算式的值。a,Ai为正整数,从键盘输入。其小∑Ai=1＋2…＋ Ai,Ai!=1 *2*3*Ai(i=1,2…

【程序说明】 计算下列算式的值。a，Ai为正整数，从键盘输入。其小∑Ai＝1+2…+ Ai，Ai!＝1 *2*3*Ai(i＝1，2… a)。

【程序】

SET TAIK OFF

CLEAR

INPUT“M＝”TO M

STORE 0 TO S1，S2

FOR I=1 TO M

(8)

DO SUB1

DO SUB2

ENDFOR

? ” 所求算式的值为：“+ALLTRIM(STR(S1/S2，15，3))

SET TALK ON

PROCEDURE SUB1

(9)

FOR R＝1 TO A

K＝K+R

ENDFOR

(10)

RETURN

PROCEDURE SUB2

(11)

FOR P＝1 TO A

T=T*P

ENDFOR

(12)

RETURN

(8)

A．INPUT“A＝”TO A

B．INPUT“I=”TO I

C．INPUT“R=”TO STR(R)

D．INPUT“K＝”TOK