Ariketari lotutako informazioa:
- 2021-06-30_Txertoak.pdf (ariketaren enuntziatua)
- Programaren balizko emaitza txerto.pas unitatea eta Txertoak_azterketakoa.pas bezero-programa). Bi fitxategi horiek karpeta berean kokatu eta konpilatu:
- txerto unitatea konpilatzean ondoko bi hauek lortuko dira:
- txerto.ppw fitxategia eta...
- txerto.ow fitxategia
- Txertoak_azterketakoa.pas bezero-programa konpilatzean eta linkatzean hau lortuko da:
- Txertoak_azterketakoa.exe fitxategi exekutagarria
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
1-B | 2-B-C-D | 3-B | 4-A | 5-C-D | 6-A | 7
Galderei dagozkien programak:
iruzkinik ez:
Argitaratu iruzkina
Iruzkinen bat idazteko Google-ko kontu bat behar duzu. Iruzkin guztien moderazio-ardura blogeko administratzaileari dagokio.