數據結構考研分類復習真題 第五章 數組和廣義表[26]

　　 現有算法及正整數n和數組A如下求數組C的值

　　VAR  ABC:Array[] of  integer;
　　FUNC AAA(st:integer):integer;
　　IF s=t  THEN  IF  B[s]= THEN AAA:=S  ELSE  AAA:=s ELSE
　　BEGIN
　　l:=AAA(s(s+t) DIV );
　　r:=AAA((s+t) DIV +t);
　　IF l> THEN  AAA:=l ELSE AAA:=r;
　　IF (r>) AND (A[l]>A[r]) THEN AAA:=r
　　END
　　ENDF;
　　PROC BBB;
　　FOR i:= TO  n  DO  B[i]:=;
　　FOR i:= TO  n  DO  B[AAA(n)]:=i;
　　FOR i:= TO  n  DO  C[B[i]]:=A[i];
　　ENDP;
　　初始值n=A={};【北京郵電大學 五（分）】

[]  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  

From:http://tw.wingwit.com/Article/program/sjjg/201311/22768.html