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:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | (* ---------------------------- 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:
iruzkinik ez:
Argitaratu iruzkina