- 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp)
-- 公式模型编写问题提交 (http://weistock.com/bbs/list.asp?boardid=4)
---- [原创]PEL版斐波那契数列 (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=9470)
-- 发布时间：2011/12/22 19:28:01
-- [原创]PEL版斐波那契数列
runmode:1;
input:length(20);
num1:=1;
num2:=1;
num3:=0;
if length=1 then begin
msgout(1,\'1\');
end else begin
msgout(1,\'1\');
msgout(1,\'1\');
for i=0 to length-3 do begin
num3:=num1+num2;
msgout(1,numtostr(num3,0));
num1:=num2;
num2:=num3;
end
end