导航：题目详情 | 答案解析 | 相关问题 | 最新问题

已知前序中序求后序 procedure Solve（pre mid:string);var i:integer;

行业问题 2018-08-20 22:36:21 面试题库已帮助人

已知前序中序求后序

procedure Solve(pre,mid:string);

var i:integer;

热搜：三相四线制供电线路,已知作星形

答案解析

难度★★☆ 搜索

正确答案：
begin
if (pre='') or (mid='') then exit;
i:=pos(pre[1],mid);
solve(copy(pre,2,i),copy(mid,1,i-1));
solve(copy(pre,i+1,length(pre)-i),copy(mid,i+1,length(mid)-i));
post:=post+pre[1]; {加上根，递归结束后post即为后序遍历}
end;