【正文】
er。 a:array[1..20] of integer。 function search(top,bot:integer):Integer。 var mid:integer。 begin if topbot then search:=1 else begin mid:=(top+bot) div 2。 if x=a[mid] then search:=mid else if xa[mid] then search:=search(top,mid1) else search:=search(mid+1,bot) end end。 begin for i:=1 to 20 do begin a[i]:=i。write(a[i]:3)。end。 writeln。 readln(x)。 write(search(1,20))。 end. 思考: 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55…… 從第三項(xiàng)起,每一項(xiàng)都是緊挨著的前兩項(xiàng)的和。寫出計(jì)算斐波那切數(shù)列的任意一個(gè)數(shù)據(jù)項(xiàng)遞歸函數(shù)形式。 function fic(m: integer): longint; begin if m=1 then fic:=0 if m=2 then fic:=1 if m2 then fic:=fic(m1)+fic(m2) {遞歸調(diào)用} end;