//函数声明：#include"cirtwowaylinklist.h"

#define _CRT_SECURE_NO_WARNINGS 1
#include
#include

typedef int ElemType;
typedef struct CirDulNode
{
	struct CirDulNode *prior;
	ElemType data;
	struct CirDulNode *next;
}DulNode;

void judgement_NULL(DulNode *head);
DulNode * creat();                                     //创建链表

void insert(DulNode *head, int i, ElemType x);         //插入结点

void delete_element(DulNode *head, ElemType x);         //删除链表中所有值为X的结点
void delete_place(DulNode *head, int i);                //删除链表中第i个结点

void find_place(DulNode *head, ElemType x);             //寻找链表中所有x，所在的结点位置
void find_element(DulNode *head, int i);                //寻找第i个结点上的值

void length(DulNode *head);

void initslinklist(DulNode *head);                        //释放整个链表

void sortrank(DulNode *head);                             //对链表进行排序

void output_order(DulNode *head);      //正序打印
void output_back(DulNode *head);       //逆序打印

int means();                           //选择方式




//函数实现：#include"cirtwowaylinklist.c"

#include"cirtwowaylinklist.h"
void judgement_NULL(DulNode *head)              //判断动态内存是否开辟成功
{
	if (head == NULL)
	{
		perror("out of memory\n");
		exit(EXIT_FAILURE);
	}
}

DulNode * creat()
{
	DulNode *head, *p, *r;
	ElemType x;
	head = (DulNode *)malloc(sizeof(DulNode));
	judgement_NULL(head);
	r = head;
	printf("开始建立：");
	while (1)
	{
		scanf("%d", &x);
		if (x != 0)                          //建立链表，以0作为结束标志 
		{
			p = (DulNode *)malloc(sizeof(DulNode));
			judgement_NULL(p);
			p->data = x;
			r->next = p;
			p->prior = r;
			r = p;
		}
		else
			break;
	}
	head->prior = r;                                 //将链表首尾链接
	r->next = head;
	printf("创建成功\n");
	return head;
}

void insert(DulNode *head, int i, ElemType x)             //在i位置上插入一个X,因为链表循环，所以i>1就一定能找到一个位置
{
	DulNode *p, *r;
	p = (DulNode *)malloc(sizeof(DulNode));
	judgement_NULL(p);
	p->data = x;
	r = head;
	while (1)
	{
		if (i <= 1)
			break;
		r = r->next;
		i--;
	}
	if (i < 1)
		printf("没有该结点\n");
	else
	{
		p->next = r->next;                     //在头结点之前，之后都可以插入
		p->prior = r;
		r->next = p;
		p->next->prior = p;
	}
}

void delete_element(DulNode *head, ElemType x)          //删除链表中所有的x元素所在的结点
{
	DulNode *p, *r;
	int count = 0;
	p = head->next;
	while (p != head)
	{
		if (p->data == x)
		{
			count++;
			r = p;
			p = p->next;
			r->prior->next = r->next;
			r->next->prior = r->prior;
			free(r);
			r = NULL;
		}
		else
			p = p->next;
	}
	if (count == 0)
		printf("链表中没有此元素\n");
	else
		printf("共删除%d个\n", count);
} 

void delete_place(DulNode *head, int i)        //删除一个指定位置的结点，结点位置i>0
{
	DulNode *p;
	p = head;
	while (1)
	{
		if (i <= 1)
			break;
		p = p->next;
		i--;
	}
	if (i < 1)
		printf("没有该结点\n");
	else
	{
		if (p->next = head)           //如果要删除的结点是头结点则跳过删除头结点之后的结点
		{
			p = head->next;
			head->next = p->next;
			p->next->prior = head;
		}
		else
		{
			p->prior->next = p->next;
			p->next->prior = p->prior;
			free(p);
		}
	}
}

void find_place(DulNode *head, ElemType x)       //找到链表中所有的x元素所在的结点位置
{
	int count = 0;
	int flag = 0;
	DulNode *p;
	p = head->next;
	while (p != head)
	{
		count++;
		if (p->data == x)
		{
			flag++;
			printf("此元素结点位置：%d\n", count);
		}
		p = p->next;
	}
	if (flag == 0)
		printf("链表中没有此元素\n");
}

void find_element(DulNode *head, int i)           //找到i结点上的元素，并输出
{
	DulNode *p;
	p = head->next;
	while (p != head)
	{
		if (i <= 1)
			break;
		p = p->next;
		i--;
	}
	if (p == head || i != 1)
		printf("没有该结点\n");
	else
		printf("此结点元素：%d\n", p->data);
}

void length(DulNode *head)
{
	int len = 0;
	DulNode *p;
	p = head->next;
	while (p != head)
	{
		len++;
		p = p->next;
	}
	printf("链表长度:%d\n", len);
}

