Turbo Pascal 的指针

来源：百度知道 编辑：UC知道 时间：2024/06/23 12:01:44
有2个题~麻烦大家帮我解决下 。最好有思路 不要光给答案
（1）建立单项链表，输出链表的节点值，并统计结点个数。
（2）建立单项链表，统计链表平均各值

哇！！ pascal 怀念一下ToT 想当年。。。 现在都快忘了。。
type
point=^PP;
pp=record
data:integer;
next:point;
end;
var
head,p,t:point;
max,s:integer;
begin
new(head);
max:=10;

new(head);
p:=head;
for i:=1 to max do
begin
new(t);
t^.data:=i;
p^.next:=t;
p:=t;
end;

p:=head;
s:=0;
while p^.next<>nill do
begin
p:=p^.next;
writeln(p^.data);
s:=s+1;
end;
writeln("total:",s);
end.

思想就这样了 但愿没语法错误。。 人老了>.<

这题有什么思路啊····暴力