【小鸟求助】这题看不懂，也不会解，求具体解析及代码

递归…………我一直没学好的东西…………我就把那个最难的函数给你吧~
function fib(n:integer):real;
begin
if (n=1) or (n=2) then fib:=1;
else fib:=fib(n-1)+fib(n-2);
end;

var
n,m,i,k:longint;
f:array[0..1234567]of longint;
begin
read(n);
read(m);
f[0]:=0;
f[1]:=1;
if n>=2 then
for i:=2 to n do
f[i]:=f[i-1]+f[i-2];
write(f[n] mod m);
end.
个人不太喜欢写函数。。。so就写了以上。
能看懂么？
是递归里的来着，，我其实和2楼差不多的

var
n,m,i,k:longint;
f:array[0..1234567]of longint;
begin
read(n);
read(m);
f[0]:=0;
f[1]:=1;
for i:=2 to n do
f[i]:=（f[i-1]+f[i-2]） mod m;
write(f[n]);
end.
@courage17340 这样么？其实 f[i]:=（f[i-1]+f[i-2]） mod m;有点理解不能。。f[i]变成原来的值mod m之后不会影响后面的运算么……【我是初学渣求教orz

F(n)=(sqr((1+sqrt(5))/2)-sqr((1-sqrt(5))/2))/sqrt(5)
http://zhidao.baidu.com/link?url=XeIV_A7AriUvz7UJoSwPbf9tqkTepO3T_GiopoFe2hopKkYVDW0hJoLF-VqERmpnvK9BtKUGejBiHYkjlkYMtq&autorefresh=1376993912484

{$ASMMODE INTEL}
var n,r:longword;
m:longint;
begin
readln(n,m);
asm
mov eax,0
mov edx,1
mov ecx,n
@:
add eax,edx
xor eax,edx
xor edx,eax
xor eax,edx
loop @
mov edx,0
idiv m
mov r,edx
end;
writeln(r);
end.

{这个版本比上个版本复杂，但是避免了溢出且速度也很快}
{$ASMMODE INTEL}
var n,r:longword;
m:longint;
begin
readln(n,m);//读取初始值
asm
mov eax,0
mov edx,1
mov ecx,n//设计数器为n
@:
add eax,edx//把edx加到eax上
@s:
sub eax,m//尝试减去m
jns @s//如果不是负数则跳转（再减）
add eax,m//加上m（eax一定是负数）
xor eax,edx
xor edx,eax
xor eax,edx//以上三条指令交换eax和edx的值
loop @//如果技术器ecx不为零则跳转
mov r,eax
end;
writeln(r);
end.