关于PASCAL指针的基础问题

[复制链接]
查看11 | 回复1 | 2009-8-20 18:25:07 | 显示全部楼层 |阅读模式
指针 指针是通过地址来访问变量的一种特殊的数据类型,属于动态的数据结构,它可以在需要时产生,用完后则又可以取消或回收,以减少占用的内存空间。指针变量与其他类型的变量不同,它占有的不是数据,而是地址。由于动态数据结构的变量是在程序执行过程中动态生成的,所以不能预先予以说明,无法预先给这些变量起名字,访问时也无法通过名字直接输出或显示,而只能用指针得到其地址,然后间接访问。 1、定义指针类型在Turbo Pascal中,指针变量用来存放某个存储单元的地址,即指针变量指向某个存储单元。一个指针变量仅能指向某一种类型的存储单元,这种数据类型是在指针类型的定义中确定的,称为指针类型的基类型。指针类型定义如下:类型名=^基类型名;例如:type q=^integer; var a,b,c:q;说明:q是一指向整型存储单元的指针类型,其中"^"为指针符。a,b,c均定义为指针变量,分别可以指向一个整型存储单元。上例也可用变量说明为:
var a,b,c:^integer;指针也可以指向有结构的存储单元。例如:type person=record
name:string[10];
sex:(male,female);
age:20..70
end; var pt:^person;pt为指向记录类型person的指针变量。2、动态变量应用一个指针指向的动态存储单元即动态变量的形式如下:
指针变量名^例如:p^、q^、r^指针变量p和它所指向的动态变量p^之间有如下关系:以下语句把整数5存放到p所指向的动态变量p^中去:p^:=5;以下语句把p所指向的p^中的值赋给整型变量i:i:=p^;如果指针变量p并未指向任何存储单元,则可用下列赋值语句:p:=nil;其中nil是保留字,表示“空”,相当于C语言里面的null 3、对动态变量的操作在Turob Pascal程序中,动态变量不能由var直接定义而是通过调用标准过程new建立的。过程形式为:
new(指针变量名);如果有下列变量定义语句: var p:^integer;仅仅说明了p是一个指向整型变量单元的指针变量,但这个整型单元并不存在,在指针变量p中还没有具体的地址值。在程序中必须通过过程调用语句:new(p);才在内存中分配了一个整型变量单元,并把这个单元的地址放在变量p中,一个指针变量只能存放一个地址。在同一时间内一个指针只能指向一个变量单元。当程序再次执行new(p)时,又在内存中新建立了一个整型变量单元,并把新单元的地址存放在p中,从而丢失了旧的变量单元的地址。为了节省内存空间,对于一些已经不使用的现有动态变量,应该使用标准过程dispose予以释放。过程形式为:dispose(指针变量名);为new(指针变量名)的逆过程,其作用是释放由指针变量所指向的动态变量的存储单元。例如在用了new(p)后在调用dispose(p),则指针p所指向的动态变量被撤销,内存空间还给系统,这时p的值为 nil。4.需要注意之处1、P与P^的区别P是指向该动态变量的指针变量名,P^则称为动态变量或标志变量。P的值是P^的首地址,P^的值为与基类型相同的一个值。2、定义后及时分配存储单元定义了一个指针变量后,并没有为该指针分配动态存储单元,此时的P的值无定义,调用P^则会产生运行错误。若想使该指针可用,可以对指针赋值,也可以通过NEW()过程分配存储单元。3、使用后及时收回存储单元指针使用后,不会自动归还占用的存储空间,应及时使用DISPOSE()过程来释放P^所占用的存储单元,以免浪费有限的存储空间.指针常用于链表。单链表的数据类型可定义如下:type dlb=^node;node=record
data:datatype;
next:dlb;end; 例1 连续输入一序列整数,组成链表(并以动态的形式把它们记录下来),当输入的数为-1时,停止输入,然后把输入的整数按相反的顺序输出. program lianbiao;type link=^data;
data=record
num:integer;
next:link;
end;var p,q:link;
i:integer;begin q:=nil;readln(i);while i-1 do begin new(p);with p^ do begin num:=i; next:=q; end;q:=p;readln(i);end; while pnil do begin write(p^.num:6); p:=p^.next; end;readln;end.不过更多时候,常用一维数组形式来代替指针定义链表数据结构:type jid=record
data:datatype;
next:integer;
end;var alist=array[0..maxsize] of jid参考资料:信息技术竞赛辅导

已赞过已踩过<
回复

使用道具 举报

千问 | 2009-8-20 18:25:07 | 显示全部楼层
老实说指针不稳定,我就不学了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行