11scan.pas

关于课件 好多种结构的算法 等等 大家自己看吧

procedure scan(head:point);
type
  datype=integer; 
  point= ^node;
  node=record
    data:datype;
    link:point
  end;
VAR 
    x:datype;
    p:point; 
begin
  p:=head;
  while p<>nil do
  begin
   x:=p^.data;
   writeln(x);
   p:=p^.link;
  end; 
end;