信息管理与信息系统专业《数据结构》实验指导书实验一线性表的new

《信息管理与信息系统专业《数据结构》实验指导书实验一线性表的new》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、北京邮电大学远程教育信息管理与信息系统专业《数据结构》实验指导书实验一线性表的插入和删除一、实验目的1、掌握使用TurboPascal上机调试线性表的基本方法；2、掌握线性表的基本操作：插入、删除、查找以及线性表合并等运算在顺序存储结构和链接存储结构上的运算。二、实验要求1、认真阅读和掌握本实验的程序。2、上机运行本程序。3、保存和打印出程序的运行结果，并结合程序进行分析。4、按照你对线性表的操作需要，重新改写主程序并运行，打印出文件清单和运行结果三、注意事项：在磁盘上创建一个目录，专门用于存储数据结构实验的程序。四、实验内

2、容程序1：线性表基本操作的实现这个程序中演示了顺序表的创建、插入、删除和查找。程序如下：PROGRAMseqlist(input,output);{线性表可能达到的最大长度}CONSTmaxlen=1024;TYPEelemtp=integer;{线性表的顺序存储结构}TYPE20seqlisttp=RECORD{用一维数组来描述线性表的顺序存储结构}elem:ARRAY[1..maxlen]OFelemtp;{定义子界类型last，它的取值范围是0到maxlen}last:0..maxlen{线性表长度}END;{初始化线

3、性表}PROCEDUREinitlist(VARv:seqlisttp;ml:integer);BEGINv.last:=0;END;{向线性表的第i个元素之前插入一个元素x}PROCEDUREinsertlist(VARv:seqlisttp;i:integer;b:elemtp);VARj:integer;BEGINIF(i<1)OR(i>v.last+1)THENwriteln('error!')ELSEIFv.last>=maxlenTHENwriteln('overflow')ELSEBEGINFORj:=v.la

4、stDOWNTOiDOv.elem[j+1]:=v.elem[j];v.elem[i]:=b;v.last:=v.last+1;END;END;{从线性表中删除第i个位置的元素}PROCEDUREdeletelist(VARv:seqlisttp;i:integer);VARj:integer;BEGIN20IF(i<1)OR(i>v.last+1)THENwriteln('error!')ELSEIFv.last>=maxlenTHENwriteln('overflow')ELSEBEGINFORj:=i+1TOv.las

5、tDOv.elem[j-1]:=v.elem[j];v.last:=v.last-1;END;END;{从线性表中查找元素}FUNCTIONfindlist(v:seqlisttp;x:elemtp):integer;VARi:integer;BEGINi:=1;WHILE(i<=v.last)AND(v.elem[i]<>x)DOi:=i+1;IFi<=v.lastTHENfindlist:=iELSEfindlist:=0;END;{遍历线性表}PROCEDUREtraverlist(v:seqlisttp);VARi:

6、integer;BEGINFORi:=1TOv.lastDOBEGINwriteln(v.elem[i]);END;END;20{建立线性表}VARa:seqlisttp;i,k:integer;x:elemtp;BEGIN{初始化线性表}InitList(a,maxlen);{相线性表a的末尾插入5个元素}writeln('Input5integers:');FORi:=1TO5DOBEGINreadln(x);insertlist(a,a.last+1,x);END;{遍历线性表a}traverlist(a);{删除线性

7、表的第三个元素}deletelist(a,3);{遍历线性表a}traverlist(a);{在线性表中查找元素}writeln('Inputtheintegertobefound:');readln(x);k:=findlist(a,x);IFk>0THENwriteln('Thelocationoffirst',x,'is',k)ELSEwriteln('notfound');writeln(a.last);END.20实验二单链表操作一、实验目的1．掌握握单链表的基本操作：插入、删除、查找等运算。二、实验要求1．认真阅

8、读和掌握本实验的程序。2．上机运行本程序。3．保存和打印出程序的运行结果，并结合程序进行分析。4．按照你对单链表的操作需要，重新改写主程序并运行，打印出文件清单和运行结果三、实验内容程序1：单链表基本操作的实现这个程序中演示了单链表的创建、插入、删除和查找。程序如下：PROGRAMlink