void initslinklist(DulNode *head)               //释放整个链表
{
	DulNode *p;
	p = head->next;
	while (p != head)
	{
		p = p->next;
		free(p->prior);
		p->prior = NULL;
	}
	free(head);
	head = NULL;
	p = NULL;
}

void sortrank(DulNode *head)                       //对整个链表进行排序
{
	DulNode *p, *r;
	ElemType tmp;
	p = head->next;
	while (p->next!= head)
	{
		r = head->next;
		while (r->next!= head)
		{
			if ((r->data) >(r->next->data))
			{
				tmp = r->data;
				r->data = r->next->data;
				r->next->data = tmp;
			}
			r = r->next;
		}
		p=p->next;
	}
	printf("排序成功\n");
}


void output_order(DulNode *head)                   //正向打印整个链表
{
	DulNode *p;
	p = head;
	if (head->next == head)
		printf("链表为空\n");
	else
	{
		printf("正序打印链表：");
		p = p->next;
		while (p != head)
		{
			printf("%d ", p->data);
			p = p->next;
		}
		printf("\n");
	}
}

void output_back(DulNode *head)                   //反向打印整个链表
{
	DulNode *p;
	p = head->prior;
	if (head->next == head)
		printf("链表为空\n");
	else
	{
		printf("反向打印链表：");
		while (p != head)
		{
			printf("%d ", p->data);
			p = p->prior;
		}
		printf("\n");
	}
}

int means()                                          //选择以哪种方式进行操作
{
	int m = 0;
	while (1)
	{
		printf("请选择方式：");
		scanf("%d", &m);
		if (m == 1 || m == 2)
			break;
		printf("选择无效，请重新选择\n");
	}
	return m;
}







//函数测试：

#include"cirtwowaylinklist.h"
int main()
{
	DulNode *ret = NULL;
	int n = 0;
	int i = 0;
	ElemType x;
	printf("*********************************************\n");
	printf("*********************************************\n");
	printf("*1.CreatLinkList          2.Insert **********\n");
	printf("*3.Delete                 4.Find   **********\n");
	printf("*5.Length                 6.Output **********\n");
	printf("*7.InitsLinkLinst         8.Sortrank ********\n");
	printf("*0.Exit                   *******************\n\n\n");

	while (1)
	{
		printf("请选择功能：");
		scanf("%d", &n);
		if (n == 0)                          //选择0直接退出
		{
			free(ret);                       //退出前先释放列表
			exit(1);
		}
		if (ret == NULL)                     //如果ret为空，则首先建立链表
		{
			if (n == 1)
			{
				printf("创建链表以0作为结束标志\n");
				ret = creat();
			}
			else
				printf("请先建立链表\n");
		}
		else
		{
			switch (n)                              //选择剩下的功能
			{
			case 1:                             //当ret不为空时不能建立链表
				printf("当前链表未结束，请先初始化链表\n");
				break;
			case 2:
				printf("请输入要插入的元素和位置：");
				scanf("%d", &x);
				scanf("%d", &i);
				insert(ret, i, x);
				break;
			case 3:
				printf("*1.delete_element     2.delete_place*\n");
				if (means() == 1)
				{
					printf("请输入要删除的元素：");
					scanf("%d", &x);
					delete_element(ret, x);
				}
				else
				{
					printf("请输入要删除的结点：");
					scanf("%d", &i);
					delete_place(ret, i);
				}
				break;
			case 4:
				printf("*1.find_place         2.find_element*\n");
				if (means() == 1)
				{
					printf("请输入要查找的元素：");
					scanf("%d", &x);
					find_place(ret, x);
				}
				else
				{
					printf("请输入要查找的位置：");
					scanf("%d", &i);
					find_element(ret, i);
				}
				break;
			case 5:
				length(ret);
				break;
			case 6:
				printf("*1.output_order         2.output_back*\n");
				if (means() == 1)
					output_order(ret);
				else
					output_back(ret);
				break;
			case 7:                                      //将当前链表释放
				initslinklist(ret);
				ret = NULL;
				break;
			case 8:
				sortrank(ret);
				break;
			default:
				printf("选择无效，请重新选择\n");
				break;
			}                                                //switch()语句结束
		}
		n = 0;
	}                                                        //循环结束
	system("pause");
	return 0;
}

成都创新互联公司是一家集网站建设,东兰企业网站建设,东兰品牌网站建设,网站定制,东兰网站建设报价,网络营销,网络优化,东兰网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

创新互联www.cdcxhl.cn，专业提供香港、美国云服务器，动态BGP最优骨干路由自动选择，持续稳定高效的网络助力业务部署。公司持有工信部办法的idc、isp许可证， 机房独有T级流量清洗系统配攻击溯源，准确进行流量调度，确保服务器高可用性。佳节活动现已开启，新人活动云服务器买多久送多久。

文章题目：双向循环单链表-创新互联
文章网址：http://scgulin.cn/article/dcghjd.html