數據結構考研分類復習真題 第五章 數組和廣義表[17]

　　 完善下列程序每小題在PASCAL語言（a）和C語言（b）中任選一題下面是一個將廣義表逆置的過程例如原來廣義表為（（ab）c（de））經逆置後為（（ed）c（ba））

　　（a）算法的PASCAL語言過程描述（編者略）（b）算法的C語言過程描述

　　typedef  struct  glistnode
　　{int  tag;
　　struct  glistnode *next;
　　union{char data;
　　struct{struct glistnode *hp*tp;}ptr;
　　}val;
　　}*glistgnode;
　　glist  reverse(p)
　　glist p;
　　{glist  qhts;
　　if(p==NULL)  q=NULL;
　　else
　　{if__()__   { q=(glist)malloc(sizeof(gnode));  q>tag=;
　　q>valdata=p>valdata;  }
　　else {__()__
　　if __()__
　　{t=reverse(p>valptrtp); s=t;
　　while(s>valptrtp!=NULL)   s=s>valptrtp;
　　s>valptrtp=(glist)malloc(sizeof(gnode));
　　s=s>valptrtp;s>tag=;s>valptrtp=NULL;
　　s>valptrhp=h; __()__}
　　else {q=(glist)malloc(sizeof(gnode));q>tag=;
　　q>valptrtp=NULL; __()__; }
　　}
　　}
　　return(q);
　　}【上海大學 六 （分）】

[]  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  []  

From:http://tw.wingwit.com/Article/program/sjjg/201311/22782.html