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.