zoukankan      html  css  js  c++  java
  • 树的双亲表存储

     /* c6-4.h 树的双亲表存储表示 */
     #define MAX_TREE_SIZE 100
     typedef struct
     {
       TElemType data;
       int parent; /* 双亲位置域 */
     } PTNode;
     typedef struct
     {
       PTNode nodes[MAX_TREE_SIZE];
       int n; /* 结点数 */
     } PTree;
     /* bo6-4.c 树的双亲表存储(存储结构由c6-4.h定义)的基本操作(14个) */
     Status InitTree(PTree *T)
     { /* 操作结果: 构造空树T */
       (*T).n=0;
       return OK;
     }
    
     void DestroyTree()
     { /* 由于PTree是定长类型,无法销毁 */
     }
    
     typedef struct
     {
       int num;
       TElemType name;
     }QElemType; /* 定义队列元素类型 */
     #include"c3-2.h" /* 定义LinkQueue类型 */
     #include"bo3-2.c" /* LinkQueue类型的基本操作 */
     Status CreateTree(PTree *T)
     { /* 操作结果: 构造树T */
       LinkQueue q;
       QElemType p,qq;
       int i=1,j,l;
       char c[MAX_TREE_SIZE]; /* 临时存放孩子结点数组 */
       InitQueue(&q); /* 初始化队列 */
       printf("请输入根结点(字符型,空格为空): ");
       scanf("%c%*c",&(*T).nodes[0].data); /* 根结点序号为0,%*c吃掉回车符 */
       if((*T).nodes[0].data!=Nil) /* 非空树 */
       {
         (*T).nodes[0].parent=-1; /* 根结点无双亲 */
         qq.name=(*T).nodes[0].data;
         qq.num=0;
         EnQueue(&q,qq); /* 入队此结点 */
         while(i<MAX_TREE_SIZE&&!QueueEmpty(q)) /* 数组未满且队不空 */
         {
           DeQueue(&q,&qq); /* 出队一个结点 */
           printf("请按长幼顺序输入结点%c的所有孩子: ",qq.name);
           gets(c);
           l=strlen(c);
           for(j=0;j<l;j++)
           {
             (*T).nodes[i].data=c[j];
             (*T).nodes[i].parent=qq.num;
             p.name=c[j];
             p.num=i;
             EnQueue(&q,p); /* 入队此结点 */
             i++;
           }
         }
         if(i>MAX_TREE_SIZE)
         {
           printf("结点数超过数组容量\n");
           exit(OVERFLOW);
         }
         (*T).n=i;
       }
       else
         (*T).n=0;
       return OK;
     }
    
     #define ClearTree InitTree /* 二者操作相同 */
    
     Status TreeEmpty(PTree T)
     { /* 初始条件: 树T存在。操作结果: 若T为空树,则返回TRUE,否则返回FALSE */
       if(T.n)
         return FALSE;
       else
         return TRUE;
     }
    
     int TreeDepth(PTree T)
     { /* 初始条件: 树T存在。操作结果: 返回T的深度 */
       int k,m,def,max=0;
       for(k=0;k<T.n;++k)
       {
         def=1; /* 初始化本际点的深度 */
         m=T.nodes[k].parent;
         while(m!=-1)
         {
           m=T.nodes[m].parent;
           def++;
         }
         if(max<def)
           max=def;
       }
       return max; /* 最大深度 */
     }
    
     TElemType Root(PTree T)
     { /* 初始条件: 树T存在。操作结果: 返回T的根 */
       int i;
       for(i=0;i<T.n;i++)
         if(T.nodes[i].parent<0)
           return T.nodes[i].data;
       return Nil;
     }
    
     TElemType Value(PTree T,int i)
     { /* 初始条件: 树T存在,i是树T中结点的序号。操作结果: 返回第i个结点的值 */
       if(i<T.n)
         return T.nodes[i].data;
       else
         return Nil;
     }
    
     Status Assign(PTree *T,TElemType cur_e,TElemType value)
     { /* 初始条件: 树T存在,cur_e是树T中结点的值。操作结果: 改cur_e为value */
       int j;
       for(j=0;j<(*T).n;j++)
       {
         if((*T).nodes[j].data==cur_e)
         {
           (*T).nodes[j].data=value;
           return OK;
         }
       }
       return ERROR;
     }
    
     TElemType Parent(PTree T,TElemType cur_e)
     { /* 初始条件: 树T存在,cur_e是T中某个结点 */
       /* 操作结果: 若cur_e是T的非根结点,则返回它的双亲,否则函数值为"空" */
       int j;
       for(j=1;j<T.n;j++) /* 根结点序号为0 */
         if(T.nodes[j].data==cur_e)
           return T.nodes[T.nodes[j].parent].data;
       return Nil;
     }
    
     TElemType LeftChild(PTree T,TElemType cur_e)
     { /* 初始条件: 树T存在,cur_e是T中某个结点 */
       /* 操作结果: 若cur_e是T的非叶子结点,则返回它的最左孩子,否则返回"空" */
       int i,j;
       for(i=0;i<T.n;i++)
         if(T.nodes[i].data==cur_e) /* 找到cur_e,其序号为i */
           break;
       for(j=i+1;j<T.n;j++) /* 根据树的构造函数,孩子的序号>其双亲的序号 */
         if(T.nodes[j].parent==i) /* 根据树的构造函数,最左孩子(长子)的序号<其它孩子的序号 */
           return T.nodes[j].data;
       return Nil;
     }
    
     TElemType RightSibling(PTree T,TElemType cur_e)
     { /* 初始条件: 树T存在,cur_e是T中某个结点 */
       /* 操作结果: 若cur_e有右(下一个)兄弟,则返回它的右兄弟,否则返回"空" */
       int i;
       for(i=0;i<T.n;i++)
         if(T.nodes[i].data==cur_e) /* 找到cur_e,其序号为i */
           break;
       if(T.nodes[i+1].parent==T.nodes[i].parent)
       /* 根据树的构造函数,若cur_e有右兄弟的话则右兄弟紧接其后 */
         return T.nodes[i+1].data;
       return Nil;
     }
    
     Status Print(PTree T)
     { /* 输出树T。加 */
       int i;
       printf("结点个数=%d\n",T.n);
       printf(" 结点 双亲\n");
       for(i=0;i<T.n;i++)
       {
         printf("    %c",Value(T,i)); /* 结点 */
         if(T.nodes[i].parent>=0) /* 有双亲 */
           printf("    %c",Value(T,T.nodes[i].parent)); /* 双亲 */
         printf("\n");
       }
       return OK;
     }
    
     Status InsertChild(PTree *T,TElemType p,int i,PTree c)
     { /* 初始条件: 树T存在,p是T中某个结点,1≤i≤p所指结点的度+1,非空树c与T不相交 */
       /* 操作结果: 插入c为T中p结点的第i棵子树 */
       int j,k,l,f=1,n=0; /* 设交换标志f的初值为1,p的孩子数n的初值为0 */
       PTNode t;
       if(!TreeEmpty(*T)) /* T不空 */
       {
         for(j=0;j<(*T).n;j++) /* 在T中找p的序号 */
           if((*T).nodes[j].data==p) /* p的序号为j */
             break;
         l=j+1; /* 如果c是p的第1棵子树,则插在j+1处 */
         if(i>1) /* c不是p的第1棵子树 */
         {
           for(k=j+1;k<(*T).n;k++) /* 从j+1开始找p的前i-1个孩子 */
             if((*T).nodes[k].parent==j) /* 当前结点是p的孩子 */
             {
               n++; /* 孩子数加1 */
               if(n==i-1) /* 找到p的第i-1个孩子,其序号为k1 */
                 break;
             }
           l=k+1; /* c插在k+1处 */
         } /* p的序号为j,c插在l处 */
         if(l<(*T).n) /* 插入点l不在最后 */
           for(k=(*T).n-1;k>=l;k--) /* 依次将序号l以后的结点向后移c.n个位置 */
           {
             (*T).nodes[k+c.n]=(*T).nodes[k];
             if((*T).nodes[k].parent>=l)
               (*T).nodes[k+c.n].parent+=c.n;
           }
         for(k=0;k<c.n;k++)
         {
           (*T).nodes[l+k].data=c.nodes[k].data; /* 依次将树c的所有结点插于此处 */
           (*T).nodes[l+k].parent=c.nodes[k].parent+l;
         }
         (*T).nodes[l].parent=j; /* 树c的根结点的双亲为p */
         (*T).n+=c.n; /* 树T的结点数加c.n个 */
         while(f)
         { /* 从插入点之后,将结点仍按层序排列 */
           f=0; /* 交换标志置0 */
           for(j=l;j<(*T).n-1;j++)
             if((*T).nodes[j].parent>(*T).nodes[j+1].parent)
             {/* 如果结点j的双亲排在结点j+1的双亲之后(树没有按层序排列),交换两结点*/
               t=(*T).nodes[j];
               (*T).nodes[j]=(*T).nodes[j+1];
               (*T).nodes[j+1]=t;
               f=1; /* 交换标志置1 */
               for(k=j;k<(*T).n;k++) /* 改变双亲序号 */
                 if((*T).nodes[k].parent==j)
                   (*T).nodes[k].parent++; /* 双亲序号改为j+1 */
                 else if((*T).nodes[k].parent==j+1)
                   (*T).nodes[k].parent--; /* 双亲序号改为j */
             }
         }
         return OK;
       }
       else /* 树T不存在 */
         return ERROR;
     }
    
     Status deleted[MAX_TREE_SIZE+1]; /* 删除标志数组(全局量) */
     void DeleteChild(PTree *T,TElemType p,int i)
     { /* 初始条件: 树T存在,p是T中某个结点,1≤i≤p所指结点的度 */
       /* 操作结果: 删除T中结点p的第i棵子树 */
       int j,k,n=0;
       LinkQueue q;
       QElemType pq,qq;
       for(j=0;j<=(*T).n;j++)
         deleted[j]=0; /* 置初值为0(不删除标记) */
       pq.name='a'; /* 此成员不用 */
       InitQueue(&q); /* 初始化队列 */
       for(j=0;j<(*T).n;j++)
         if((*T).nodes[j].data==p)
           break; /* j为结点p的序号 */
       for(k=j+1;k<(*T).n;k++)
       {
         if((*T).nodes[k].parent==j)
           n++;
         if(n==i)
           break; /* k为p的第i棵子树结点的序号 */
       }
       if(k<(*T).n) /* p的第i棵子树结点存在 */
       {
         n=0;
         pq.num=k;
         deleted[k]=1; /* 置删除标记 */
         n++;
         EnQueue(&q,pq);
         while(!QueueEmpty(q))
         {
           DeQueue(&q,&qq);
           for(j=qq.num+1;j<(*T).n;j++)
             if((*T).nodes[j].parent==qq.num)
             {
               pq.num=j;
               deleted[j]=1; /* 置删除标记 */
               n++;
               EnQueue(&q,pq);
             }
         }
         for(j=0;j<(*T).n;j++)
           if(deleted[j]==1)
           {
             for(k=j+1;k<=(*T).n;k++)
             {
               deleted[k-1]=deleted[k];
               (*T).nodes[k-1]=(*T).nodes[k];
               if((*T).nodes[k].parent>j)
                 (*T).nodes[k-1].parent--;
             }
             j--;
           }
         (*T).n-=n; /* n为待删除结点数 */
       }
     }
    
     void TraverseTree(PTree T,void(*Visit)(TElemType))
     { /* 初始条件:二叉树T存在,Visit是对结点操作的应用函数 */
       /* 操作结果:层序遍历树T,对每个结点调用函数Visit一次且仅一次 */
       int i;
       for(i=0;i<T.n;i++)
         Visit(T.nodes[i].data);
       printf("\n");
     }
     /* main6-4.c 检验bo6-4.c的主程序 */
     #include"c1.h"
     typedef char TElemType;
     TElemType Nil=' '; /* 以空格符为空 */
     #include"c6-4.h"
     #include"bo6-4.c"
    
     void vi(TElemType c)
     {
       printf("%c ",c);
     }
    
     void main()
     {
       int i;
       PTree T,p;
       TElemType e,e1;
       InitTree(&T);
       printf("构造空树后,树空否? %d(1:是 0:否) 树根为%c 树的深度为%d\n",TreeEmpty(T),Root(T),TreeDepth(T));
       CreateTree(&T);
       printf("构造树T后,树空否? %d(1:是 0:否) 树根为%c 树的深度为%d\n",TreeEmpty(T),Root(T),TreeDepth(T));
       printf("层序遍历树T:\n");
       TraverseTree(T,vi);
       printf("请输入待修改的结点的值 新值: ");
       scanf("%c%*c%c%*c",&e,&e1);
       Assign(&T,e,e1);
       printf("层序遍历修改后的树T:\n");
       TraverseTree(T,vi);
       printf("%c的双亲是%c,长子是%c,下一个兄弟是%c\n",e1,Parent(T,e1),LeftChild(T,e1),RightSibling(T,e1));
       printf("建立树p:\n");
       InitTree(&p);
       CreateTree(&p);
       printf("层序遍历树p:\n");
       TraverseTree(p,vi);
       printf("将树p插到树T中,请输入T中p的双亲结点 子树序号: ");
       scanf("%c%d%*c",&e,&i);
       InsertChild(&T,e,i,p);
       Print(T);
       printf("删除树T中结点e的第i棵子树,请输入e i: ");
       scanf("%c%d",&e,&i);
       DeleteChild(&T,e,i);
       Print(T);
     }
    作者:cpoint
    本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利.
  • 相关阅读:
    python技巧31[移植python2.x到3.x]
    python转载[正则表达式指南]
    Linux守护进程(init.d和xinetd)
    系统host文件的使用
    python技巧31[python文件的encoding和str的decode]
    python类库26[读写mysql]
    Windows批处理中文件的属性
    python类库31[读取环境变量]
    python基础31[python内置函数列表]
    文件共享和存储服务器
  • 原文地址:https://www.cnblogs.com/cpoint/p/3480181.html
Copyright © 2011-2022 走看看