下面算法實現(xiàn)，用一棵二叉樹中的結(jié)點建立一個按關(guān)鍵字值從小到大次序排列的帶表頭結(jié)點的雙向循環(huán)鏈表。二叉樹的結(jié)點結(jié)構(gòu)如下所示：

其中，p是指向結(jié)點的指針；p->key表示結(jié)點的關(guān)鍵字域，p->left和p->right分別表示結(jié)點的左、右孩子的指針域。
void fromtreetolist（p，l）
/*p，h是指向二叉樹中結(jié)點的指針，*/
/*l是指向雙向循環(huán)鏈表表頭結(jié)點的指針*/
{if (p!=NULL)
{ fromtreetolist（p->left，l）；
fromtreetolist（p-> right，l）；
h=l；
while （h->right!=l）&&（h->right->keykey）h=h->right；
p->right=h->right；
p->left=h；
（）；
h->rihght=p；
}
}
void buildlisttree（root，l）
/*root是指向二叉樹根結(jié)點的指針，*/
/*l是指向雙向循環(huán)鏈表表頭結(jié)點的指針*/
{l=（struct nodetype *）malloc（sizeof（struct nodetype））；
l->left=l；
l->right=l；
fromtreetolist（root，l）；
}

鏈隊列的存儲結(jié)構(gòu)為：
struct nodetype
{ELEMTP data；
struct nodetype *next；
}
struct linkqueue
{struct nodetype *front，*rear；
} /*front和rear分別為隊列的頭指針和尾指針*/
完成下列刪除隊頭元素的算法。
delq（struct linkqueue *r，ELEMTP *x）
{q=*r；
if（q.front= =q.rear）printf（“QUEUE IS EMPTY\n“）；
else{p=q.front->next；
q.front->next=p->next；
if（p->next= =NULL）q.rear=q.front；
*x=（）；free（p）；

下列算法將單鏈表中值重復的結(jié)點刪除，使所得的結(jié)果表中各結(jié)點值均不相同，試完成該算法。
void DelSameNode（LinkList L）
//L是帶頭結(jié)點的單鏈表，刪除其中的值重復的結(jié)點//
{ListNode * p，*q，*r；
p=L->next； //p初始指向開始結(jié)點//
while（p）{ //處理當前結(jié)點p//
q=p；
r=q->next；
do { //刪除與結(jié)點*p的值相同的結(jié)點//
while（r&&r->data!=p->data）{
q=r；
r=r->next；
}
if（r）{ //結(jié)點*r的值與*p的值相同，刪除*r//
q->next=r->next；
free（r）；
r=（）；
}
}while（ r ）；
p=p->next；
}
}

設線性鏈表的存儲結(jié)構(gòu)如下：
struct node
{ELEMTP data； /*數(shù)據(jù)域*/
struct node *next； /*指針域*/
}
試完成下列建立單鏈表的算法。
creat（）
{char var；
head=（struct node *）malloc（sizeof（struct node））；
head->next= （） ；
while（（var=getchar（））！=‘\n’）{
ptr=（ struct node *）malloc（sizeof（struct node））；
ptr->data= var ；ptr->next=head->next；
head->next= ptr ；
}
}

設線性鏈表的存儲結(jié)構(gòu)如下：
struct node
{ELEMTP data； /*數(shù)據(jù)域*/
struct node *next； /*指針域*/
}
試完成下列在鏈表中值為x的結(jié)點前插入一個值為y的新結(jié)點。如果x值不存在，則把新結(jié)點插在表尾的算法。
void inserty（struct node *head，ELEMTP x，ELEMTP y）
{s=（struct node *）malloc（sizeof（struct node））；
（）；
if（）{s->nexr=head；head=s；}
else {
q=head；p=q->next；
while（p->dqta!=x&&p->next!=NULL）{q=p；（）}
if（p->data= = x）{q->next=s；s->next=p；}
else{p->next=s；s->next=NULL；}
}
}