由于这题的图突然不见了，凭我的记忆写下原来的程序并附上PASCAL的。

C源程序

   #include<stdio.h>
1  int fibonacci(int n);
2  {
3   if (n<2) return 1;
4   else {
5    fibonacci(n-1);
6    fibonacci(n-2);
7   }
8  }
9  int main() {
10  int n,scanf("%d",&n);
11  fibonacci(n);
12 }

PASCAL源程序

   var n : longint;
1  procedure fibonacci(n:longint);
2    begin
3      if n<2 then exit
4        else begin
5          fibonacci(n-1);
6          fibonacci(n-2);
7        end;
8    end;
9  begin
10   read(n);
11   fibonacci(n);
12 end.

希望这对大家有帮助！

这与原题中的程序稍有出入，如有流程图上的错误请指正！

 #include<stdio.h>
 int t=0;
1 int fibonacci(int n){
2  if (n<2){
3   t++;
4  } else {
5   fibonacci(n-1);
6   fibonacci(n-2);
7  }
8 }
9 int main() {
10  int n,scanf("%d",&n);
11  fibonacci(n);
12 }

    var n,t : longint;
1  procedure fibonacci(n:longint);
     begin
2      if n<2 then begin
3        t:=t+1;
4      end else begin
5          fibonacci(n-1);
6          fibonacci(n-2);
7      end;
8    end;
9  begin
10   read(n);t:=0;
11   fibonacci(n);
12 end.