#include<string.h>
 #include<ctype.h>
 #include<malloc.h> /* malloc()等 */
 #include<limits.h> /* INT_MAX等 */
 #include<stdio.h> /* EOF(=^Z或F6),NULL */
 #include<stdlib.h> /* atoi() */
 #include<io.h> /* eof() */
 #include<math.h> /* floor(),ceil(),abs() */
 #include<process.h> /* exit() */
 /* 函數結果狀態代碼 */

 /* #define OVERFLOW -2 因為在math.h中已定義OVERFLOW的值為3,故去掉此行 */
 typedef int Status; /* Status是函數的類型,其值是函數結果狀態代碼，如OK等 */
 typedef int Boolean; /* Boolean是布爾類型,其值是TRUE或FALSE */


 
 Status InitList(SqList *L) /* 算法2.3 */
 { /* 操作結果：構造一個空的順序線性表 */
   (*L).elem=(ElemType*)malloc(LIST_INIT_SIZE*sizeof(ElemType));
   if(!(*L).elem)
     exit(OVERFLOW); /* 存儲分配失敗 */
   (*L).length=0; /* 空表長度為0 */
   (*L).listsize=LIST_INIT_SIZE; /* 初始存儲容量 */
   return OK;
 }


 Status CreatList(SqList*L)
 {/*本算法通過向一個空的順序表中樹突元素啊來建立順序表*/
	 int i;
	 printf("\n 待輸入元素個數n=?");
	 scanf("%d",&L->length);
	 for(i=0;i<L->length;i++)
	 { printf("\n data %d=?",i);
	   scanf("%d",(*L).elem);
	 }
 }


 int LocateElem(SqList L,ElemType e,Status(*compare)(ElemType,ElemType))
 { /* 初始條件：順序線性表L已存在，compare()是數據元素判定函數(滿足為1,否則為0) */
   /* 操作結果：返回L中第1個與e滿足關系compare()的數據元素的位序。 */
   /*           若這樣的數據元素不存在，則返回值為0。算法2.6 */
   ElemType *p;
   int i=1; /* i的初值為第1個元素的位序 */
   p=L.elem; /* p的初值為第1個元素的存儲位置 */
   while(i<=L.length&&!compare(*p++,e))
     ++i;
   if(i<=L.length)
     return i;
   else
     return 0;
 }

 

 
 Status ListInsert(SqList *L,int i,ElemType e) /* 算法2.4 */
 { /* 初始條件：順序線性表L已存在，1≤i≤ListLength(L)+1 */
   /* 操作結果：在L中第i個位置之前插入新的數據元素e，L的長度加1 */
   ElemType *newbase,*q,*p;
   if(i<1||i>(*L).length+1) /* i值不合法 */
     return ERROR;
   if((*L).length>=(*L).listsize) /* 當前存儲空間已滿,增加分配 */
   {
     newbase=(ElemType *)realloc((*L).elem,((*L).listsize+LISTINCREMENT)*sizeof(ElemType));
     if(!newbase)
       exit(OVERFLOW); /* 存儲分配失敗 */
     (*L).elem=newbase; /* 新基址 */
     (*L).listsize+=LISTINCREMENT; /* 增加存儲容量 */
   }
   q=(*L).elem+i-1; /* q為插入位置 */
   for(p=(*L).elem+(*L).length-1;p>=q;--p) /* 插入位置及之后的元素右移 */
     *(p+1)=*p;
   *q=e; /* 插入e */
   ++(*L).length; /* 表長增1 */
   return OK;
 }

 Status ListDelete(SqList *L,int i,ElemType *e) /* 算法2.5 */
 { /* 初始條件：順序線性表L已存在，1≤i≤ListLength(L) */
   /* 操作結果：刪除L的第i個數據元素，并用e返回其值，L的長度減1 */
   ElemType *p,*q;
   if(i<1||i>(*L).length) /* i值不合法 */
     return ERROR;
   p=(*L).elem+i-1; /* p為被刪除元素的位置 */
   *e=*p; /* 被刪除元素的值賦給e */
   q=(*L).elem+(*L).length-1; /* 表尾元素的位置 */
   for(++p;p<=q;++p) /* 被刪除元素之后的元素左移 */
     *(p-1)=*p;
   (*L).length--; /* 表長減1 */
   return OK;
 }

 Status PrintList(SqList)
 { /*依次輸入順序表L中的每個數據元素的值*/
	 ELemType *p;
	 int i;
	 p=L.elem;
	 printf("/n 順序表L中的元素:\n");
	 for(i=1;i<=L.length;i++)  
		 printf("%6d",L.elem[i-1]);
	 printf("\n");
	 return OK;
 }
 


 main()
 { 
	 int select,x,i;
	 SeqList L;
	 InitList(&L);
	 CreatList(&L);
	 while(1)
	 {  printf(" 請選擇要進行的操作：\n");
	    printf("0--------退出\n");
		printf("1--------查找\n");
        printf("2--------插入\n");
		printf("3--------刪除\n");
		printf("4--------輸出\n");
		scanf("%d",&select);
		switch  (select)
		{
		  case 1:
			  printf("輸入要查找的元素值");
			  scanf("%d",&x);
			  i=LocateElem(L,x);
			  if(i==0)printf("要查找的元素不存在\n");
			  else printf("找到的位置為%d\n",i);
			  break;
			  
		  case 2:
			  printf("輸入要插入的位置");
			  scanf("%d",&i);
			  printf("輸入要插入的元素值");
			  scanf("%d",&x);
			  ListInsert(SqList &L,i,x)
			  break;
			  
		  case 3:
			  printf("輸入要刪除的元素的位置");
			  scanf("%d",&i);
			  ListDelete(&L,i&x);
			  printf("元素%d已被刪除 \n",x);
              break;
			  
		  case 4:
			  printList(L)
			  break;
		  case 0:
			  printf("程序結束，再見\n");
			  exit(0);
		}
	 }
 }