17
clear
n=1
do while .t.
if f(n)>87654321
"所求最小自然数是:"+allt(str(n))
exit
endif
n=n+1
enddo
function f(m)
if m=1
return 1
else
if m=2
return 4
else
return 3*f(m-1)-f(m-2)
endif
endif
endfun
17
clear
n=1
do while .t.
if f(n)>87654321
"所求最小自然数是:"+allt(str(n))
exit
endif
n=n+1
enddo
function f(m)
if m=1
return 1
else
if m=2
return 4
else
return 3*f(m-1)-f(m-2)
endif
endif
endfun