靜態鏈表

用數組描述的鏈表，即稱為靜態鏈表。

在C語言中，靜態鏈表的表現形式即為結構體數組，結構體變數包括數據域data和游標CUR。

這種存儲結構，仍需要預先分配一個較大的空間，但在作為線性表的插入和刪除操作時不需移動元素，僅需修改指針，故仍具有鏈式存儲結構的主要優點。

假如有如上的靜態鏈表S中存儲著線性表（a，b，c，d，f，g，h，i），Maxsize=11，如圖所示，要在第四個元素后插入元素e，方法是：先在當前表尾加入一個元素e，即：S[9].data = e;然後修改第四個元素的游標域，將e插入到鏈表中，即：S[9].cursor = S[4].cursor; S[4].cursor = 9;，接著，若要刪除第7個元素h，則先順著游標鏈通過計數找到第7個元素存儲位置6，刪除的具體做法是令S[6].cursor = S[7].cursor。

ta=T=A;

flag=1;//1代表沒有進行刪除

while(T->cur){//循環判斷，直到A表中所有數據都和B->data比較過後才結束

T=&L[T->cur];

if(T->data==B->data){//如果相等，則刪除

ta->cur=T->cur;

Free(L, (short)(T-L));

T=&L[ta->cur];

tb->cur=B->cur;

Free(L, (short)(B-L));

B=&L[tb->cur];

flag=0;//1代表進行了刪除

break;

} else//不相等則把指針移動到一個數據

ta=&L[ta->cur];

} if(flag){//如果沒有進行刪除操作，則連接兩個結點

T->cur=tb->cur;

tb->cur=B->cur;

B->cur=0;

B=&L[tb->cur];

} }

}

鏈表大家都知道吧，我就不廢話了．．．所謂的靜態鏈表就是在那些不能用指針的語言里用數組建立鏈表並用一個下標來維護．．．給個程序吧．．．

program static_link_list(input,output);

const maxl=10;

type elem=record

num,next:integer;

end;

tlist=array[0..maxl]of elem;

var list:tlist;

num,place,head,av:integer;

ch:char;

function get_node(var av:integer):integer;

begin

get_node:=av;

if av<>-1 then av:=list[av].next;

end;

procedure disp_node(var av:integer;k:integer);

begin

list[k].next:=av;

av:=k;

end;

procedure init(var av:integer);

var i:integer;

begin

for i:=0 to maxl-1 do

list .next:=i+1;

list[maxl].next:=-1;

av:=0;

end;

procedure print(head:integer);

begin

head:=list[head].next;

while head<>-1 do

begin

write(list[head].num,' ');

head:=list[head].next;

end;

writeln;

end;

procedure insert(head,num,place:integer;var av:integer);

var j,x:integer;

begin

j:=0;

while (head<>-1)and(j

begin

inc(j);

head:=list[head].next;

end;

if (head=-1)or(j>place-1) then

begin

writeln('Input Error!');

exit;

end;

x:=get_node(av);

if x=-1 then

begin

writeln('List has been full!');

exit;

end;

list[x].num:=num;

list[x].next:=list[j].next;

list[j].next:=x;

end;

procedure del(var av:integer;head,place:integer);

var j,k:integer;

begin

j:=0;

while (list[head].next<>-1)and(j

begin

inc(j);

head:=list[head].next;

end;

if (list[head].next=-1)or(j>place-1) then

begin

writeln('Input Error!');

exit;

end;

k:=list[head].next;

list[head].next:=list[list[head].next].next;

disp_node(av,k);

end;

begin

init(av);

head:=get_node(av);

list[head].next:=-1;

readln(ch);

while ch<>'E' do

begin

case ch of

'I':begin

readln(num,place);

insert(head,num,place,av);

end;

'D':begin

readln(place);

del(av,head,place);

end;

'P':print(head);

else writeln('Input Error!');

end;

readln(ch);

end;

end.