Question

pascal 指针类型 帮忙解释一下

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 x<>9999 do
begin
New(p);
n:=n+1;p^.data:=x;
if n=1 then h:=p
else q^.next:=p;
q:=p;read(x)
end;
if h<>nil then q^.next:=nil;
Dispose(p);
end;

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;

Answer 2

program transfer(output);
var
a,b,c:^integer;
begin
new(a); a^:=100;
new(b); b^:=200;
new(c); c^:=50;
a^:=b^;
b^:=c^;
c^:=a^;
writeln(a^:5,b^:5,c^:5);
dispose(a);
dispose(b);
dispose(c);
readln;
end.
运行结果：200 50 200

Answer 3

我解释的有一点错误，更正如下：
if h<>nil then q^.next:=nil; ｛如果有多个节点，则将尾结点赋予nil，即链表结束｝