fibonacci数列.txt

来自「编译原理实践教程PL0语言编译程序源代码。参考书：清华大学出版社的《编译原理》作」· 文本 代码 · 共 22 行

\\\\\\\\\  Fibonacci数列: 1,1,2,3,5,8,13,21.....
var
	f1,f2,f3,flag,Number;
begin
	f1:=1;
	f2:=1;
	flag:=3;
	read(Number);         \\输出数列的项数
	if Number=1 then write(f1);
	if Number>=2 then
	begin
		write(f1);write(f2);
		while flag<=Number do
		begin
			f3:=f1+f2;
			f1:=f2;
			f2:=f3;
			write(f3);
			flag:=flag+1;
		end;
	end;
end.