informatika-2022-23: Azterketa: 2023ko maiatzaren deialdia

2023ko Maiatzaren deialdiko programa: Kromoen bilduma

Ariketari lotutako informazioa:

2023-05-24_KromoenBilduma.pdf (ariketaren enuntziatua)
2023-05-24_KromoenBilduma.pas programa (adibidez C:\GurePrograma karpetan koka daiteke edo adibidez C:\KromoBilduma karpetan)

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-05-24_KromoenBilduma.pas programak neurri desberdineko datu-fitxategiak prozesa ditzake, adibidez 21, 30 edo 39 elementuko datu-fitxategiak (gehienez 340 elementu izan ditzake datu-fitxategiak). Ondorioz, programa honetan erabiltzen den arraya zehazteko luzera logikoa adierazten duen aldagaia beharko da, jakinik arrayaren muga 340 elementukoa dela:

program Kromoak_2023ko_maiatza;
 
uses
   crt, sysutils;
 
const
   iMAX = 340;                  // enuntziatuan 471
   sBIDEA = 'C:\KromoBilduma\';
 
type
   taiBilduma = array[1..iMAX] of integer;

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 -------------------------- *)