FUNCTION f(n)
   IF n<2 THEN
      LET f=1
   ELSE
      LET f=2*f(n-1)
   END IF
END FUNCTION

m=0
FOR k=1 TO 10
   m=m+f(k)
   PRINT k;": ";f(k);"   Σ=";m
NEXT k
PRINT
PRINT "以上、 公比 ２ の等比数列を１０項まで出力しました。"
END



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



FUNCTION f(n)
   IF n<2 THEN 
      LET f=1
   ELSE 
      LET f=f(n-1)+2*n-5
   END IF
END FUNCTION

LET m=0
FOR k=1 TO 10
   LET m=m+f(k)
   PRINT k;": ";f(k);"   Σ=";m
NEXT k
PRINT
PRINT "f(n+1) − f(n) ＝ 2*n − 3"
PRINT "n 項 ：  n^2 − 4*n + 4 "
PRINT
FOR i=1 TO 10
   PRINT i;": ";i^2-4*i+4
NEXT i
END



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



FUNCTION f(n)
   IF n<3 THEN
      LET f=1
   ELSE
      LET f=f(n-1)+f(n-2)
   END IF
END FUNCTION

m=0
FOR k=1 TO 10
   m=m+f(k)
   PRINT k;": ";f(k);"   Σ=";m
NEXT k
PRINT
PRINT "以上、フィボナッチ数列を１０項まで出力しました。"
END