Question

PASCAL问题求解答

题目：循环练习 - Fibonacci数列题目描述Fibonacci（斐波那契）数列是一组特殊的数，数列的第一个为1，第二个为1，从第三个开始，每个数为前两数之和。试编写一个程序，获得数列中任意一个值
输入
有多组数据组成，每组的一行正整数N，表示需要输出第N个Fibonacci数，n为整型数据
输出
对应每个输入的N，输出第N个Fibonacci数，独占1行。样例输入1
2
3
样例输出1
1
2

Answer 1

这个题可逗，输入多少个数算完啊，玩死循环啊？哪个出的题，真是没脑。
program Project1;
const
fib_max = 500;
var
fibonacci: array[1..fib_max] of Longint;
i: Integer;
begin
fibonacci[1] := 1;
fibonacci[2] := 1;
for i := 3 to fib_max do
fibonacci[i] := fibonacci[i - 1] + fibonacci[i - 2];
while True do
begin
Readln(i);
if i <= fib_max then
Writeln('--', fibonacci[i])
else Writeln('-- Out of range');
end;
end.

追问

输入的数据N 为Fibonacci数列中的第N个数字，不会有死循环啊？！

追答

样例输入1
2
3
样例输出1
1
2

请问，N在哪？？

追问

N是输入的
不过我已经做出来了
program p1021;
var a,b,c,i,n:integer;
begin
while not eof do begin
readln(n);
a:=1;
b:=1;
for i:=3 to n do
begin
c:=a+b;
a:=b;
b:=c;
end;
writeln(b);
end;
end.
对了哦！

追答

你那也叫对了？每输入一个数，你都要从头计算一次数列，你懂不懂什么叫效率？
输入100次，计算100次；输入100次，计算1次；知道这个区别么？

Answer 2

你可以用迭代法 或者直接
通项公式为fib(n) = [(1＋√5)/2]^n /√5 － [(1－√5)/2]^n /√5 (n=1,2,3.....）,