信息管理與信息系統(tǒng)專業(yè)數(shù)據(jù)結(jié)構(gòu)實(shí)驗(yàn)指導(dǎo)書(shū)實(shí)驗(yàn)一線性表的(編輯修改稿)
2025-07-27 18:29 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 END。 END。 {建立線性表} VAR la,lb:pointer。 listnode:pointer。 c:elemtp。 m:integer。 BEGIN createlistf(la)。 writeln(la^.data)。 createlistr(lb)。 writeln(lb^.data)。 getnode(la,listnode,3)。 IF listnodeNIL THEN writeln(listnode^.data) ELSE writeln(39。null39。)。 traverlist(la)。 writeln(39。39。)。 traverlist(lb)。 writeln(39。39。)。 writeln(39。Input a char and an integer:39。)。 read(c)。 read(c,m)。 insertlist(la,c,m)。 traverlist(la)。 writeln(39。39。)。 deletelist(lb,3)。 traverlist(lb)。 END.實(shí)驗(yàn)三 二叉樹(shù)操作一、 實(shí)驗(yàn)?zāi)康?． 進(jìn)一步掌握指針變量的含義。2． 掌握二叉樹(shù)的結(jié)構(gòu)特征，以及各種存儲(chǔ)結(jié)構(gòu)的特點(diǎn)及使用范圍。3． 掌握用指針類型描述、訪問(wèn)和處理二叉樹(shù)的運(yùn)算。二、 實(shí)驗(yàn)要求1． 認(rèn)真閱讀和掌握本實(shí)驗(yàn)的程序。2． 上機(jī)運(yùn)行本程序。3． 保存和打印出程序的運(yùn)行結(jié)果，并結(jié)合程序進(jìn)行分析。4． 按照你二叉樹(shù)的操作需要，重新改寫(xiě)主程序并運(yùn)行，打印出文件清單和運(yùn)行結(jié)果三、 實(shí)驗(yàn)內(nèi)容程序1： 按先序次序輸入二叉樹(shù)中結(jié)點(diǎn)的值（一個(gè)字符），`0`表示空樹(shù)，生成二叉樹(shù)的二叉鏈表存儲(chǔ)結(jié)構(gòu)， bt為指向根結(jié)點(diǎn)的指針。然后按層次順序遍歷二叉樹(shù)。 算法思想：本算法采用一個(gè)隊(duì)列q，先將二叉樹(shù)根結(jié)點(diǎn)入隊(duì)列，然后退隊(duì)列，輸出該結(jié)點(diǎn)；若它有左子樹(shù)，便將左子樹(shù)根結(jié)點(diǎn)入隊(duì)列；若它有右子樹(shù)，遍將右子樹(shù)根結(jié)點(diǎn)入隊(duì)列，直到隊(duì)列空為止。因?yàn)殛?duì)列是先進(jìn)先出，從而達(dá)到按層次順序遍歷二叉樹(shù)的目的。程序如下：PROGRAM btreed(input,output)。 CONST M = 100。 TYPE elemtp = char。 {二叉樹(shù)的鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)} TYPE btree = ^node。 node = RECORD data:elemtp。 lchild,rchild:btree。 END。 TYPE vector=ARRAY[0..M] OF btree。 {生成二叉樹(shù)} VAR root:btree。 que:vector。 front,rear:integer。 PROCEDURE create(VAR bt:btree)。 VAR x:elemtp。 BEGIN read(x)。 IF (ord(x)=48) THEN bt:=NIL ELSE BEGIN new(bt)。 bt^.data:=x。 {建根結(jié)點(diǎn)} create(bt^.lchild)。 {建左子樹(shù)} create(bt^.rchild)。 {建右子樹(shù)} END。 END。 PROCEDURE inorder(bt:btree)。 BEGIN IF btNIL THEN BEGIN inorder(bt^.lchild)。 write(bt^.data,39。 39。)。 inorder(bt^.rchild)。 END。 END。 PROCEDURE enqueue(bt:btree)。 BEGIN IF front((rear+1) MOD M) THEN BEGIN rear:=((rear+1) MOD M)。 que[rear]:=bt。 END。 END。 PROCEDURE delqueue(VAR bt:btree)。 BEGIN IF front=rear THEN bt:=NIL ELSE BEGIN front:=((front+1) MOD M)。 bt:=que[front]。 END。 END。 PROCEDURE levorder(bt:btree)。 VAR p:btree。 BEGIN IF btNIL THEN BEGIN enqueue(bt)。 WHILE frontrear DO BEGIN delqueue(p)。 write(p^.data,39。 39。)。 IF p^.lchildNIL THEN enqueue(p^.lchild)。 IF p^.rchildNIL THEN enqueue(
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1