删除运算DELETE(L,i)
删除前:L=(a1....ai-1,ai,ai+1,...,an);
删除后:L=(a1....ai-1,ai+1,...,an);
算法思想:
1.进行合法性的检查,i是否满足1<=i<=n;
2.判断线性表是否已空,v.last=0;
3.将第i+1至第n个元素逐一向前移一个位置;
4.将表的长度减1;
算法描述:
PROC del_sqlist(VAR v:sqlisttp;i:integer);
{在顺序存储结构的线性表v中删除第i个DE}
IF(i<1) OR (i>v.last)
THEN ERROR('i值有错或表已空')
ELSE FOR j:=i+1 TO v.lastDO
v.elem[j-1]:=v.elem[j];
v.last:=v.last-1;
ENDP;{del_sqlist}
时间复杂度分析:
最坏情况是删除第1一个元素,此时要前移n-1个元素,因此:
T(n)=O(n)
线性表顺序存储结构的特点
1.逻辑上相邻的元素,其物理位置也相邻
2.可随机存取表中任一元素
3.必须按最大可能长度预分存储空间,存储空间利用率低,表的容量难以扩充,是一种静态存储结构;
4.插入删除时,需移动大量元素,平均移动元素为n/2
例:顺序结构上的归并有序表算法
PROC merge_sqlist(va,vb:sqlisttp;VAR vc:sqlisttp);
i:=1; j:=1; k:=0;
WHILE(i<=va.last) AND (j<=vb.last) DO
IF va.elem[i]<=vb.elem[j]
THEN[vc.elem[k+1]:=va.elem[i]; k:=k+1; i:=i+1]
ELSE[vc.elem[k+1]:=vb.elem[j]; k:=k+1; j:=j+1];
WHILE i<=va.last DO
[vc.elem[k+1]:=va.elem[i]; k:=k+1; i:=i+1];
WHILE j<=vb.last DO
[vc.elem[k+1]:=vb.elem[j]; k:=k+1; j:=j+1];
vc.last:=k
ENDP;{merge_list}