北京邮电大学远程教育
信息管理与信息系统专业《数据结构》实验指导书
实验一线性表的插入和删除
一、实验目的
1、掌握使用TurboPascal上机调试线性表的基本方法；2、掌握线性表的基本操作：插入、删除、查找以及线性表合并等运算在顺序存储结构和链接存储结构上的运算。二、实验要求
1、认真阅读和掌握本实验的程序。2、上机运行本程序。3、保存和打印出程序的运行结果，并结合程序进行分析。4、按照你对线性表的操作需要，重新改写主程序并运行，打印出文件清单和运行结果三、注意事项：
在磁盘上创建一个目录，专门用于存储数据结构实验的程序。四、实验内容
程序1：线性表基本操作的实现这个程序中演示了顺序表的创建、插入、删除和查找。程序如下：PROGRAMseqlisti
putoutput线性表可能达到的最大长度CONSTmaxle
1024TYPEelemtpi
teger线性表的顺序存储结构TYPE
1
fseqlisttpRECORD用一维数组来描述线性表的顺序存储结构elemARRAY1maxle
OFelemtp定义子界类型last，它的取值范围是0到maxle
last0maxle
线性表长度END初始化线性表PROCEDUREi
itlistVARvseqlisttpmli
tegerBEGINvlast0END向线性表的第i个元素之前插入一个元素xPROCEDUREi
sertlistVARvseqlisttpii
tegerbelemtpVARji
tegerBEGINIFi1ORivlast1THENwritel
errorELSEIFvlastmaxle
THENwritel
overflowELSEBEGINFORjvlastDOWNTOiDOvelemj1velemjvelemibvlastvlast1ENDEND从线性表中删除第i个位置的元素PROCEDUREdeletelistVARvseqlisttpii
tegerVARji
tegerBEGIN
2
fIFi1ORivlast1THENwritel
errorELSEIFvlastmaxle
THENwritel
overflowELSEBEGINFORji1TOvlastDOvelemj1velemjvlastvlast1ENDEND从线性表中查找元素FUNCTIONfi
dlistvseqlisttpxelemtpi
tegerVARii
tegerBEGINi1WHILEivlastANDvelemixDOii1IFivlastTHENfi
dlistiELSEfi
dlist0END遍历线性表PROCEDUREtraverlistvseqlisttpVARii
tegerBEGINFORi1TOvlastDOBEGINwritel
velemiENDEND
3
f建立线性表VARaseqlisttpiki
tegerxelemtpBEGIN初始化线性表I
itListamaxle
相线性表a的末尾插入5个元素writel
I
put5i
tegersFORi1TO5DOBEGINreadl
xi
sertlistaalast1xEND遍历线性表atraverlista删除线性表的第三个元素deletelista3遍历线性表atraverlista在线性表中查找元素writel
I
putthei
tegertobefou
dreadl
xkfi
dlistaxIFk0THENwritel
Thelocatio
offirstxiskELSEwritel
otfou
dwritel
alastEND
4
f实验二单链表操作
一、实验目r