creatb~1.pas

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

Program creatbook(input,output,books);
TYPE
 book=Record
       xm : string[16];
       sh : integer ;
       sm : string[16];
       dj : real ;
       sl : integer ;
      END  ;
 bookfl=file of book;
VAR
 st:string; 
 g : bookfl;
Procedure creat(var f:bookfl;str:string);
  VAR
    x : book;    
  begin 
    assign(f,str);
    rewrite(f);
    writeln('name bookname booknum price shuliang ');
    while not eof do
     begin
       with x do
        begin 
          readln(xm) ; 
          readln(sm) ; 
          readln(sh,dj,sl) ; 
        end ; 
       write(f,x)
     end;
   close(f)
 end ;  
BEGIN
 st:='books' ; 
 creat(g ,st) ; 
END. 
BEGIN
    st:='books' ; 
    assign(g,st) ;
    rewrite(g);
    creat(g ,st) ; 
    Close(g)
  END.