斐波那契@阅读长代码2@Pascal学习日记

斐波那契数列

兔子数列.png

---

{
    Fib(0) = 1
    Fib(1) = 1
    Fib(n) = Fib(n - 1) + Fib(n - 2)
}

program fibonacci(input, output);

(* ============ GLOBAL VARIABLES ============ *)
var
    n : integer;

(* =============== FUNCTIONS ================ *)

function fib(n : longint) : longint;
begin
    if n < 2 then
        fib := 1
    else
        fib := fib(n - 1) + fib(n - 2)
end;

function fastfib(n : longint) : longint;

(* ============ LOCAL VARIABLES ============ *)
var
    first, second, count, temp : longint;
begin
    first := 1;
    second := 1;
    for count := 2 to n do
    begin
        temp := second;
        second := first + second;
        first := temp
    end;
    fastfib := second;  
end;

(* ================ PROGRAM ================= *)

begin

    write('n: ');
    read(n);
    writeln('With fast fib: ', fastfib(n));
    writeln('With exponential one: ', fib(n));
    
end.

---

温馨提示：不要复制粘贴，你需要的练习是：自己动手慢慢敲代码
一些有用的链接：
CP Pascal Editor下载链接
Free Pascal下载链接
那些初高中甚至小学就接触编程的人最后到了什么样的境界？
高中生如何学习编程？

2015年4月21日01:57:17 @kaikai