Azterketa: 2021eko uztailaren deialdia

2021eko Uztailaren deialdiko programa: Txertoak


Ariketari lotutako informazioa:

• 2021-06-30_Txertoak.pdf (ariketaren enuntziatua)
• Txertoak.zip (programaren balizko emaitza bat eta txerto unitatea). Hiru fitxategiak karpeta berean kokatu:
• txerto unitatearen
• txerto.ppw fitxategia eta... 
• txerto.ow fitxategia
• iturburu-programaren
  
• Txertoak_azterketakoa.pas fitxategia

Hau da txerto izeneko unitatearen interfazea:

(* ---------------------------- txerto unitatearen interfazea -------------------- *)

   const
      iLUZERA = 72 ;        (* ikasle kopuru maximoa *)
      
   type
      integer = longint ;   (* INTEGER-entzat 4 byte erabiltzera behartzen da *)
      real    = double ;    (* REAL-entzat 8 byte erabiltzera behartzen da    *)
         
      tsKateIzena = string[200] ;
      tsKate49    = string[49] ;
      tsKate9     = string[9] ;
      tsKate5     = string[5] ;
      tsKate2     = string[2] ;
  
      trdHitzorduBat = record
                          iEguna: integer ;
                          sOrdua: tsKate5 ;
                          sLekua: tsKate5 ;
                       end ; 
      trdIkasleBatKomunikatu = record
                                         sNAN: tskate9 ;    (* 123456789Z *)
                                         sNor: tsKate49 ;   (* IZA GARAI, MARTIN *)
                                   sTelefonoa: tskate9 ;    (* 123456789 *)
                                  rdHitzordua: trdHitzorduBat ;
                               end ;
      tfrdKomunikazioak = file of trdIkasleBatKomunikatu ;
      
      trdIkasleBatTxertatu = record
                                            sNAN: tskate9 ;    (* 123456789Z *)
                                            sNor: tsKate49 ;   (* IZA GARAI, MARTIN *)                            
                                     rdHitzordua: trdHitzorduBat ;
                                     boTxertatua: boolean ;
                                sMatrilulaAldatu: tskate9 ;    (* uuuuhhee *)
                             end ;
      tfrdTxertaketa = file of trdIkasleBatTxertatu ;

   procedure TxertaketaFitxategiaSortu(sFitxIzenT: tsKateIzena; sFitxIzenK: tsKateIzena) ;
   procedure IkasleBatenTxertoarenDatuakErakutsi(const rdIkaslea: trdIkasleBatTxertatu) ;
   procedure TxertaketaFitxategiaIkusi(sFitxIzenT: tsKateIzena) ;
   procedure TxertaketaFitxategiaHasieratu(sFitxIzenT: tsKateIzena) ;
   
   procedure KomunikazioFitxategiaSortu(sFitxIzenK: tsKateIzena) ;
   procedure KomunikazioHitzorduaOsatu(sFitxIzenK: tsKateIzena) ;
   procedure IkasleBatenKomunikazioaErakutsi(const rdIkaslea: trdIkasleBatKomunikatu) ;
   procedure KomunikazioFitxategiaIkusi(sFitxIzenK: tsKateIzena) ;
   procedure KomunikazioFitxategiaHasieratu(sFitxIzenK: tsKateIzena) ;
   
(* ---------------------------- interfazearen amaiera -------------------------- *)

---

2021eko Uztailaren deialdiko teoria

Galderei dagozkien programak:

• 1.pas
• 2.pas
• 3.pas
• 4.pas
• 5.pas
• 6.pas
• 7.pas