11cfilo.pas

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

program cfilo(input,output);
TYPE
  datype=integer; 
  point= ^node;
  node=record
    data:datype;
    link:point
  end;
var
 head:point;
procedure scan(head:point);
VAR 
    x:datype;
    p:point; 
begin
  p:=head;
  while p<>nil do
  begin
   x:=p^.data;
   write(x:4);
   p:=p^.link;
  end; 
end;
procedure crtfilo(VAR head:point);
var
 x:datype;
 last,next:point;
begin
 next:=nil;
 read(x);
 while not eof do
  begin
   new(head);
   head^.data:=x;
   head^.link:=next;
   next:=head;
   read(x);
  end;
end;
begin
 crtfilo(head);
 scan(head);
end.