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

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

行业问题 2018-08-21 01:42:15 面试题库已帮助人

已知中序后序求前序

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;