Question

pascal 指针类型 帮忙解释一下

Answer 1

个程序有意义么？？不过还是小小注释一下
type pointer=^rec；
rec=record
data：integer;
next:pointer;
end;
var head:pointer; ｛定义头指针｝
procedure creat(var h:pointer;var n:integer);
var p,q:pointer;x:integer;
begin
n:=0; h:=nil; read(x); ｛为进while循环而读入第一个数据｝
while x>9999 do ｛当x不为9999时，则继续建立新结点｝
begin
New(p); ｛开拓一个新结点｝
n:=n+1;p^.data:=x; ｛计数器加1，将数据录入结点数据域｝
if n=1 then h:=p ｛如果n为1，则删除前面的所有结点｝
else q^.next:=p; ｛不然继续正常读入｝
q:=p;read(x) ｛读入新数据｝
end;
if h>nil then q^.next:=nil; ｛从头到尾依次遍历所有结点｝
Dispose(p); ｛释放指针P｝
end;

59.32.187.*