fib.0

来自「PL/0源码」· 0 代码 · 共 31 行

var fibinput, fiboutput, fibarg, fibresult, fibvalue;

procedure fib;
    var temp, myfibarg;
begin
    fibresult := 1
    if fibarg # 1 then begin
       if fibarg # 2 then begin
           myfibarg := fibarg;
           fibarg := myfibarg - 1;
           call fib;
           temp := fibresult;
           ;
           fibarg := myfibarg - 2;
           call fib;
           temp := temp + fibresult;
           fibresult := temp;
        end;
    end;
end;

begin
    fibinput := input;
    while fibinput > 0 do begin
        fibarg := fibinput;
        call fib;
        output := fibresult;
        fibinput := input;
    end;
.