求pascal二叉树和遍历知识...下午要考试了{最好讲精一点}
这个只能由 前序和中序求后序 或 由中序和后序求前序.
前序和中序求后序
var s1,s2:string;
procedure solve(s1,s2:string);
var k:integer;
begin
if length(s1)=1 then write(s1)//s1长度为1就直接输出
else begin
k:=pos(s1[1],s2);//s1[1]为根,k为当前根在中序遍历中的位置
if k>1 then solve(copy(s1,2,k-1),copy(s2,1,k-1));//递归求解左子树
if k<length(s2) then solve(copy(s1,k+1,length(s1)-k),copy(s2,k+1,length(s2)-k));//递归求解右子树
write(s2[k]);//后序遍历最后输出根
end;
end;
begin
readln(s1);//前序遍历序列
readln(s2);//中序遍历序列
solve(s1,s2);//递归求解
end.
你可以开watch看看s1 s2都怎么变,帮助理解
由中序和后序求前序思路一样,自己试着写写吧
^_^
5.1树的概念
树的递归定义如下：（1）至少有一个结点（称为根）（2）其它是互不相交的子树
1.树的度——也即是宽度，简单地说，就是结点的分支数。以组成该树各结点中最大的度作为该树的度，如上图的树，其度为3;树中度为零的结点称为叶结点或终端结点。树中度不为零的结点称为分枝结点或非终端结点。除根结点外的分枝结点统称为内部结点。
2.树的深度——组成该树各结点的最大层次，如上图，其深度为4；
3.森林——指若干棵互不相交的树的集合，如上图，去掉根结点A，其原来的二棵子树T1、T2、T3的集合{T1,T2,T3}就为森林；
4.有序树——指树中同层结点从左到右有次序排列，它们之间的次序不能互换，这样的树称为有序树，否则称为无序树。
5.树的表示
树的表示方法有许多，常用的方法是用括号：先将根结点放入一对圆括号中，然后把它的子树由左至右的顺序放入括号中，而对子树也采用同样的方法处理；同层子树与它的根结点用圆括号括起来，同层子树之间用逗号隔开，最后用闭括号括起来。如上图可写成如下形式：
(A(B(E(K,L),F),C(G),D(H(M),I,J)))
5. 2 二叉树
1.二叉树的基本形态：
二叉树也是递归定义的，其结点有左右子树之分，逻辑上二叉树有五种基本形态：
(1)空二叉树——(a)；
(2)只有一个根结点的二叉树——(b)；
(3)右子树为空的二叉树——(c)；
(4)左子树为空的二叉树——(d)；
(5)完全二叉树——(e)
注意：尽管二叉树与树有许多相似之处，但二叉树不是树的特殊情形。
2.两个重要的概念：
(1)完全二叉树——只有最下面的两层结点度小于2，并且最下面一层的结点都集中在该层最左边的若干位置的二叉树；
(2)满二叉树——除了叶结点外每一个结点都有左右子女且叶结点都处在最底层的二叉树,。
如下图：
完全二叉树
满二叉树
3.二叉树的性质
(1) 在二叉树中，第i层的结点总数不超过2^(i-1)；
(2) 深度为h的二叉树最多有2h-1个结点(h>=1)，最少有h个结点；
(3) 对于任意一棵二叉树，如果其叶结点数为N0，而度数为2的结点总数为N2，
则N0=N2+1；
(4) 具有n个结点的完全二叉树的深度为int（log2n）+1
(5)有N个结点的完全二叉树各结点如果用顺序方式存储，则结点之间有如下关系：
若I为结点编号则 如果I1，则其父结点的编号为I/2；
如果2*IN，则无左儿子；
如果2*I+1N，则无右儿子。
4.二叉树的存储结构：
(1）顺序存储方式
type node=record
data:datatype
l,r:integer;
end;
var tr:array[1..n] of node;
(2)链表存储方式，如：
type btree=^node；
node=record
data:datatye;
lchild,rchild:btree;
end;
5.普通树转换成二叉树：凡是兄弟就用线连起来，然后去掉父亲到儿子的连线，只留下父母到其第一个子女的连线。
6.二叉树的遍历运算（递归定义）
(1)先序遍历
访问根；按先序遍历左子树；按先序遍历右子树
(2)中序遍历
按中序遍历左子树；访问根；按中序遍历右子树
(3)后序遍历
按后序遍历左子树；按后序遍历右子树；访问根
例1.用顺序存储方式建立一棵有31个结点的满二叉树，并对其进行先序遍历。
program erchashu1;
var b:array[1..31] of char;
e:array[1..63] of byte;
n,h,i,k:integer;
procedure tree(t:integer);
begin
if e[t]=0 then exit
else
begin
write(b[t]);e[t]:=0;
t:=2*t;tree(t);
t:=t+1;tree(t);
end;
end;
begin
repeat
write('n=');readln(n);
until (n>0) and (n<6);
fillchar(e,sizeof(e),0);
k:=trunc(exp(n*ln(2)))-1;
for i:=1 to k do e[i]:=1;
for i:=1 to 26 do b[i]:=chr(64+i);
for i:=1 to 5 do b[26+i]:=chr(48+i);
h:=1 ;tree(h);
writeln;
end.
例2.用顺序存储方式建立一棵如图所示的二叉树，并对其进行先序遍历。
program tree1;
const n=15;
type node=record
data:char;
l,r:0..n;
end;
var tr:array[1..n] of node;
e:array[1..n] of 0..1;
i,j:integer;
procedure jtr;
var i:integer;
begin
for i:=1 to n do
with tr[i] do
readln(data,l,r);
end;
procedure search(m:integer);
begin
with tr[m] do
begin
write(data);
if l0 then search(l);
if r0 then search(r);
end;
end;
begin
jtr;search(1);writeln;
end.
例3 用链表存储方式生成上述二叉树，中序遍历之。
1.将上述二叉树用广义表表示为A(B(D,E(G)),C(F(,H)))
2.根据广义表串（以#结束）生成二叉树。
program ltree;
const n=8;
type trlist=^node;
node=record
da:char;
l,r:trlist;
end;
var s:array[1..n] of trlist;
p,root:trlist;
ch:char;
top,k:integer;
procedure creat(var head:trlist);
begin
read(ch);
top:=0;
while ch'#' do
begin
case ch of
'A'..'Z':begin new(p);p^.da:=ch;p^.l:=nil;p^.r:=nil;
if top0 then
case k of
1:s[top]^.l:=p;
2:s[top]^.r:=p;
end
end;
'(':begin top:=top+1;s[top]:=p;k:=1;end;
')': top:=top-1;
',': k:=2;
end;
read(ch);
end;
head:=s[1];
end;
procedure inorder(head:trlist);
begin
if head^.lnil then inorder(head^.l);
write(head^.da);
if head^.rnil then inorder(head^.r);
end;
begin
write('Input tree string:');
creat(root);
inorder(root);
end.
5.3 二叉树的应用
1. 哈夫曼树与哈夫曼码
树的路径长度：一棵树的每一个叶结点到根结点的路径长度的和。
带权二叉树：给树的叶结点赋上某个实数值（称叶结点的权）。
带权路径长度：各叶结点的路径长度与其权值的积的总和。
哈夫曼树（最优二叉树）：带权路径长度最小的二叉树。
如何构建哈夫树：（思想是：权越大离跟越近）
program gojiantree;
const n=4;m=7;
type node=record
w:real;
parent,lchild,rchild:0..m
end;
htree=array[1..m] of node;
var htree1:htree;
procedure gjtree(var ht:htree);
var i,j:integer;
small1,small2:real;
p1,p2:0..m;
begin
for i:=1 to m do
with ht[i] do
begin
w:=0;lchild:=0;rchild:=0;parent:=0;
end;
for i:=1 to n do read(ht[i].w);
for i:=n+1 to m do
begin
p1:=0;p2:=0;
small1:=1000;small2:=1000;
for j:=1 to i-1 do
if ht[j].parent=0 then
if ht[j].w<small1 then
begin small2:=small1;small1:=ht[j].w;p2:=p1;p1:=j end
else if ht[j].w<small2 then begin small2:=ht[j].w;p2:=j end;
ht[p1].parent:=i;
ht[p2].parent:=i;
ht[i].lchild:=p1;
ht[i].rchild:=p2;
ht[i].w:=ht[p1].w+ht[p2].w;
end;
end;
begin
gjtree(htree1);
end.
哈夫曼码：哈夫曼树的非叶结点到左右孩子的路径分别用0，1 表示，从根到叶的路径序列即为哈夫曼码。
哈夫曼码是不会发生译码多义性的不等长编码，广泛应用实际中。
（原因是任何一字符的编码不是更长编码的前缀部分，为什么？）
2.排序二叉树
排序二叉树：每一个参加排列的数据对应二叉树的一个结点，且任一结点如果有左（右）子树，则左（右）子树各结点的数据必须小（大）于该结点的数据。中序遍历排序二叉树即得排序结果。程序如下：
program pxtree;
const
a:array[1..8] of integer=(10,18,3,8,12,2,7,3);
type point=^nod;
nod=record
w:integer;
right,left:point ;
end;
var root,first:point;k:boolean;i:integer;
procedure hyt(d:integer;var p:point);
begin
if p=nil then
begin
new(p);
with p^ do begin w:=d;right:=nil;left:=nil end;
if k then begin root:=p; k:=false end;
end
else with p^ do if d>=w then hyt(d,right) else hyt(d,left);
end;
procedure hyt1(p:point);
begin
with p^ do
begin
if leftnil then hyt1(left);
write(w:4);
if rightnil then hyt1(right);
end
end;
begin
first:=nil;k:=true;
for i:=1 to 8 do hyt(a[i],first);
hyt1(root);writeln;
end.
3.堆排序
堆：设有数据元素的集合（R1,R2,R3,...Rn)它们是一棵顺序二叉树的结点且有
Ri=)
堆的性质：堆的根结点上的元素是堆中的最小元素，且堆的每一条路径上的元素都是有序的。
堆排序的思想是：
1）建初始堆（将结点[n/2],[ n/2]-1,...3,2,1分别调成堆）
2）当未排序完时
输出堆顶元素，删除堆顶元素，将剩余的元素重新建堆。
程序如下：
program duipx;
const n=8;
type arr=array[1..n] of integer;
var a:arr;i:integer;
procedure sift(var a:arr;l,m:integer);
var i,j, t:integer;
begin
i:=l;j:=2*i;t:=a[i];
while j<=m do
begin
if (ja[j+1]) then j:=j+1;
if t>a[j] then
begin a[i]:=a[j];i:=j;j:=2*i; end
else exit;
end;
a[i]:=t;
end;
begin
for i:=1 to n do read(a[i]);
for i:=(n div 2) downto 1 do
sift(a,i,n);
for i:=n downto 2 do
begin
write(a[1]:4);
a[1]:=a[i];
sift(a,1,i-1);
end;
writeln(a[1]:4);
end
1.树的度——也即是宽度，简单地说，就是结点的分支数。以组成该树各结点中最大的度作为该树的度，如上图的树，其度为3;树中度为零的结点称为叶结点或终端结点。树中度不为零的结点称为分枝结点或非终端结点。除根结点外的分枝结点统称为内部结点。
2.树的深度——组成该树各结点的最大层次，如上图，其深度为4；
3.森林——指若干棵互不相交的树的集合，如上图，去掉根结点A，其原来的二棵子树T1、T2、T3的集合{T1,T2,T3}就为森林；
4.有序树——指树中同层结点从左到右有次序排列，它们之间的次序不能互换，这样的树称为有序树，否则称为无序树。
5.树的表示
树的表示方法有许多，常用的方法是用括号：先将根结点放入一对圆括号中，然后把它的子树由左至右的顺序放入括号中，而对子树也采用同样的方法处理；同层子树与它的根结点用圆括号括起来，同层子树之间用逗号隔开，最后用闭括号括起来。如上图可写成如下形式：
(A(B(E(K,L),F),C(G),D(H(M),I,J)))
5. 2 二叉树
1.二叉树的基本形态：
二叉树也是递归定义的，其结点有左右子树之分，逻辑上二叉树有五种基本形态：
(1)空二叉树——(a)；
(2)只有一个根结点的二叉树——(b)；
(3)右子树为空的二叉树——(c)；
(4)左子树为空的二叉树——(d)；
(5)完全二叉树——(e)
注意：尽管二叉树与树有许多相似之处，但二叉树不是树的特殊情形。
2.两个重要的概念：
(1)完全二叉树——只有最下面的两层结点度小于2，并且最下面一层的结点都集中在该层最左边的若干位置的二叉树；
(2)满二叉树——除了叶结点外每一个结点都有左右子女且叶结点都处在最底层的二叉树,。
3.二叉树的性质
(1) 在二叉树中，第i层的结点总数不超过2^(i-1)；
(2) 深度为h的二叉树最多有2h-1个结点(h>=1)，最少有h个结点；
(3) 对于任意一棵二叉树，如果其叶结点数为N0，而度数为2的结点总数为N2，
则N0=N2+1；
(4) 具有n个结点的完全二叉树的深度为int（log2n）+1
(5)有N个结点的完全二叉树各结点如果用顺序方式存储
若I为结点编号则 如果I<>1，则其父结点的编号为I/2；
如果2*I<=N，则其左儿子（即左子树的根结点）的编号为2*I；若2*I>N，则无左儿子；
如果2*I+1<=N，则其右儿子的结点编号为2*I+1；若2*I+1>N，则无右儿子。
4.二叉树的存储结构：
(1）顺序存储方式
type node=record
data:datatype
l,r:integer;
end;
var tr:array[1..n] of node;
(2)链表存储方式，如：
type btree=^node；
node=record
data:datatye;
lchild,rchild:btree;
end;
5.普通树转换成二叉树：凡是兄弟就用线连起来，然后去掉父亲到儿子的连线，只留下父母到其第一个子女的连线。
6.二叉树的遍历运算（递归定义）
(1)先序遍历
访问根；按先序遍历左子树；按先序遍历右子树
(2)中序遍历
按中序遍历左子树；访问根；按中序遍历右子树
(3)后序遍历
按后序遍历左子树；按后序遍历右子树；访问根
那我说简单一点：二叉树，就是度（结点分支）为2的树，
完全二叉树——只有最下面的两层结点度小于2，并且最下面一层的结点都集中在该层最左边的若干位置的二叉树；
满二叉树——除了叶结点外每一个结点都有左右子女且叶结点都处在最底层的二叉树,。
遍历：
(1)先序遍历 （根，左，右）
先访问根，按访问左子树（同样按根，左，右访问），再访问右子树（同样按根，左，右访问）；
(2)中序遍历
先访问左子树（同样按左，根，右访问）；再访问根；按中序遍历右子树（同样按左，根，右访问）
(3)后序遍历 （左，根，右）
先访问左子树（同样按左，右，根访问）；再访问右子树（同样按左，右，根访问）；访问根
下面都是从我的FlashGet里面找的
http://mydelphi.8u8.com/download/delphi5.rar Delphi5编成指南
http://mydelphi.8u8.com/download/delphi4.rar Delphi4核心编程技术
http://member.netease.com/~chnwzy/04.mp3 GNR的Don't Cry
^是指针。
pascal
5.1树的概念
树的递归定义如下：（1）至少有一个结点（称为根）（2）其它是互不相交的子树
1.树的度——也即是宽度，简单地说，就是结点的分支数。以组成该树各结点中最大的度作为该树的度，如上图的树，其度为3;树中度为零的结点称为叶结点或终端结点。树中度不为零的结点称为分枝结点或非终端结点。除根结点外的分枝结点统称为内部结点。
2.树的深度——组成该树各结点的最大层次，如上图，其深度为4；
3.森林——指若干棵互不相交的树的集合，如上图，去掉根结点A，其原来的二棵子树T1、T2、T3的集合{T1,T2,T3}就为森林；
4.有序树——指树中同层结点从左到右有次序排列，它们之间的次序不能互换，这样的树称为有序树，否则称为无序树。
5.树的表示
树的表示方法有许多，常用的方法是用括号：先将根结点放入一对圆括号中，然后把它的子树由左至右的顺序放入括号中，而对子树也采用同样的方法处理；同层子树与它的根结点用圆括号括起来，同层子树之间用逗号隔开，最后用闭括号括起来。如上图可写成如下形式：
(A(B(E(K,L),F),C(G),D(H(M),I,J)))
5. 2 二叉树
1.二叉树的基本形态：
二叉树也是递归定义的，其结点有左右子树之分，逻辑上二叉树有五种基本形态：
(1)空二叉树——(a)；
(2)只有一个根结点的二叉树——(b)；
(3)右子树为空的二叉树——(c)；
(4)左子树为空的二叉树——(d)；
(5)完全二叉树——(e)
注意：尽管二叉树与树有许多相似之处，但二叉树不是树的特殊情形。
2.两个重要的概念：
(1)完全二叉树——只有最下面的两层结点度小于2，并且最下面一层的结点都集中在该层最左边的若干位置的二叉树；
(2)满二叉树——除了叶结点外每一个结点都有左右子女且叶结点都处在最底层的二叉树,。
如下图：
完全二叉树
满二叉树
3.二叉树的性质
(1) 在二叉树中，第i层的结点总数不超过2^(i-1)；
(2) 深度为h的二叉树最多有2h-1个结点(h>=1)，最少有h个结点；
(3) 对于任意一棵二叉树，如果其叶结点数为N0，而度数为2的结点总数为N2，
则N0=N2+1；
(4) 具有n个结点的完全二叉树的深度为int（log2n）+1
(5)有N个结点的完全二叉树各结点如果用顺序方式存储，则结点之间有如下关系：
若I为结点编号则 如果I<>1，则其父结点的编号为I/2；
如果2*I<=N，则其左儿子（即左子树的根结点）的编号为2*I；若2*I>N，则无左儿子；
如果2*I+1<=N，则其右儿子的结点编号为2*I+1；若2*I+1>N，则无右儿子。
4.二叉树的存储结构：
(1）顺序存储方式
type node=record
data:datatype
l,r:integer;
end;
var tr:array[1..n] of node;
(2)链表存储方式，如：
type btree=^node；
node=record
data:datatye;
lchild,rchild:btree;
end;
5.普通树转换成二叉树：凡是兄弟就用线连起来，然后去掉父亲到儿子的连线，只留下父母到其第一个子女的连线。
6.二叉树的遍历运算（递归定义）
(1)先序遍历
访问根；按先序遍历左子树；按先序遍历右子树
(2)中序遍历
按中序遍历左子树；访问根；按中序遍历右子树
(3)后序遍历
按后序遍历左子树；按后序遍历右子树；访问根
例1.用顺序存储方式建立一棵有31个结点的满二叉树，并对其进行先序遍历。
program erchashu1;
var b:array[1..31] of char;
e:array[1..63] of byte;
n,h,i,k:integer;
procedure tree(t:integer);
begin
if e[t]=0 then exit
else
begin
write(b[t]);e[t]:=0;
t:=2*t;tree(t);
t:=t+1;tree(t);
end;
end;
begin
repeat
write('n=');readln(n);
until (n>0) and (n<6);
fillchar(e,sizeof(e),0);
k:=trunc(exp(n*ln(2)))-1;
for i:=1 to k do e[i]:=1;
for i:=1 to 26 do b[i]:=chr(64+i);
for i:=1 to 5 do b[26+i]:=chr(48+i);
h:=1 ;tree(h);
writeln;
end.
例2.用顺序存储方式建立一棵如图所示的二叉树，并对其进行先序遍历。
program tree1;
const n=15;
type node=record
data:char;
l,r:0..n;
end;
var tr:array[1..n] of node;
e:array[1..n] of 0..1;
i,j:integer;
procedure jtr;
var i:integer;
begin
for i:=1 to n do
with tr[i] do
readln(data,l,r);
end;
procedure search(m:integer);
begin
with tr[m] do
begin
write(data);
if l<>0 then search(l);
if r<>0 then search(r);
end;
end;
begin
jtr;search(1);writeln;
end.
例3 用链表存储方式生成上述二叉树，中序遍历之。
1.将上述二叉树用广义表表示为A(B(D,E(G)),C(F(,H)))
2.根据广义表串（以#结束）生成二叉树。
program ltree;
const n=8;
type trlist=^node;
node=record
da:char;
l,r:trlist;
end;
var s:array[1..n] of trlist;
p,root:trlist;
ch:char;
top,k:integer;
procedure creat(var head:trlist);
begin
read(ch);
top:=0;
while ch<>'#' do
begin
case ch of
'A'..'Z':begin new(p);p^.da:=ch;p^.l:=nil;p^.r:=nil;
if top<>0 then
case k of
1:s[top]^.l:=p;
2:s[top]^.r:=p;
end
end;
'(':begin top:=top+1;s[top]:=p;k:=1;end;
')': top:=top-1;
',': k:=2;
end;
read(ch);
end;
head:=s[1];
end;
procedure inorder(head:trlist);
begin
if head^.l<>nil then inorder(head^.l);
write(head^.da);
if head^.r<>nil then inorder(head^.r);
end;
begin
write('Input tree string:');
creat(root);
inorder(root);
end.
5.3 二叉树的应用
1. 哈夫曼树与哈夫曼码
树的路径长度：一棵树的每一个叶结点到根结点的路径长度的和。
带权二叉树：给树的叶结点赋上某个实数值（称叶结点的权）。
带权路径长度：各叶结点的路径长度与其权值的积的总和。
哈夫曼树（最优二叉树）：带权路径长度最小的二叉树。
如何构建哈夫树：（思想是：权越大离跟越近）
program gojiantree;
const n=4;m=7;
type node=record
w:real;
parent,lchild,rchild:0..m
end;
htree=array[1..m] of node;
var htree1:htree;
procedure gjtree(var ht:htree);
var i,j:integer;
small1,small2:real;
p1,p2:0..m;
begin
for i:=1 to m do
with ht[i] do
begin
w:=0;lchild:=0;rchild:=0;parent:=0;
end;
for i:=1 to n do read(ht[i].w);
for i:=n+1 to m do
begin
p1:=0;p2:=0;
small1:=1000;small2:=1000;
for j:=1 to i-1 do
if ht[j].parent=0 then
if ht[j].w<small1 then
begin small2:=small1;small1:=ht[j].w;p2:=p1;p1:=j end
else if ht[j].w<small2 then begin small2:=ht[j].w;p2:=j end;
ht[p1].parent:=i;
ht[p2].parent:=i;
ht[i].lchild:=p1;
ht[i].rchild:=p2;
ht[i].w:=ht[p1].w+ht[p2].w;
end;
end;
begin
gjtree(htree1);
end.
哈夫曼码：哈夫曼树的非叶结点到左右孩子的路径分别用0，1 表示，从根到叶的路径序列即为哈夫曼码。
哈夫曼码是不会发生译码多义性的不等长编码，广泛应用实际中。
（原因是任何一字符的编码不是更长编码的前缀部分，为什么？）
2.排序二叉树
排序二叉树：每一个参加排列的数据对应二叉树的一个结点，且任一结点如果有左（右）子树，则左（右）子树各结点的数据必须小（大）于该结点的数据。中序遍历排序二叉树即得排序结果。程序如下：
program pxtree;
const
a:array[1..8] of integer=(10,18,3,8,12,2,7,3);
type point=^nod;
nod=record
w:integer;
right,left:point ;
end;
var root,first:point;k:boolean;i:integer;
procedure hyt(d:integer;var p:point);
begin
if p=nil then
begin
new(p);
with p^ do begin w:=d;right:=nil;left:=nil end;
if k then begin root:=p; k:=false end;
end
else with p^ do if d>=w then hyt(d,right) else hyt(d,left);
end;
procedure hyt1(p:point);
begin
with p^ do
begin
if left<>nil then hyt1(left);
write(w:4);
if right<>nil then hyt1(right);
end
end;
begin
first:=nil;k:=true;
for i:=1 to 8 do hyt(a[i],first);
hyt1(root);writeln;
end.
3.堆排序
堆：设有数据元素的集合（R1,R2,R3,...Rn)它们是一棵顺序二叉树的结点且有
Ri<=R2i 和Ri<=R2i+1(或>=)
堆的性质：堆的根结点上的元素是堆中的最小元素，且堆的每一条路径上的元素都是有序的。
堆排序的思想是：
1）建初始堆（将结点[n/2],[ n/2]-1,...3,2,1分别调成堆）
2）当未排序完时
输出堆顶元素，删除堆顶元素，将剩余的元素重新建堆。
程序如下：
program duipx;
const n=8;
type arr=array[1..n] of integer;
var a:arr;i:integer;
procedure sift(var a:arr;l,m:integer);
var i,j, t:integer;
begin
i:=l;j:=2*i;t:=a[i];
while j<=m do
begin
if (j<m) and (a[j]>a[j+1]) then j:=j+1;
if t>a[j] then
begin a[i]:=a[j];i:=j;j:=2*i; end
else exit;
end;
a[i]:=t;
end;
begin
for i:=1 to n do read(a[i]);
for i:=(n div 2) downto 1 do
sift(a,i,n);
for i:=n downto 2 do
begin
write(a[1]:4);
a[1]:=a[i];
sift(a,1,i-1);
end;
writeln(a[1]:4);
end
Pascal二叉树后序中序转前序
var st1,st2,pre:string;procedure solve(mid,post:string);var i:integer;begin if (mid='') or (post='') then exit;pre:=pre+post[length(post)];i:=pos(post[length(post)],mid);solve(copy(mid,1,i-1),copy(post,1,i-1));solve(copy(mid,i+1,length(mid)-i),copy(post,...
求pascal中二叉树的前序遍历
const max=100;var __a:array[1..max,1..3] of longint;__i,j,n:longint;__s:set of 1..max;procedure d(k:longint);__begin ___if a[k,2]<>0 then ___d(a[k,2]);___writeln(a[k,1]);___if a[k,3]<>0 then ___d(a[k,3]);__end;begin __readln(n)...
给出二叉树,求他的前序遍历,中序遍历和后序遍历pascal
program wapiknow;var l,r:array [0..20] of longint; f:array [0..20] of boolean; n,i,Root:longint;procedure travel1(x:longint);begin if (x=0) then exit; write(x,' '); travel1(l[x]); travel1(r[x]);end;procedure travel2(x:longint);begin ...
在free pascal中,怎样用顺序存储结构输入一个二叉树?多谢!!
提供两个思路 第一个 就类似heap那样开一个足够大的数组 a:array [1..maxn] of Tnode;然后把 a[1..maxn div 2]是它的左子树 a[maxn div 2+1..maxn]是它的右子树 第二个 就是开一个大数组自己去模拟动态数据结构 type Tnode=record data,lptr,rptr:integer; end;data就是节点的...
一颗二叉树有十个节点则至多有几个节点有2个子节点 ?? 急急急急...
思考：有几个子结点对应着该结点的度数就为几，所以可 设度为0的结点数为n0，度为1的结点数为n1，度为2的结点数为n2，由题意：n0+n1+n2=10 在二叉树中有：n0=n2+1；所以有2*n2+n1=9;所以n1的值为奇数，最小的值为1 可知n2最大为4。即为最多有4个结点有2个子结点 ...
为什么不用pascal写操作系统
可惜的是 Pascal 第二次流行最后也没落了。而且当时文件 IO 简陋，不支持直接操作内存，最严重的缺陷可能要算不同长度的字符串属于不同的数据类型，比如一个函数的参数是一个长度20的字符串，每次传递字符串的长度必须是20，上课学习写二叉树算法足够用了，对于商业软件显然是不行的。望采纳，谢谢 ...
一道pascal题:输入10个正整数,将这10个数字按从大到小的顺序排列_百度...
堆:设有数据元素的集合(R1,R2,R3,...Rn)它们是一棵顺序二叉树的结点且有 Ri<=R2i 和Ri<=R2i+1(或>=)堆的性质:堆的根结点上的元素是堆中的最小元素,且堆的每一条路径上的元素都是有序的。堆排序的思想是:1)建初始堆(将结点[n\/2],[ n\/2]-1,...3,2,1分别调成堆)2)当未排序完时 输出...
pascal为什么变得不流行了
每次传递字符串的长度必须是20，上课学习写二叉树算法足够用了，对于商业软件显然是不行的。Unix 的作者之一 Brian Kernighan 就写文章说过这些事情：Why Pascal is Not My Favorite Programming Language，开发 Unix 时没有用 Pascal，而是设计了新的语言： C 语言。随着 Unix 的流行，C 以及后来的 C++...
给一些程序填空题,PASCAL的
2.N叉树题目描述:我们都了解二叉树的先根遍历,中根遍历和后根遍历。当知道先根遍历的结果和中根遍历结果的时候,我们可以唯一的确定二叉树;同样的,如果知道了后根遍历的结果和中根遍历结果,二叉树也是唯一确定的。但是如果只知道先根遍历和后根遍历的结果,二叉树就不是唯一的了。但是我们可以计算满足条件的不同...
求几道pascal【栈】的简单习题
二叉树的中序遍历序列方法为:左中右 二叉树的后序遍历序列方法为:左右中 我们可以从后序遍历中得知中间的节点 再结合中序遍历得知左右节点 先看后序遍历GDBEHFCA的最后一个字母 再在中序遍历中找出这个字母，中序遍历由此可分为3部分，第一部分即该树的左子树，第二部分为根节点，第三部分为该树...
锐欣丹桂： 主要是分治的思想,每次判断一种分割左右子树的方案是否可行,可行的话就递归 { Problem: travel. Author: zw } Program zw_travel; Var i,j,k,o,p,n,m,ans:longint; s1,s2:string; Procedure init; begin readln(s1); readln(s2); end; Function check(f,l:...
平武县13855292956： PASCAL 二叉树的遍历问题 - ？
锐欣丹桂： 这个只能由 前序和中序求后序 或 由中序和后序求前序.前序和中序求后序 var s1,s2:string; procedure solve(s1,s2:string); var k:integer; begin if length(s1)=1 then write(s1)//s1长度为1就直接输出 else begin k:=pos(s1[1],s2);//s1[1]为根,k为当前根在...
平武县13855292956： Pascal 二叉树？
锐欣丹桂： 前序遍历就是先访问根节点,然后分别访问左右子节点完全二叉树是除最后一层以外,其他各层的节点数都达到最到的树,也就是说对于一颗高度为h的树,1~h-1层是一棵满二叉树,1 < 第h层的节点数 < 2^(h-1).满二叉树就是树的所有层节点都达到最到,任何一个节点都有2个子节点,总结点数=2^h-1,h是树高. “最到”应该是“最大”,这个拼音输入法不好用
平武县13855292956： 建立二叉树并进行中序遍历(Pascal语言) - ？
锐欣丹桂： TypeTree = ^Node;Node = RecordKey : Integer;Left, Right : Tree;End; VarRoot : Tree;i, n, x : Integer;Procedure Print(p : Tree); {中根遍历打印过程}BeginIf p = Nil Then Exit;Print(p^. Left);Write(p^. Key, ' ');Print(p^. Right);End;...
平武县13855292956： pascal求3道有关树的遍历 - ？
锐欣丹桂： 1.先序遍历的操作定义如下: 若二叉树为空,则空操作,否则 ① 访问根结点 ② 先序遍历左子树 ③ 先序遍历右子树 很明显,这是一种递归定义,下面给出一种手工方法(括号法)求先序遍历的结果. ={1,2,3,4,5,6,7,8,9} {所有结点} ={1,{2,4,5,7},...
平武县13855292956： 关于二叉树的遍历问题 FreePascal？
锐欣丹桂：#include <stdio.h> #include <malloc.h> #include<stdlib.h> typedef char DataType;/*定义DataType类型*/ typedef enum {Link,Thread}PointerTag; typedef struct node{ DataType data; struct node *lchild, *rchild;/*左右孩子子树*/ PointerTag LTag,...
平武县13855292956： pascal二叉树 - ？
锐欣丹桂： 我来告诉你啊.前序的顺序是:根,左,右 中序的顺序是:左,根,右 后序的顺序是:左,右,根 如果你要求中序,那么我出个例子 前序ABCDE 后序CEBDA 中序就是:CBAED 推断过程就是:第一步,确定根A(因为后序的最后一个字母和...
平武县13855292956： 跪求知道二叉树的中序遍历和后续遍历求前序遍历程序.必须是pascal的.好的程序一定给采纳.跪求! - ？
锐欣丹桂： 程序: vars1,s2:string; procedure solve(s1,s2:string); vark:integer; beginif length(s2)=1 then write(s2)else begink:=pos(s2[length(s2)],s1);write(s1[k]);if k>1 then solve(copy(s1,1,k-1),copy(s2,1,k-1));if k<length(s1)thensolve(copy(s1,k+1,...
平武县13855292956： pascal中二叉树遍历 - ？
锐欣丹桂： 哈,我也是编程爱好者,用Pascal,在北京.看看一下网址吧!经常不间断更新!http://www.mydrs.org/program/ 给你一个——二叉树后根遍历:Program Tree (input,output); Var p : Word; Mid,Pre : String; Procedure Init; Begin Write('In-order:'); ...
平武县13855292956： pascal二叉树是什么? - ？
锐欣丹桂： 二叉树是另一种树型结构,它的特点是每个结点至多只有二棵子树(即二叉树中不存在度大于2的结点),并且,二叉树的子树有左右之分,其次序不能任意颠倒.一棵深度为k且有2(k)-1个结点的二叉树称为满二叉树,给每个结点编号,如果有深度为k的,有n个结点的二叉树,当且仅当其每一个结点都与深度为k的满二叉树中编号从1至n的结点一一对应时,称之为完全二叉树.用途:当问题结点最多有两个分支时,或要将一个大问题分解两个相同小问题:如表达式求值 将一很长的表达式分解为:左操作数,操作符,右操作数 左操作数可能又是一个表达式,继续分解,右操作数也一样 又如:双路合并排序,快速排序,是非题推断等...
