2023(e)ko ekainaren 27(a), asteartea

Azterketa: 2023ko uztailaren deialdia


2023ko Uztailaren deialdiko programa: Taldea kromoekin


Ariketari lotutako informazioa:
Datu-fitxategiak sortzeko programak:
  • DatuFitxategiaSortu.pas bezero-programa (bilduma21 unitatearekin, bilduma30 unitatearekin edo bilduma39 unitatearekin batera karpeta berean kokatu, adibidez C:\GurePrograma karpetan)  
  • bilduma21.pas unitatearen iturburu-kodea (DatuFitxategiaSortu.pas bezero-programarekin batera karpeta berean kokatu, adibidez C:\GurePrograma karpetan), edo...  
  • bilduma30.pas unitatearen iturburu-kodea (DatuFitxategiaSortu.pas bezero-programarekin batera karpeta berean kokatu, adibidez C:\GurePrograma karpetan), edo...  
  • bilduma39.pas unitatearen iturburu-kodea (DatuFitxategiaSortu.pas bezero-programarekin batera karpeta berean kokatu, adibidez C:\GurePrograma karpetan)  
Datu-fitxategiak:
  • KROMOAK.DAT datu-fitxategiak 21, 30 edo 39 elementu izan ditzake (bilduma21.pas unitatearekin, bilduma30.pas unitatearekin edo bilduma39.pas unitatearekin sortu bada) 
  • JOKALARIAK.DAT datu-fitxategiak 340 elementu ditu eta bezero-programarekin batera karpeta berean kokatu (adibidez, C:\GurePrograma karpetan edo C:\KromoBilduma karpetan)  

2023-06-30_TaldeaKromoekin.pas programak neurri desberdineko datu-fitxategiak prozesa ditzake, adibidez 21, 30 edo 39 elementuko datu-fitxategiak (gehienez 340 elementu izan ditzake datu-fitxategiak). Hau da bilduma21 izeneko unitatearen interfazea (bilduma30 unitatearen eta bilduma39 unitatearen interfazeak berdinak dira, eta aldea BildumarenFitxategiaSortu prozeduran dago):
(* -------------------------- bilduma21 unitatearen interfazea ------------------ *)

const
   sBIDEA = 'C:\KromoBilduma\';

type
   integer = smallint;     (* INTEGER-entzat 2 byte erabiltzera behartzen da *)
   
   tsKate25  = string[25];
   tsKate199 = string[199];

   trdBalioak = record
                   iDefentsan,
                   iKontrolean,
                   iErasoan,
                   iGuztira: integer;
                end;

   trdKromoa = record
                  iZenbakia : integer;
                  sIzena    : tsKate25;
                  sTokia,
                  sTaldea   : tsKate25;
                  rdBalioak : trdBalioak;
                  iZenbatAle: integer;
               end;

   tfrdBilduma = file of trdKromoa;

   procedure BildumarenFitxategiaSortu(sFitxIzenBilduma: tsKate199);

   procedure BildumarenFitxategiaIkusi(sFitxIzenBilduma: tsKate199);
   
(* ---------------------------- interfazearen amaiera -------------------------- *)




2023ko Uztailaren deialdiko teoria

Galderei dagozkien programak:


 

iruzkinik ez:

Argitaratu iruzkina