2010递归.pptVIP

作业选讲 给一维数组输入任意6个整数,假设为: 7 4 8 9 1 5 请建立一个具有以下内容的方阵： 7 4 8 9 1 5 4 8 9 1 5 7 8 9 1 5 7 4 9 1 5 7 4 8 1 5 7 4 8 9 5 7 4 8 9 1 (请用子程序编写)。 program zzw; const s:array[1..6] of integer=(1,2,3,4,5,6); var q:integer; procedure hhh; var t,j:integer; beginj:=s[1];for t:=1 to 5 do? s[t]:=s[t+1];s[6]:=j; for t:=1 to 6 do??? write(s[t], );writeln; end; Begin ? for q:=1 to 6 do write(s[q], ); ? writeln; ? for q:=1 to 5 do? hhh;end. 输入n个正整数 求它们的最大公约数。。。(n=5) program zzw; const n=5; var s:array[1..n] of integer; g,t:integer; function gys(x,y:integer):integer; var z:integer; begin repeat z:=x mod y; x:=y; y:=z; until z=0; gys:=x; end; begin for t:=1 to n do read(s[t]); g:=s[1]; for t:=2 to n do g:=gys(g,s[t]); writeln(the gys is ,g); end. 计算n!的函数 program hs_exam1; var i:integer;s :longint;　 在调用过程或函数之前，系统需完成三件事： ⑴为被调用过程的局部变量分配存储区； ⑵将所有的实在参数、返回地址等信息传递给被调用过程保存； ⑶将控制转移到被调过程的入口。 从被调用过程返回调用过程之前，系统也应完成三 件工作： ⑴保存被调过程的计算结果； ⑵释放被调过程的数据区； ⑶依照被调过程保存的返回地址将控制转移到调用过程。 递归过程分析—数字倒序 例3、用递归方法求两个正整数m和n的最大公约数。 var m,n：longint ； function gcd(m,n：longint)：longint； begin if m mod n=0 then gcd :=n else gcd:=gcd(n, m mod n)；｛递归调用｝ end； begin { 主程序 } read (m,n)； writeln (‘m=’,m ,’n=’,n ,’gcd=’, gcd( m,n) )； end． 例5、用递归算法完成折半查找。 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 begin search:=mid; exit;end; else  if xa[mid] then search:=search(top,mid-1) else search:=search(mid+1,bot) end end; procedure p (n:integer); var i:integer; beginif n0 then begin　　　for i:=1 to n do write(n:3);　　　writeln; 　　　　　p(n-1);　　　for i:=1 to n do write(n:3);　　　writeln;　　end; end; 执行P(4) program ex404; var x,x2:longint; procedure digit(n,m:longint); var n2:integer; begin if(m0) then begin