Fibnacci数列
神杀中龙 2006-08-29 09:51:08 求一个更精简的
下面是我的
;子程序 NumValue_Fibnacci[Me]
;子程序功能 递归求Fibnacci级数第N项
;入口条件 al
;出口条件 bx
NumValue_Fibnacci proc
cmp al,0
jb _FibnacciRet ; N < 0时结束递归
cmp al,1
jbe _jbeOneFib ; N <= 1
ja _jaOneFib ; N > 1
_jbeOneFib:
add dx,ax
jmp _FibnacciRet
_jaOneFib:
push ax
dec ax
call NumValue_Fibnacci
pop ax
sub ax,2
call NumValue_Fibnacci
_FibnacciRet:ret
NumValue_Fibnacci endp