pascal数结构及其应用.docVIP

第七章　数据结构及其应用 数字，字符，声音，图像，表格等信息，均可输入计算机中进行处理。在计算机科学中，象这种能输入到计算机中并被计算机程序处理的信息，都可称为数据。 ????数据的基本单位是数据元素。数据之间存在有线性与非线性两种基本的逻辑结构，同时在存储结构上还有顺序和链式之分。 ????数据结构则是研究数据元素的逻辑结构，存储结构和与之有关的各种基本操作的一门学科。作为一个程序设计者，应当掌握好数据结构的有关知识，在解题时针对问题的特点，选择适当的数据结构，并构造算法，编出优美高效的好程序。 ????本章将介绍一些线性的数据结构及其基本操作。 ? 第一节　线性表 “线性表”是指由有限多个类型相同的数据元素组成的集合，它有以下的特点： (1)有唯一的头结点(即第一个数据元素)和尾结点(即最后一个数据元素)； (2)除结点外，集合中的每个数据元素均只有一个前驱； (3)除尾结点外，集合中的每一个数据元素均只有一个后继。 “线性表”是一种运用非常广范的数据结构。 例一、某旅馆有100个房间，以1到100编号，第一个服务员来了，他将所有的房门都打开，第二个服务员再把所有编号是2的倍数的房门都关上，第三个服务员对编号是3的倍数的房门原来开的关上，原来关上的打开，此后的第四，五...服务员均照此办理。问第100个服务员走进后，有哪几扇门是开着的。 解：Pascal程序： Program lt7_1_1； uses crt； var door：array[1..100] of boolean；?1到100号房门状态，false--关，true--开 ??? i，j：integer； begin ? clrscr； ? fillchar(door，sizeof(door)，true)；??第一个服务员打开全部房门 ? for i：=2 to 100 do??????? i表示服务员号码 ??? for j：=1 to 100 div i do ????? door[i*j]：=not door[i*j]；?对房号为i的倍数的房门进行相反处理 ? write(The code of opening door is?：?)； ? for i：=1 to 100 do ??? if door[i] then write(i， )； end. 分析：(1)这里用door[1..100]来存储1到100号房门的开关状态，即是一种线性表，其中：door[1]可以看成是头结点，而door[100]是尾结点；同时由于数组在内存中是按顺序占有一片连续的内存空间，因此这种存储结构即是顺序存储结构。 ???? (2)这里用布尔变量true和false分别表示开和关两种状态，对某一房门进行相反处理时只要取反(not)即可，比如：若door[10]为false，not door[10]则为true。 ? 例二、插入排序：在一个文本文件中存放的N个人的姓名，文本文件的格式为：第一行为N，以下第二至第N+1行分别是N个人的姓名(姓名不重复，由英文字母组成，长度不超过10)，请编一个程序，将这些姓名按字典顺序排列。 解：Pascal程序： Program lt7_1_2； uses crt； type point=^people；??定义结点类型 ???? people=record ?????? name：string[10]；? name--数据域，存放姓名 ?????? next：point；?? next--指针域，存放后继结点的地址 ???? end； var head：point； ??? n：integer； ? procedure init；??初始化 ? begin ??? new(head)；head^.next：=nil；?定义头结点，初始链表为空 ? end； ? procedure insert(p：point)；?将P指向的结点插入以head开头的线性表中 ? var q1，q2：point； ? begin ??? if head^.next=nil then head^.next：=p?将P指向的结点插入空链表 ?????? else ???????? begin ?????????? q1：=head；q2：=q1^.next； ? ?????????while (q2nil) and (q2^.namep^.name) do ???????????? begin q1：=q2；q2：=q1^.next；?end；?查找结点p应插入的位置 ?????????? q1^.next：=p；p^.next：=q2；将p插入q1之后q2之前 ???????? end； ? end； ? procedure work； ? var i：inte