delphi问题--斐波那契数列

答案：这个问题很简单!第一题：设计函数1：斐波那契数列的第n项，记为x(n)
函数2：调用函数1，运算x(n+1)/x(n)，记为y(n)
函数3：求数列{y(n)}的和
第二题：设计函数1：输入n，输出1+2+3+……+n的值，记为x(n)
函数2：调用函数1，求数列{x(n)}的和
第三题：输入n，创建参数a=1，参数b=n。a从1开始增加，判断a是否为n的因数，然后运算b=b-a。当a>n/2时，判断b是否为0，若是，输出n。
若要找出1000内的完数，可以使用循环结构，将n从1开始增加。
（我是门外人，不知道这样写行不行，不行的话自己加工一下）

上一个：delphi表数据查找问题。
下一个：delphi 比较字符串匹配函数