UC知道pascal链表问题
来源：百度知道 编辑：UC知道 时间：2024/06/30 02:28:24
program ceshi;
type point=^node;
node=record
info:integer;
link:point;
end;
var p1,p2,k:point;
i,n:integer;
begin
readln(n);
new(p1);
readln(p1^.info);
k:=p1;
for i:=1 to n do
begin
new(p2);
readln(p2^.info);
p1^.link:=p2;
p1:=p2;
end;
p2^.link=nil;
while k^.link<> nil do
begin
write(k^.info,'->');
k:=k^.link;
end;
end.
这个程序有问题么？
如果有，麻烦指出；
顺便请给个读入链表后输出的程序
type point=^node;
node=record
info:integer;
link:point;
end;
var p1,p2,k:point;
i,n:integer;
begin
readln(n);
new(p1);
readln(p1^.info);
k:=p1;
for i:=1 to n do
begin
new(p2);
readln(p2^.info);
p1^.link:=p2;
p1:=p2;
end;
p2^.link=nil;
while k^.link<> nil do
begin
write(k^.info,'->');
k:=k^.link;
end;
end.
这个程序有问题么？
如果有，麻烦指出；
顺便请给个读入链表后输出的程序
这个程序是没有问题的，但是，对于指针，你的这个程序其实在很多题目的实现过程上会比较复杂。
建议的改法：
设置链表尾时，不要把p2^.link=null，而是新开辟一个空间，然后把p2赋值成null。
对于楼上的看法，其实我是比较赞成的。
本人是广东的省队选手，一般不要在这里上面发问，要去noi官网上发问，那里的高手才比较多。
算了吧，据我所知，目前百度上的编程高手几乎是没有
他们回答了你也是乱说的
指针类型我实在是从来不用的，所以现在连你的程序也看不懂了
悲啊。。。