informatika-2022-23: Azterketa: 2022ko maiatzaren deialdia

2022ko Maiatzaren deialdiko programa: Liburutegia

Ariketari lotutako informazioa:

2022-05-23_Liburutegia_MaileguakEtaErreserbak.pdf (ariketaren enuntziatua)
2022-05-23_Liburutegia_MaileguakEtaErreserbak.pas bezero-programa (unitatearekin batera karpeta berean kokatu, adibidez C:\GurePrograma karpetan)
datumota.pas unitatearen iturburu-kodea (bezero-programarekin batera karpeta berean kokatu, adibidez C:\GurePrograma karpetan)
liburu.pas unitatearen iturburu-kodea (bezero-programarekin batera karpeta berean kokatu, adibidez C:\GurePrograma karpetan)

Hau da datumota izeneko unitatearen kodea:

(* -------------------------- datumota unitatearen kodea ------------------ *)
 
INTERFACE
 
const
   iERRESERBA_MAX = 20;        { enuntziatuan 100 }
   sBIDEA = 'C:\Azterketa\';
type
   tsKate10 = string[10];
   tsKate15 = string[15];
   tsKate55 = string[55];
   tsKate199 = string[199];
 
   trdLiburu = record
                  sLiburuKodea: tsKate15;
                  sIzenburua: tsKate55;
                  sMaileguanNori: tsKate15;
                  iAldizMaileguan: integer;
                  sKokapena: tsKate10;
                  sAzkenMaileguData: tsKate10;
               end;
   tfrdLiburutegiFitxategia = file of trdLiburu;
 
   trdErreserba = record
                     sLiburuKodea: tsKate15;
                     sErabiltzaileZbk: tsKate15;
                     sTelefonoa: tsKate10;
                     sEskariData: tsKate10;
                  end;
   tardErreserbak = array[1..iERRESERBA_MAX] of trdErreserba;
   tfrdErreserbenFitxategia = file of trdErreserba;
    
    
IMPLEMENTATION
 
   (* hutsik *)
    
END.
    
(* ---------------------------- unitatearen amaiera -------------------------- *)

Eta hau da liburu izeneko unitatearen interfazea:

(* -------------------------- liburu unitatearen interfazea ------------------ *)
 
uses
   datumota, crt;
 
type
   tsKate10 = string[10];
   tsKate15 = string[15];
   tsKate55 = string[55];
   tsKate199 = string[199];
   trdLiburu = record
                  sLiburuKodea: tsKate15;
                  sIzenburua: tsKate55;
                  sMaileguanNori: tsKate15;
                  iAldizMaileguan: integer;
                  sKokapena: tsKate10;
                  sAzkenMaileguData: tsKate10;
               end;
   tfrdLiburutegiFitxategia = file of trdLiburu;
   trdErreserba = record
                     sLiburuKodea: tsKate15;
                     sErabiltzaileZbk: tsKate15;
                     sTelefonoa: tsKate10;
                     sEskariData: tsKate10;
                  end;
   tardErreserbak = array[1..iERRESERBA_MAX] of trdErreserba;
   tfrdErreserbenFitxategia = file of trdErreserba;
    
procedure FitxategitikArrayraIrauli(sFitxIzenErreserbak: tsKate199;
                                      var ardErreserbak: tardErreserbak;
                                            var iLuzera: integer);
procedure ArraytikFitxategiraIrauli(const ardErreserbak: tardErreserbak;
                                                iLuzera: integer;
                                    sFitxIzenErreserbak: tsKate199);
 
procedure ErreserbenArrayaIkusi(const ardErreserbak: tardErreserbak;
                                            iLuzera: integer);
procedure LiburutegiarenFitxategiaSortu(sFitxIzenLiburutegia: tsKate199);
procedure LiburutegiarenFitxategiaIkusi(sFitxIzenLiburutegia: tsKate199);
procedure ErreserbenFitxategiaSortu(sFitxIzenErreserbak: tsKate199);
procedure ErreserbenFitxategiaIkusi(sFitxIzenErreserbak: tsKate199);
    
(* ---------------------------- interfazearen amaiera -------------------------- *)