#include<stdio.h>  
#include<malloc.h>  
#include<windows.h>  
typedef int elemtype;  
typedef struct dnode  
{  
elemtype data;  
struct dnode *prior;  
struct dnode *next;  
}dlinklist;  
void createlistf(dlinklist *&L,elemtype a[],int n) //建立双链表(头插法)  
{  
dlinklist *s;  
int i;  
L=(dlinklist *)malloc(sizeof(dlinklist));  
L->prior=L->next=NULL;  
for(i=0;i<n;i++)  
{  
s=(dlinklist *)malloc(sizeof(dlinklist));  
s->data=a[i];  
s->next=L->next;  
if(L->next!=NULL)  
L->next->prior=s;  
L->next=s;  
s->prior=L;  
}  
}  
void creatlistr(dlinklist *&L,elemtype a[],int n) //尾插法建表  
{  
dlinklist *s,*p;  
int i;  
L=(dlinklist *)malloc(sizeof(dlinklist));  
L->prior=L->next=NULL;  
p=L;  
for(i=0;i<n;i++)  
{  
s=(dlinklist *)malloc(sizeof(dlinklist));  
s->data=a[i];  
s->next=p->next;  
p->next=s;  
s->prior=p;  
p=s;  
s=p->next;  
}  
}  
void listempty(dlinklist *L) //判断是否为空  
{  
if(L->next!=NULL)  
printf("链表不为空
");  
else  
printf("链表为空
");  
}  
int listlength(dlinklist *L) //求链表长度  
{  
dlinklist *p=L;  
int i=0;  
while(p!=NULL)  
{  
i++;  
p=p->next;  
}  
return i-1;  
}  
void listinsert(dlinklist *&L) //插入元素  
{  
dlinklist *p=L,*s;  
int i,m,a;  
printf("请输入需插入元素");  
scanf("%d",&a);  
printf("请输入需插入元素位置");  
scanf("%d",&m);  
if(m<0||m>listlength(L))  
printf("输入错误
");  
else  
{  
for(i=0;i<m-1;i++)  
p=p->next;  
s=(dlinklist *)malloc(sizeof(dlinklist));  
s->data=a;  
s->next=p->next;  
s->next->prior=s;  
p->next=s;  
s->prior=p;  
printf("插入成功
");  
}  
}  
void listdelete(dlinklist *&L) //删除元素  
{  
dlinklist *p=L,*q;  
int i,m,t;  
printf("请输入需删除元素位置 ");  
scanf("%d",&m);  
if(m<0||m>listlength(L))  
printf("输入错误
");  
else  
{  
for(i=0;i<m-1;i++)  
p=p->next;  
q=p->next;  
p->next=q->next;  
q->next->prior=p;  
t=q->data;  
free(q);  
printf("成功删除元素%d
",t);  
}  
}  
void getelem(dlinklist *L) //取值  
{  
dlinklist *p=L;  
int i=0,m;  
printf("请输入取值元素 ");  
scanf("%d",&m);  
while(p!=NULL)  
{  
if(p->data==m)  
printf("取值成功 %d元素在第%d位
",m,i);  
p=p->next;  
i++;  
}  
if(p=NULL)  
printf("没有此元素
");  
}  
  
void locateelem(dlinklist *L) //查找  
{  
dlinklist *p=L;  
int i=0,m;  
printf("请输入需查找位置 ");  
scanf("%d",&m);  
if(m<=0||m>listlength(L))  
printf("输入错误
");  
else  
{  
for(;i<m;i++)  
p=p->next;  
printf("第%d位的元素为%d
",m,p->data);  
}  
}  
void destroylist(dlinklist *&L) //销毁链表  
{  
dlinklist *p=L,*q;  
char m;  
getchar();  
printf("确认要销毁链表请输入y否则不销毁 请输入:");  
scanf("%c",&m);  
if(m=="y")  
{  
q=p->next;  
while(q!=NULL)  
{  
free(p);  
p=q;  
q=p->next;  
}  
free(p);  
printf("链表已销毁
");  
exit(0);  
}  
printf("链表未销毁
");  
}  
void displist(dlinklist *L) //输出双链表  
{  
dlinklist *s;  
s=L->next;  
while(s!=NULL)  
{  
printf(" %d",s->data);  
s=s->next;  
}  
printf("
");  
}  

  

void main()  
{  
printf(" ****************欢迎使用双链表基本运算系统****************
");  
printf(" ****************如有问题欢迎和我联系*****************
");  
dlinklist *p;  
int a[5],i,m,t;  
printf("请选择建表方式 1用头插法建表，2用尾插法建表 ");  
scanf("%d",&t);  
printf("请输入5个数
");  
for(i=0;i<5;i++)  
scanf("%d",&a[i]);  
if(t==1)  
createlistf(p,a,5);  
else if(t==2)  
creatlistr(p,a,5);  
else  
printf("输入错误!");  
printf("双链表建立完毕
");  
while(1)  
{  
printf("请选择:");  
printf(" 1.输出链表
");  
printf(" 2.判断线性表(双链表)是否为空
");  
printf(" 3.求线性表(双链表)的长度
");  
printf(" 4.从线性表(双链表)中取值
");  
printf(" 5.在线性表(双链表)中查找元素
");  
printf(" 6.插入元素
");  
printf(" 7.删除元素
");  
printf(" 8.销毁链表
");  
printf(" 9.退出
");  
scanf("%d",&m);  
switch(m)  
{ case 1:displist(p);break;  
case 2:listempty(p);break;  
case 3: printf("链表长为:%d
",listlength(p));break;  
case 4:getelem(p);break;  
case 5:locateelem(p);break;  
case 6:listinsert(p);break;  
case 7:listdelete(p);break;  
case 8:destroylist(p);break;  
case 9:exit(0);  
default:printf("输入错误,请重新输入
");  
}  
}  
}