DECLARE EXTERNAL FUNCTION fact
PRINT 
INPUT PROMPT "等差数列の初項は？　":a
INPUT PROMPT "公差（ ０以外 ）は？　":d
INPUT PROMPT "調べたいのは、第何項（初項以外）？　":n
PRINT
PRINT "第";n;"項 :　";a+(n-1)*d;"（ ← 公式より ）"
PRINT "第";n;"項までの和 ：　";n*(2*a+(n-1)*d)/2;"（ ← 公式より ）"
PRINT
PRINT "第";n;"項 ：　";fact(a,d,n)
LET s=0
FOR k=1 TO n
   LET s=s+fact(a,d,k)
NEXT k
PRINT "第";n;"項 までの和 ：　";s
PRINT
END

EXTERNAL FUNCTION fact(a,d,n)
IF n=1 THEN
   LET fact=a
ELSE 
   LET fact=fact(a,d,n-1)+d
END IF
END FUNCTION




#########################################################################




DECLARE EXTERNAL FUNCTION fact
PRINT 
INPUT PROMPT "等比数列の初項は？　":a
INPUT PROMPT "公比（ １以外 ）は？　":r
INPUT PROMPT "調べたいのは、第何項（初項以外）？　":n
PRINT
PRINT "第";n;"項 :　";a*r^(n-1);"（ ← 公式より ）"
PRINT "第";n;"項までの総和 ：　";a*(1-r^n)/(1-r);"（ ← 公式より ）"
PRINT
PRINT "第";n;"項 ：　";fact(a,r,n)
LET s=0
FOR k=1 TO n
   LET s=s+fact(a,r,k)
NEXT k
PRINT  "第";n;"項 までの総和 ：　";s
PRINT 
END

EXTERNAL FUNCTION fact(a,r,n)
IF n=1 THEN
   LET fact=a
ELSE 
   LET fact=r*fact(a,r,n-1)
END IF
END FUNCTION