PASCAL中怎麼建立乙個雙向的連結串列

2025-03-26 06:00:23 字數 2401 閱讀 2726

1樓:匿名使用者

vari,j,n:longint;

pre,now,x,y:array[0..1000] of longint;begin

readln(n);

for i:=1 to n do

beginreadln(x[i*2-1],y[i*2-1]);

pre[i*2-1]:=now[x[i*2-1]];

now[x[i*2-1]]:i*2-1; x[i*2]:=y[x*2-1]; y[x*2]:=x[i*2-1];

pre[i*2]:=now[x[i*2]];

now[x[i*2]]:i*2;

end;end. 是信粗這悄坦絕樣的嗎啟姿?

雙向連結串列怎麼建立

2樓:座標

雙向連結串列的建立就是在每個連結串列結點加上乙個父指標和乙個子指標,乙個指向前乙個結點,乙個指向後乙個結點。

pascal怎樣構造單向連結串列

3樓:網友

首先,先用type語句定義幾個型別,乙個是link指向data【指標學過吧?】,data則定義為域,有兩個域,分別是儲存的域和指向下乙個站點的域。這樣就構成了乙個遞迴結構。

var語句裡就用乙個變數p,定義為link,然後其他變數不影響。比如我要輸入一段字元,以「@」結束,存入連結串列,然後輸出,那麼就要定義乙個表頭,程式如下。

typelink=^data;

data=record

ch:char;

next:link;

end;vari:integer;

a:char;

h,p,q:link;

beginread(a);

while a<>'@' do

beginnew(p);

p^.ch:=a;

p^.next:=q;

q:=p;read(a);

end;while p<>nil do

beginwrite(p^.ch,' ');

p:=p^.next;

end;end.

望樓主採納,自創。

如何建立乙個空的c語言雙向迴圈連結串列

4樓:匿名使用者

只是雙向給你參考。加個迴圈對你應該問題不大吧。

如何建立雙向迴圈連結串列並輸入資料

5樓:匿名使用者

#include

#include

struct node ;

void create(struct node *list, int n)

n2 = list;

list = list->next;

list->prev = n2;

printf("第 %d 個節點輸入資料:", i + 1);

scanf("%d", &list->data);

list->next = n1;

n1->prev = list;

void print(struct node *list, struct node *head)

if (list->next != head)}int main()

printf("輸入節點數:");

scanf("%d", &n);

create(head, n);

print(head, head);

return 0;}

pascal問題,已知乙個單向連結串列(自己寫個過程建立),將他反向輸出,謝謝啦

6樓:網友

我用靜態陣列模擬了。記錄和指標用的不好。

procedure creat;

var t,k,i,j:longint;

beginreadln(n);

for i:=1 to n do

beginreadln(a[i,1],a[i,2]);

end;end;

--procedure print;

var t,k,i,j:longint;

beginfor i:=1 downto n do

if a[i,2]=2 then break;

j:=i;i:=a[i,2];

a[i,2]:=-1;

repeat

k:=a[i,2];

a[i,2]:=j;

j:=i;i:=k;

until k=n-1;

repeat

write(a[i,1],' ');

i:=a[i,2];

until i=-1;

end;用記錄和指標可以參照這個做,原理一樣。其實用雙向連結串列更方便。

如何建立乙個蘋果id,怎麼建乙個新的蘋果ID

當您設定新 iphone ipad 或 ipod touch 時,系統可能會要求您輸入 apple id 和密碼。如果您沒有 apple id,則可以在設定裝置時新建乙個。您也可以稍後在 app store 中進行設定。選擇您的生日並輸入您的姓名。輕點 下一步 輕點 使用您當前的電子郵件位址 或 獲...

怎樣建立乙個辯論隊 200

怎樣建立乙個辯論隊 關於你 .如果你很有領導能力和專業水平 辯論 那人也好找,也好組織,不要找太傲的人,難組織,而且辯論要一種團隊精神。.如果你有領導能力,沒有專業知識,你能組織不能辯論的話,那就只要負責聯絡好他們,多聽他們的意見,放手給他們討論,不要太乾涉,否則既打擊他們積極性也讓他們不服你。.如...

如何在我的硬碟上建立乙個GMAIL分割槽

你說的是gmail網路磁碟嗎。gmail的使用者 在中國使用gmail的人群我是這樣理解的 資深網民。因為早期申請gmail比較麻煩,需要邀請。好不容易申請到乙個都比較稀罕,大部分也就一直習慣於使用gmail。 計算機專業學生或從事it工作的人。這是就我接觸過或身邊的這類人,大部分皆使用gmail。 ...