M1RAI

Bibiliotheque

Oct 3rd, 2019
117
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program BIBLIO;
  2. uses wincrt;
  3. type
  4.     livre=record
  5.     TL,NA,NE:string;
  6.     Annee,Page:word;
  7.     end;
  8. tab=array[1..150] of livre;
  9. Var
  10. T:tab;
  11. n:byte;
  12. ad:word;
  13.  
  14. Procedure saisie ( var n:byte);
  15. begin
  16.     repeat
  17.         write('n=');
  18.         readln(n);
  19.     until (n>=2) and (n<=150)
  20. end;
  21.  
  22. Procedure remp (var t:tab ; n:byte);
  23. Var i:byte;
  24. begin
  25.     for i:=1 to n do
  26.         Begin
  27.             with t[i] do
  28.                 begin
  29.                     write('Titre du livre: ');
  30.                     readln(TL);
  31.                     write('Nom Auteur: ');
  32.                     readln(NA);
  33.                     write('Nom Editeur: ');
  34.                     readln(NE);
  35.                     write('Année de publication: ');
  36.                     readln(annee);
  37.                     write('Nombre de page: ');
  38.                     readln(page);
  39.                 end;
  40.         end;
  41. end;
  42.  
  43. Procedure aff (T:tab ; n:byte ; ad:word);
  44. var i:Byte;
  45. begin
  46.     Write('Saisir une année de publication: ');
  47.     readln(ad);
  48.     for i:=1 to n do
  49.         begin
  50.             with t[i] do
  51.                 begin
  52.                     if (annee=ad)
  53.                     then
  54.                     begin
  55.                      writeln(TL);
  56.                      writeln(NA);
  57.                      writeln(NE);
  58.                      Writeln(page);
  59.                     end;
  60.              end;
  61.         end;
  62. end;
  63.                
  64.        
  65.  
  66.  
  67.  
  68.  
  69.  
  70. begin
  71. saisie(n);
  72. remp(T,n);
  73. aff(T,n,ad);
  74. end.
RAW Paste Data