11cfifo.pas

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

program cfifo(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 crtfifo(VAR head:point);
var 
 x:datype;
 last,next:point;
begin
 read(x);
 new(head);
 head^.data:=x;
 last:=head;
 read(x);
 while not eof do
  begin
   new(next);
   next^.data:=x;
   last^.link:=next;
   last:=next;
   read(x);
  end;
 last^.link:=nil;
end;
begin
 crtfifo(head);
 scan(head);
end.