指针链表入门.docVIP

指针的引入 数据结构分为动态数据结构和静态数据结构，在实际的编程过程中，经常会遇到这种问题：我们不能确定操作的数据的个数。 如果用数组太大，会超内存，反之可能不够用。如果随着数据的增多，有一种数据结构随着内存变大，就可以解决这种问题，这 种数据结构就是动态数据结构。 一个动态数据结构是元素（或结点）的汇集。与数组不同，它不需要包括存储固定数目的存储空间，而是在程序执行时随着 数据的需要而扩充或缩减。 讨论动态数据结构，就要讨论与之相关的一种静态数据结构———指针。 指针的实质 指针就是‘地址’，指针存储的变量就是指针变量。指针变量单元中存放的是某种数据变量单元的地址，通过这个地址可以 找到这种类型的数据。我们所关心的是指针指向的一个什么样的数据，即数据的基类型是什么。 指针的应用 一、定义： 1.type rec=^integer; var i,j:rec; 2.var i,j:^integer; 二、使用 1.开辟 new(i); 功能：系统将自动分配一个存放数据的存储单元，并把存储单元的地址赋给指针变量i，此单位能存放的数据的类型正好 是i的基类型，存储单元的大小由数据的基类型决定。 2.释放 dispose(i); 功能：为了节省空间，对于一些已经不需要的动态变量单元，系统能通过dispose收回。 3.赋值 i^:=j^; 功能：给指针变量赋值，正是我们所需要的数据。 注:i:=j; 赋值给i的是j的地址，i的地址会变成j的地址，即两个指针变量的地址相同，同时指向一个数据； i^:=j^; 赋值给i的是j的数值，i的地址并未改变。 三、使用样例 输入两个整数，按照从小到大打印出来。 program taxis; type pointer=^integer; var p,q:pointer; procedure swap(var h,r:pointer); var t:pointer; begin t:=h; h:=r; r:=t; end; begin new(p); new(q); readln(p^,q^); if p^q^ then swap(p,q); writeln(p^, ,q^); dispose(p); dispose(q); end. {自己通过free pascal 编译运行的} 链表 引入 设又一批数{1，2，12，45，6，12，4，1，65，……}，如何存放呢？我们当然会选择以前学的，数组，但是如果不知道又多少的数据呢？那就得开一个足够大的数组，但是如果数据量很大呢？这种数据结构缺乏灵活性，往往会浪费很多空间，这就是静态数据结构。 本文将介绍一种简单实用的数据结构——链表。 链表的定义 type pointer=^rec; rec=record data:longint; next:pointer; end; var p1,p2:pointer; new(p1); new(p2); p1^.data:=10; p1^.next:=p2; 通过这样的一种递归建立联系。 建立链表 第一步：申请新节点； 第二步：给结点的数据域和指针域赋值； 第三步：将结点链接到表中的某一位置。 例题： 建立一个有十个结点的链表，最后输出该链表。 Program creatable(input, output); Type Pointer=^rec; Rec=record Data:string[5]; Next:pointer; End; Var P1,p2,h:pointer; I:integer; Begin New(p1); Readln（p1^.data）; H:=p1; Fo r I:=1 to 9 do Begin New(p2); Readln(p2^.data); P1.next:=p2; P1:=p2; End;