基本算法(下).docVIP

B.已知中序后序求前序????? procedure Solve(mid,post:string);????? var i:integer;????? begin????? ??? if (mid=) or (post=) then exit;????? ?? i:=pos(post[length(post)],mid);????? ??? pre:=pre+post[length(post)]; ? {加上根，递归结束后pre即为前序遍历}????? ? solve(copy(mid,1,I-1),copy(post,1,I-1));????? ?? solve(copy(mid,I+1,length(mid)-I),copy(post,I,length(post)-i));????? end;?????????? ? C.已知前序后序求中序?????????? ? function ok(s1,s2:string):boolean;????? var i,l:integer; p:boolean;????? begin????? ok:=true;????? ?l:=length(s1);牋牋??for i:=1 to l do begin牋牋? p:=false;牋牋?爁or j:=1 to l do牋牋? if s1[i]=s2[j] then p:=true;牋牋? if not p then begin ok:=false; exit; end;牋牋? end;牋牋? end;牋牋牋牋牋 ?procedure solve(pre,post:string);牋牋?var i:integer;牋牋?begin牋牋?if (pre=) or (post=) then exit;牋牋?i:=0;牋牋?repeat牋牋?inc(i);牋牋?until ok(copy(pre,2,i),copy(post,1,i));牋牋?solve(copy(pre,2,i),copy(post,1,i));牋牋?midstr:=midstr+pre[1];牋牋?solve(copy(pre,i+2,length(pre)-i-1),copy(post,i+1,length(post)-i-1));????? end;?????????? ? 10.求图的弱连通子图(DFS)????? procedure dfs ( now,color: integer);????? begin????? ?????? for i:=1 to n do????? ?????????? ?if a[now,i] and c[i]=0 then begin????? c[i]:=color;????? ???????????????? dfs(I,color);????? ?????? end;????? end;??????????????? ? 11.拓扑排序????? 寻找一数列，其中任意连续p项之和为正，任意q 项之和为负，若不存在则输出NO.????????????????????????? ? 12.进制转换????? A.整数任意正整数进制间的互化?????????? NOIP1996数制转换????? 设字符串A$的结构为: A$=mp????? 其中m为数字串(长度 =20),而n,p均为1或2位的数字串(其中所表达的内容在2-10之间)????? 程序要求:从键盘上读入A$后(不用正确性检查),将A$中的数字串m(n进制)以p进制的形式输出.????? ?例如:A$=48 10 8????? 其意义为:将10进制数48,转换为8进制数输出.????? 输出结果:48 10 =60 8 ?????????? ? B.实数任意正整数进制间的互化????? ? C.负数进制：????? ???????? NOIP2000?????? 设计一个程序，读入一个十进制数的基数和一个负进制数的基数，并将此十进制数转换为此负 进制下的数：-R∈{-2，-3，-4,....-20}??????????????????????????????? ? 13.全排列与组合的生成????? 排列的生成：（1..n）????? procedure solve(dep:integer);????? var????? i:integer;????? begin????? ?if dep=n+1 then begin writeln(s); exit; end;????? ?for i