双链表的初始化，建立，插入，查找，删除。

////////////////////////////////////////////
//双链表的初始化，建立，插入，查找，删除。//
//Author:Wang Yong				  		  //	
//Date:	2010.8.19				  		  //
////////////////////////////////////////////


#include <stdio.h>
#include <stdlib.h>

typedef int ElemType;
////////////////////////////////////////////

// 定义双链表结点类型

typedef struct Node
{
	ElemType data;
	struct Node *prior;			//指向前驱结点 
	struct Node *next;			//指向后继结点 
}Node, *DLinkList;

////////////////////////////////////////////

//双链表的建立，采用尾插法建立双链表 
DLinkList DLinkListCreatT()
{
	Node *L,*p,*r;
	L = (Node *)malloc(sizeof(Node));//申请头结点
	L->next = NULL;
	r = L;
	r->next = NULL;							//r 为指向终端结点的指针 
	ElemType x;
	while(scanf("%d",&x) != EOF)	//输入双链表元素，建立双链表
	{
		p = (Node *)malloc(sizeof(Node));
		p->data = x;
		p->next = r->next;
		r->next = p;
		r = p;
	}
	r->next = NULL; 
	return L;
}

/////////////////////////////////////////

//双链表的查找，查找元素为x的位置

int DLinkListFind(DLinkList L,ElemType x)
{
	DLinkList p;				//p为检索， 
	p = L->next;
	int i = 1;
	while(p != NULL && p->data != x )//寻找值为x的元素**注意这里循环的条件不能写反 
	{								//原因，当p == NULL 时候 p->data 会出错
		++i;						//	for (i = 1, p = L->next; p; p = p->next, i++) {
									//	if (p->data == x) break;}
		p = p->next;
	}
	
	if(p == NULL)				//如果没找到返回0 
		return 0;
	else return i;				//如果找到返回i 
}
/////////////////////////////////////////

//双链表的插入，在双链表中的第i个位置插入值为x的元素

DLinkList DLinkListInsert(DLinkList L,int i,ElemType x)
{
	DLinkList p,s;							//s为要插入的结点 
	p = L->next;							//从第一个结点位置开始查找 
	int tempi;
	for(tempi = 1;tempi < i-1; tempi++)
		p = p->next;
 	s = (Node *)malloc(sizeof(Node));
	s->data = x;							//将x赋值到s的数据域 
	s->next = p->next;						//将结点插入 
	p->next->prior = s;
	s->prior = p;
	p->next = s;
	
	return L;
	 
} 

//////////////////////////////////////////////

//双链表的删除，删除双链表中第i个结点

DLinkList DLinkListDelete(DLinkList L,int i)
{
	int tempi = 1;
	DLinkList p;						//p为查找结点。 
	p = L->next;
	while((tempi++) != i && p != NULL)
	{
		p = p->next;
	}
	if(p == NULL)						//检查是不是在双链表中的位置 
		printf("位置不合法。\n");
	else if(p->next == NULL)			//最后一个结点特殊处理，原因最后一个结点p->next没有prior  
	{
		p->prior->next = NULL;
		free(p);
	} 
	else								//进行删除操作 
	{ 
		p->prior->next = p->next;
		p->next->prior = p->prior;
		free(p); 
	}
} 

/////////////////////////////////////////// 
int main()
{
	DLinkList list,start;
	list = DLinkListCreatT();
	for(start = list->next; start != NULL; start = start->next)
		printf("%d ",start->data);
	printf("\n");
	int i;
	ElemType x;
	printf("请输入要查找元素的值：");
	scanf("%d",&x);
	i = DLinkListFind(list,x);
	if(i)
		printf("在链表中的位置为：%d\n",i);
	else 
		printf("没有这个元素。\n");
	printf("请输入插入位置：");
	scanf("%d",&i);
	printf("请输入插入元素的值：");
	scanf("%d",&x);
	DLinkListInsert(list,i,x);
	for(start = list->next; start != NULL; start = start->next)
		printf("%d ",start->data);
	printf("\n");
	printf("请输入要删除的位置：");
	scanf("%d",&i);
	DLinkListDelete(list,i); 
	for(start = list->next; start != NULL; start = start->next)
		printf("%d ",start->data);
	printf("\n");

	return 0;
}