Informatika 2023-24

2024(e)ko maiatzaren 10(a), ostirala

15. astea | etxerako eguna...

John Zaharra (mp3)

Mo Ghile Mear (mp3)

Etxerako eguna...
(Doinua: Irlandar herrikoa)

Etxerako eguna
iritsi zaigu, lagunak!
Kanta (de)zagun azkena
alaitzeko gure bidea.

[zuek]  - Ez digu konpilatzen
[nik]    - "FOR" hori zertarako?
[zuek]  - Ez gaude oso ziur
[nik]    - Horrela ezin daiteke!
Etxerako eguna
iritsi zaigu, lagunak!
Kanta (de)zagun azkena
alaitzeko gure bidea.

[zuek]  - Nere programa ez dabil
[nik]    - Fitxategia non dago?
[zuek]  - Zer da fitxategia?
[nik]    - Horrela ezin daiteke!
Etxerako eguna
iritsi zaigu, lagunak!
Kanta (de)zagun azkena
alaitzeko gure bidea.

Bertso batzuk Eskoziako gaelikoz eta gainerakoak Irlandako gaelikoz

2024(e)ko maiatzaren 9(a), osteguna

15. astea | hirugarren kontrola...

John Zaharra (mp3)

Mo Ghile Mear (mp3)

Hirugarren kontrola...
(Doinua: Irlanda herrikoa)

Hirugarren kontrola
iritsi zaigu, lagunak!
Kanta (de)zagun batera
indartzeko gure bihotzak.

Katearen luzera
zero posizioan dago,
baina bektoreetan
aldagaia beharrezko.
Hirugarren kontrola
iritsi zaigu, lagunak!
Kanta (de)zagun batera
indartzeko gure bihotzak.

Programa ulergaitza
algoritmo iluna.
Denbora aurrera doa,
berriro zulora noa!
Hirugarren kontrola
iritsi zaigu, lagunak!
Kanta (de)zagun batera
indartzeko gure bihotzak.

Bertso batzuk Eskoziako gaelikoz eta gainerakoak Irlandako gaelikoz

2024(e)ko maiatzaren 1(a), asteazkena

Azterketa | Teoriako galderak nola prestatu

Dakigunez, beste urte batzuetako teoriako azterketen soluzio osoak ez ematea erabaki du irakasle taldeak. Enuntziatuarekin batera, lau aukeren artean zein den zuzena bai argiratuko da, baina ez da argitaratuko erantzun zuzen horren justifikazioa (ikusi hemen justifikazio adibide bat).

Teoriako galderak prestatze aldera, interesgarria izan dakikoke ikasleari galderaren kodea idaztea eta konpilatzea.

Hona hemen galdera baten enuntziatua. Aukera zuzenaren letra hautatzeaz gain, bere justifikazioa ondo azaltzea ikaslearen lana izango da azterketan:

2023-06-30_Teoria-ErantzunLaburrekin.pdf

Eta hemen erakusten dira, batetik galdera horren kodea eta bestetik kode hori konpilatu ondoren agertzen diren mezuak:

program Bat;
var
   iZbk1: integer;
   iZbk2: integer;
   boErantzuna: boolean;
begin
   iZbk1 := 17;
   iZbk2 := -7;
   boErantzuna := iZbk1 > 0 and iZbk2 < 0;
   if boErantzuna then
      writeln('TRUE')
   else
      writeln('FALSE');
   readln;
end.

Bat.pas(9,25) Error: Incompatible types: got "Boolean" expected "LongInt"
Bat.pas(23) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted

Azterketa | Teoriako galderei nola erantzun

Beste urte batzuetako teoriako azterketen soluzio osoak ez ematea erabaki du irakasle taldeak. Enuntziatuarekin batera, lau aukeren artean zein den zuzena bai argiratuko da, baina ez da argitaratuko erantzun zuzen horren justifikazioa.

Gauzak horrela, ikus eta ikas dezagun adibide bakar batekin teoriako galderei nola erantzun beharko litzatekeen. Hona hemen galdera baten enuntziatua, non informazioa hiru koloretan desberdindu den:

Beltzez Teoriako galderaren enuntziatuak, ikasleak azterketan jasoko duen informazio bakarra. eGelan argitaratu dira azken hiru kurtsoetako azterketen enuntziatuak
Moreaz Teoriako galderaren erantzun labur-laburra (lau aukeretatik egokiari dagokion letra). eGelan argitaratu dira azken hiru kurtsoetako azterketen erantzun laburrak
Urdinez Teoriako galderaren erantzunari dagokion justifikazioa. Ez dira argitaratuko

Galderaren erantzuna ontzat emateko justifikazio egokia derrigorrezkoa delako, hona hemen adibide bat ikasleak ikus dezan teoriako galderei nola erantzun beharko lukeen:

2023-06-30_Teoria-ErantzunLaburrekin.pdf

Azterketa: 2023ko uztailaren deialdiko programa (derrigorrezkoak)

Ezaguna denez, Azterketa: 2023ko uztailaren deialdia izenburuko artikuluan azterkari buruzko informazio guzti-guztia dago, bai programari buruzkoa zein teoriari buruzkoa.

Berridatz dezagun uztaileko programa baina soilik derrigorrezko aginduak idatziz (letra larrietan idatzirik ematen diren aginduak). Ez dugu esan nahi gainerako aginduak soberan daudenik, baizik eta letra larrietan idatziko ditugunak berebiziko garrantzia dutela eta besteak horien menpekoak direla nolabait.

Uztaileko programa osoa 2023-06-30_Kromoak.pas fitxategian jasota dago eta honek JOKALARIAK.DAT datu-fitxategia edo KROMOAK.DAT datu-fitxategia erabil ditzake. Datu-fitxategi horiek aldez aurretik sortuta daude (adibidez, DatuFitxategiaSortu.pas programari esker).

2023-06-30_Kromoak_DerrigorrezkoAginduak.pas fitxategian jasota dagoen uztaileko programa berezian, letra larriz nabarmendu dira ezinbestekoak diren aginduak. Konpiladorearen ingurune barnetik programa hau exekutatzean, KROMOAK.DAT datu-fitxategia (edo JOKALARIAK.DAT datu-fitxategia) C:\Dev-Pas karpetan kokatu behar da derrigorrez. Ikusi jarraian uztaileko programa bereziaren kodea, non, aurreratu den bezala, azpiprograma bakoitzean letra larrietan jarri diren aginduak garrantzitsutzat jo daitezkeen:

{ Hitz larrietan idatzi diren aginduak funtsezkoenak dira azpiprogrametan,    }
{ larraietan dauden aginduen inguruan dabiltzate gainerako agindu guztiak.    }

{ Konpiladorearen ingurune barrurik programa hau exekutatzean, JOKALARIAK.DAT }
{ edo KROMOAK.DAT datu-fitxategiak C:\Dev-Pas karpetan kokatu behar dira.     }
 
program KromoakDerrigorrezkoAginduak_2023ko_uztaila;

uses
   crt, sysutils;

const
   iMAX = 340;

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;
   
   trdJokalaria = record
                     sIzena   : tsKate25;
                     sTokia   : tsKate25;
                     boHartuta: boolean;
                  end;
   
   tardJokalariak = array[1..iMAX] of trdJokalaria;
   tardNireTaldea = array[1..11] of trdJokalaria;


{------------------TALDEAREN KONFIGURAZIA------------------------------}
function fncKonfigurazioaHautatu: char;
  var
     cHautapena: char;
  begin
     writeln;
     writeln('KONFIGURAZIOAK':20);
     writeln('==============':20);
     writeln('  A)   4-4-2     (atezain 1, 4 atzelari, 4 erdilari eta 2 aurrelari)':74);
     writeln('  B)   4-5-1     (atezain 1, 4 atzelari, 5 erdilari eta aurrelari 1)':74);
     writeln('  C)   4-3-3     (atezain 1, 4 atzelari, 3 erdilari eta 3 aurrelari)':74);
     writeln('  D)   3-4-3     (atezain 1, 3 atzelari, 4 erdilari eta 3 aurrelari)':74);
     writeln;
     repeat
        write('Zure aukera: ':20);
        READLN(cHautapena);                   (* KASU EGOKIA AUKERATU *)
        cHautapena := upcase(cHautapena);
     until (cHautapena >= 'A') and (cHautapena <= 'D');
     FNCKONFIGURAZIOAHAUTATU := cHautapena;          (* BALIOA ITZULI *)
  end;

{------------ARRAY BAT ELIKATU FITXATEGIKO DATUEKIN--------------------}
procedure FitxategikoDatuBatzukArrayBatera(        sFitxIzen: tsKate199;
                                              sPostuaZelaian: tsKate25; 
                                           var ardJokalariak: tardJokalariak; 
                                                 var iLuzera: integer);
  var  
     rdKromoBat: trdKromoa;
     f_B       : tfrdBilduma;
  begin
     assign(f_B, sFitxIzen);
     reset(f_B);
     
     iLuzera := 0;
     while not eof(f_B) do
     begin
        READ(f_B, rdKromoBat);               (* FITXATEGITIK IRAKURRI *)
        IF (rdKromoBat.sTokia = sPostuaZelaian) AND (rdKromoBat.iZenbatAle > 0) THEN
        BEGIN
           iLuzera := iLuzera +1;                   (* ARRAYA ELIKATU *)
           ardJokalariak[iLuzera].sIzena := rdKromoBat.sIzena;
           ardJokalariak[iLuzera].sTokia := sPostuaZelaian;
           ardJokalariak[iLuzera].boHartuta := FALSE;
        END;
     end;
     
     close(f_B);
  end;

{------------LORTUTAKO TALDEA PANTAILARATU----------------}
procedure TaldeaIkusi(const ardJokalariak: tardNireTaldea);
  var  
     iKont: integer;
  begin
     writeln('IZENA':30, 'TOKIA ZELAIAN':20);
     writeln('-----':30, '-------------':20); 
     FOR iKont:=1 TO 11 DO
     BEGIN                                 (* ARRAY OSOA PANTAILARATU *)
        WRITELN(ardJokalariak[iKont].sIzena:30, ardJokalariak[iKont].sTokia:20);
     END;
     writeln;
  end;

{-----------JOKALARI GEHIAGO NIRE TALDEAN------------------------------}
procedure JokalariakAukeratu( var ardJokalariak: tardJokalariak;
                                 iLuzJokalariak: integer;
                              var ardNireTaldea: tardNireTaldea;
                             var iLuzNireTaldea: integer;
                                        iZenbat: integer);
var
   iKont: integer;
   iZbk : integer;
begin
   randomize;
   FOR iKont:=1 TO iZenbat DO            (* ERREPIKAPEN KOPURU JAKINA *)
   BEGIN
      repeat
         iZbk := RANDOM(iLuzJokalariak) +1;   (* AUZAZKO BALIO EGOKIA *)
         write('iLuzJokalariak = ', iLuzJokalariak:3, 'iZbk = ':12, iZbk:3);
         if ardJokalariak[iZbk].boHartuta then
            writeln('JOKALARI HAU HARTUTA DAGO, ERREPIKATU!':42)
         else
            writeln;
      until (not ardJokalariak[iZbk].boHartuta);

      iLuzNireTaldea := iLuzNireTaldea +1;
      ardNireTaldea[iLuzNireTaldea].sIzena := ardJokalariak[iZbk].sIzena;
      ardNireTaldea[iLuzNireTaldea].sTokia := ardJokalariak[iZbk].sTokia;
      ardNireTaldea[iLuzNireTaldea].boHartuta := TRUE;
      ardJokalariak[iZbk].boHartuta := TRUE;        (* ARRAYA ELIKATU *)
   END;
end;

{--------JOKALARIA BILATU----------------------------------------------}
procedure JokalariaBilatu(     sFitxIzen:tsKate199; 
                              sJokalaria:tsKate25; 
                          VAR RDKROMOBAT:trdKromoa);    (* ERREGISTROA ITZULI  *)
  var
     f_B       : tfrdBilduma;
     boAurkitua: boolean;
  begin
     assign(f_B, sFitxIzen);
     reset(f_B);
     boAurkitua := FALSE;
     WHILE NOT boAurkitua AND NOT eof(f_B) DO
     BEGIN
        READ(f_B, rdKromoBat);               (* FITXATEGITIK IRAKURRI *)
        if upcase(rdKromoBat.sIzena) = upcase(sJokalaria) then
           boAurkitua := TRUE
     END;

    {--------------------------------ariketa honetan ziurtatuta dago...
     if not boAurkitua then
        rdKromoBat.iZenbakia := -1;
     --------------------------------...jokalaria aurkituko dela-------}
     
     close(f_B);
  end;

{------------------TAULA BEZALA ERAKUTSI-------------------------------}
procedure TaulaBezalaErakutsi(const rdKromoBat:trdKromoa);
  begin
     with rdKromoBat, rdBalioak do
     begin
        WRITE(iZenbakia:6);                       (* PANTAILAN IDATZI *)
        WRITE(sIzena:17);
        WRITE(sTokia:15);
        WRITE(sTaldea:12);
        WRITE(iDefentsan:6, iKontrolean:6, iErasoan:6, iGuztira:7);
        writeln;
     end;
  end;

{-------------TALDEAREN PUNTUAK KALKULATU------------------------------}
function fniPuntuakKalkulatu(          sFitxIzen: tsKate199; 
                             const ardNireTaldea: tardNireTaldea): integer;
  var  
     rdKromoBat: trdKromoa;
     iKont     : integer;
     iMetatua  : integer;
  begin
     IMETATUA := 0;            (* HASIERAKETA *)
     writeln('ZBK.':7, 'IZENA':16, 'TOKIA':15, 'TALDEA':12, 'DEF.':7,'KON.':6, 'ERA.':6, 'GUZT.':7);
     writeln('--------------------------------------------------------------------------':76);
     for iKont:=1 to 11 do
     begin
        JokalariaBilatu(sFitxIzen, ardNireTaldea[iKont].sIzena, rdKromoBat);
        TaulaBezalaErakutsi(rdKromoBat);
        IMETATUA := IMETATUA + rdKromoBat.rdBalioak.iGuztira;     (* METAKETA *)
     end;
     writeln('--------------------------------------------------------------------------':76);
     FNIPUNTUAKKALKULATU := IMETATUA;                        (* BALIOA ITZULI *)
  end;

{======PROGRAMA NAGUSIAREN ALADAGIAK===================================}
var
   sFitxIzen       : tsKate199;
   
   ardAtezainak    : tardJokalariak;
   ardAtzelariak   : tardJokalariak;
   ardErdilariak   : tardJokalariak;
   ardAurrelariak  : tardJokalariak;
   iLuzAtezainak   : integer;
   iLuzAtzelariak  : integer;
   iLuzErdilariak  : integer;
   iLuzAurrelariak : integer;
   cAukera         : char;
   
   iNireAtzelariak : integer; 
   iNireErdilariak : integer; 
   iNireAurrelariak: integer; 
   
   ardNireTaldea   : tardNireTaldea;
   iLuzNireTaldea  : integer;
   iPuntuak        : integer;
   
{=========PROGRAMA NAGUSIA=============================================}
begin      
   clrscr;
   write('Fitxategiaren izena eman ("KROMOAK.DAT" edo "JOKALARIAK.DAT"): ');
   readln(sFitxIzen);

   if not fileexists(sFitxIzen) then
      writeln('ERROREA!!! "', sFitxIzen, '" izeneko fitxategirik ez da')
   else
   begin
      writeln;
      writeln;
      writeln('1. URRATSA: LAU ARRAYAK BETE');
      writeln('============================');
      writeln;
      FitxategikoDatuBatzukArrayBatera(sFitxIzen, 'Atezaina', ardAtezainak, iLuzAtezainak);
      FitxategikoDatuBatzukArrayBatera(sFitxIzen, 'Atzelaria', ardAtzelariak, iLuzAtzelariak);
      FitxategikoDatuBatzukArrayBatera(sFitxIzen, 'Erdilaria', ardErdilariak, iLuzErdilariak);
      FitxategikoDatuBatzukArrayBatera(sFitxIzen, 'Aurrelaria', ardAurrelariak, iLuzAurrelariak);
      
      writeln;
      writeln('2. URRATSA: TALDEAREN KONFIGURAZIOA ERABAKIZ TALDEA OSA DAITEKEEN FROGATU');
      writeln('=========================================================================');
      writeln;
      writeln('Zure taldeak zer estrategia erabiliko du? Konfigurazioa bat hautatu');
      cAukera := fncKonfigurazioaHautatu;
      case cAukera of
        'A': begin
                iNireAtzelariak  := 4; 
                iNireErdilariak  := 4; 
                iNireAurrelariak := 2;
             end;
        'B': begin
                iNireAtzelariak  := 4; 
                iNireErdilariak  := 5; 
                iNireAurrelariak := 1;
             end;
        'C': begin
                iNireAtzelariak  := 4; 
                iNireErdilariak  := 3; 
                iNireAurrelariak := 3;
             end;
        'D': begin
                iNireAtzelariak  := 3; 
                iNireErdilariak  := 4; 
                iNireAurrelariak := 3;
             end;
      end;  { case }
         
      if (iLuzAtezainak >= 1) and
         (iLuzAtzelariak >= iNireAtzelariak) and
         (iLuzErdilariak >= iNireErdilariak) and
         (iLuzAurrelariak >= iNireAurrelariak) then
      begin
         writeln;
         writeln;
         writeln('3. URRATSA: TALDEA OSATU');
         writeln('========================');
         iLuzNireTaldea := 0;
         writeln('------------------------------------------');
         JokalariakAukeratu(ardAtezainak, iLuzAtezainak, ardNireTaldea, iLuzNireTaldea, 1);
         writeln('------------------------------------------');
         JokalariakAukeratu(ardAtzelariak, iLuzAtzelariak, ardNireTaldea, iLuzNireTaldea, iNireAtzelariak);
         writeln('------------------------------------------');
         JokalariakAukeratu(ardErdilariak, iLuzErdilariak, ardNireTaldea, iLuzNireTaldea, iNireErdilariak);
         writeln('------------------------------------------');
         JokalariakAukeratu(ardAurrelariak, iLuzAurrelariak, ardNireTaldea, iLuzNireTaldea, iNireAurrelariak);
         writeln('------------------------------------------');
         writeln;
         writeln('Aukeratu den ', iNireAtzelariak, '-', iNireErdilariak, '-', iNireAurrelariak, ' konfigurazioa duen taldea hau da:');
         writeln;
         TaldeaIkusi(ardNireTaldea);
         
         writeln;
         writeln('4. URRATSA: TALDEAREN DATU GUZTIAK ERAKUTSI ETA BALIOA ZENBATU');
         writeln('==============================================================');
         writeln;
         iPuntuak := fniPuntuakKalkulatu(sFitxIzen, ardNireTaldea); 
         writeln;
         writeln('Nere taldearen balioa: ', iPuntuak, ' puntu');
         writeln;
      end   { then, taldea osa daiteke }
      else
         writeln('Eskatu duzun ', iNireAtzelariak, '-', iNireErdilariak, '-', iNireAurrelariak, ' konfigurazioko talderik ezin daiteke osatu!!!');
   end;     { else, datu-fitxategirik ez da }
   
   writeln;
   writeln;
   writeln;
   writeln('-------------------------');
   writeln('Programa bukatzera doa!!!');
   writeln('-------------------------');
   readln;
end. { PROGRAMAREN AMAIERA }

Azterketa: 2023ko uztailaren deialdia

2023ko Uztailaren deialdiko programa: Taldea kromoekin

Ariketari lotutako informazioa:

2023-06-30_TaldeaKromoekin.pdf (ariketaren enuntziatua)
2023-06-30_TaldeaKromoekin.pas programa (adibidez C:\GurePrograma karpetan koka daiteke)

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)

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

1-B | 2-D | 3-D | 4-C | 5-D | 6-C | 7-A

Galderei dagozkien programak:

1.pas
2.pas
3.pas
4.pas
5.pas
6.pas
7.pas eta berari lotutako datu-fitxategia osoak.dat

Azterketa: 2023ko maiatzaren deialdiko programa (derrigorrezkoak)

Ezaguna denez, Azterketa: 2023ko maiatzaren deialdia izenburuko artikuluan azterkari buruzko informazio guzti-guztia dago. Heltzear den uztaileko deialdiari dagokion programa prestatze aldera, berridatz dezagun maiatzeko programa baina soilik derrigorrezko aginduak idatziz (letra larrietan idatzirik ematen diren aginduak). Ez dugu esan nahi gainerako aginduak soberan daudenik, baizik eta letra larrietan idatziko ditugunak berebiziko garrantzia dutela eta besteak horien menpekoak direla nolabait.

Maiatzeko programa osoa 2023-05-24_Kromoak.pas fitxategian jasota dago eta honek JOKALARIAK.DAT datu-fitxategia darabil. Datu-fitxategi hori aldez aurretik sortuta dago DatuFitxategiaSortu.pas programari esker.

2023-05-24_Kromoak_DerrigorrezkoAginduak.pas fitxategian jasota dagoen maiatzeko programa berezian, letra larriz nabarmendu dira ezinbestekoak diren aginduak. Konpiladorearen ingurune barnetik programa hau exekutatzean, JOKALARIAK.DAT datu-fitxategia C:\Dev-Pas karpetan kokatu behar da derrigorrez. Maiatzeko programa bereziaren kodea jarraian ikusi, non, aurreratu den bezala, azpiprograma bakoitzean letra larrietan jarri diren aginduak garrantzitsutzat jo daitezkeen:

{ Hitz larrietan idatzi diren aginduak funtsezkoenak dira azpiprogrametan,    }
{ larraietan dauden aginduen inguruan dabiltzate gainerako agindu guztiak.    }
{ Konpiladorearen ingurune barrurik programa hau exekutatzean, JOKALARIAK.DAT }
{ delako datu-fitxategiak C:\Dev-Pas karpetan kokatu behar da.                }

{ Programa exekutazean JOKALARIAK.DAT delako datu-fitxategia erabili behar da }
{ derrigorrez, 340 kromo dituen bilduma batekin lan egitea espero delako.     }
{ Bildumaren fitxategiak beti 340 kromo dituelako, programa honek darabilen   }
{ arrayarekin lan egiteko luzera logikoa zehaztean aldagairik ez da behar.    }

program KromoakDerrigorrezkoAginduak_2023;

uses
   crt, sysutils;

const
   iMAX = 340;             // enuntziatuan 471 

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;

   taiBilduma = array[1..iMAX] of integer;


{------------------menua---------------------}
function fncMenua: char;
  var
     cHautapena: char;
  begin
     clrscr;
     writeln('AUKEREN MENUA':20);
     writeln('=============':20);
     writeln;
     writeln('  1  Kromo guztien informazioa erakutsi');
     writeln('  2  Falta diren kromoak zerrendatu');
     writeln('  3  Kromo bat sartu');
     writeln('  4  Kromo bat trukatu');
     writeln('  5  Jokalari baten informazioa erakutsi');
     writeln('  0  Programatik irten');
     writeln;
     repeat
        write('Zure aukera: ':20);
        READLN(cHautapena);          (* KARAKTERE BAT TEKLADUZ IRAKURRI *)
     until (cHautapena >= '0') and (cHautapena <= '5');
     FNCMENUA := cHautapena;         (* FUNTZIOAK IRTEERAREN BAT IZAN DEZALA *)
  end;

{------------------arraya elikatu fitxategiko datuekin--------------}
procedure FitxategikoDatuakArrayra(sFitxIzen:tsKate199; var aiBilduma:taiBilduma);
  var
     rdKromoBat: trdKromoa;
     f_B       : tfrdBilduma;
  begin
     assign(f_B, sFitxIzen);
     reset(f_B);
     while not eof(f_B) do
     begin
        READ(f_B, rdKromoBat);       (* ERREGISTRO BAT IRAKURRI *)
        aiBilduma[rdKromoBat.iZenbakia] := rdKromoBat.iZenbatAle;
     end;
     close(f_B);
  end;

{------------------taula bezala erakutsi---------------------}
procedure TaulaBezalaErakutsi(const rdKromoBat:trdKromoa);
  begin
     with rdKromoBat, rdBalioak do
     begin
        WRITE(iZenbakia:4);          (* PANTAILAN IDATZI *)
        WRITE(sIzena:16);
        WRITE(sTokia:15);
        WRITE(sTaldea:12);
        WRITE(iDefentsan:6, iKontrolean:5, iErasoan:5, iGuztira:6);
        WRITELN(iZenbatAle:6);
     end;
  end;

{------------------kromo bat erakutsi---------------------}
procedure KromoBatErakutsi(const rdKromoBat:trdKromoa);
  begin
     with rdKromoBat, rdBalioak do
     begin
        WRITELN('Kromo zenbakia: ':25, iZenbakia);    (* PANTAILAN IDATZI *)
        WRITELN('Izena: ':25, sIzena);
        WRITELN('Tokia zelaian: ':25, sTokia);
        WRITELN('Taldea: ':25, sTaldea);
        WRITELN('Balioa Atzelarian: ':25, iDefentsan:3);
        WRITELN('Jokuaren kontrolean: ':25, iKontrolean:3);
        WRITELN('Balioa erasoan: ':25, iErasoan:3);
        WRITELN('Balioa orotara: ':25, iGuztira:3);
        WRITELN('Ale kopurua: ':25, iZenbatAle:3);
     end;
  end;

{------------------bilduma erakutsi------------------}
procedure BildumaErakutsi(sFitxIzen:tsKate199);
  var
     rdKromoBat: trdKromoa;
     f_B       : tfrdBilduma;
  begin
     assign(f_B, sFitxIzen);
     reset(f_B);
     
     writeln;
     writeln('ZBK':4, 'IZENA':16, 'TOKIA':15, 'TALDEA':12, 'DEF':6,'KON':5, 'ERA':5, 'GUZT':6, 'KOP':6);
     writeln(' --------------------------------------------------------------------------');
     while not eof(f_B) do
     begin
        READ(f_B, rdKromoBat);               (* ERREGISTRO BAT IRAKURRI *)
        TAULABEZALAERAKUTSI(rdKromoBat);     (* ERREGISTROA PANTAILARATU *)
     end;
     writeln(' --------------------------------------------------------------------------');
     close(f_B);
  end;

{------------------falta diren kromoen zenbakiak erakutsi------------}
procedure FaltaDirenakZerrendatu(const aiBilduma:taiBilduma);
  var
     iKont     : integer;
     iZenbatBai: integer;
  begin
     iZenbatBai := 0;
     writeln;
     writeln('FALTA DIREN KROMOEN ZERRENDA':54);
     writeln('----------------------------':54);
     FOR iKont:=1 TO iMAX DO            (* ARRAY OSOA PROZESATU *)
     BEGIN
        if aiBilduma[iKont] = 0 then
           WRITE(iKont:4)               (* PANTAILAN IDATZI *)
        else
        begin
           WRITE('---':4);              (* PANTAILAN IDATZI *)
           iZenbatBai := iZenbatBai + 1;
        end;
        if iKont mod 20 = 0 then
           WRITELN;                     (* HURRENGO ERRENKADA *)
     END;
     writeln;
     writeln;
     writeln(iZenbatBai, ' kromo dituzu eta ', iMAX -iZenbatBai, ' kromo falta zaizkizu');
  end;

{------------------kromo berri baten baten balioak eguneratu----------}
procedure KromoBerriarenBalioakEguneratu(sFitxIzen:tsKate199; iZbk:integer);
  var
     rdKromoBat: trdKromoa;
     f_B       : tfrdBilduma;
  begin
     assign(f_B, sFitxIzen);
     reset(f_B);
     
     SEEK(f_B, iZbk-1);              (* POSIZIO EGOKIAN KOKATU *)
     READ(f_B, rdKromoBat);          (* FITXATEGITIK IRAKURRI  *)
     with rdKromoBat,rdBalioak do
     begin
        write('Balioa defensan:  ':25);
        readln(iDefentsan);
        write('Jokuaren kontrolean:  ':25);
        readln(iKontrolean);
        write('Balioa erasoan:  ':25);
        readln(iErasoan);
        iGuztira := iDefentsan + iKontrolean + iErasoan;
        writeln('Guztira: ':25, iGuztira);
     end;
     SEEK(f_B, iZbk-1);              (* POSIZIO EGOKIAN KOKATU *)
     WRITE(f_B, rdKromoBat);         (* ETA FITXATEGIAN IDATZI *)
     
     close(f_B);
  end;

{------------------jokalaria bilatu-------------------------}
procedure JokalariaBilatu(     sFitxIzen:tsKate199; 
                              sJokalaria:tsKate25; 
                          VAR RDKROMOBAT:trdKromoa);    (* ERREGISTROA ITZULI  *)
  var
     f_B       : tfrdBilduma;
     boAurkitua: boolean;
  begin
     assign(f_B, sFitxIzen);
     reset(f_B);
     boAurkitua := FALSE;
     while not boAurkitua and not eof(f_B) do
     begin
        READ(f_B, rdKromoBat);       (* FITXATEGITIK IRAKURRI  *)
        if upcase(rdKromoBat.sIzena) = upcase(sJokalaria) then
           boAurkitua := TRUE
     end;

     if not boAurkitua then
        rdKromoBat.iZenbakia := -1;

     close(f_B);
  end;

{------------------fitxaegiaren datuak arraytik eguneratu---------}
procedure EguneratuAleakFitxategianArraytik(      sFitxIzen:tsKate199; 
                                            const aiBilduma:taiBilduma);
  var
     rdKromoBat: trdKromoa;
     f_B       : tfrdBilduma;
  begin
     assign(f_B, sFitxIzen);
     reset(f_B);
     while not eof(f_B) do
     begin
        READ(f_B, rdKromoBat);                 (* FITXATEGITIK IRAKURRI  *)
        if aiBilduma[rdKromoBat.iZenbakia] <> rdKromoBat.iZenbatAle then
        begin
           rdKromoBat.iZenbatAle := aiBilduma[rdKromoBat.iZenbakia];
           SEEK(f_B, FilePos(f_B)-1);          (* POSIZIO EGOKIAN KOKATU *)
           WRITE(f_B, rdKromoBat);             (* ETA FITXATEGIAN IDATZI *)
        end;
    end;
    close(f_B);
  end;

{==================programa nagusiaren aldagaiak==========}
var
   sFitxIzen : tsKate199;
   aiBilduma : taiBilduma;
   cAukera,
   cJarraitu : char;
   iZbk,
   iZbkJaso,
   iZbkEman  : integer;
   sJokalaria: tsKate25;
   rdKromoBat: trdKromoa;

{==================programa nagusia==================}
begin
   clrscr;
   write('Bildumaren fitxategiaren izena (JOKALARIAK.DAT): ');
   readln(sFitxIzen);
   if not fileexists(sFitxIzen) then
      writeln('ERROREA!!! "', sFitxIzen, '" izeneko fitxaterik ez da')
   else
   begin
      FitxategikoDatuakArrayra(sFitxIzen, aiBilduma);
      repeat
         cAukera := fncMenua;
         case cAukera of
           '1': BildumaErakutsi(sFitxIzen);
           '2': FaltaDirenakZerrendatu(aiBilduma);
           '3': begin
                   repeat
                      writeln;
                      write('Kromoaren zenbakia (1 eta ', iMAX, ' artekoa): ');
                      readln(iZbk);
                   until (iZbk >= 1) and (iZbk <= iMAX);
                   aiBilduma[iZbk] := aiBilduma[iZbk] +1;
                   if aiBilduma[iZbk] = 1 then
                   begin
                      writeln('Kromo berria delako datu hauek behar ditugu:');
                      KromoBerriarenBalioakEguneratu(sFitxIzen, iZbk);
                   end;
                end;
           '4': begin
                   writeln;
                   repeat
                      write('Hartzen duzun kromoaren zenbakia (1 eta ', iMAX, ' artekoa): ');
                      readln(iZbkJaso);
                   until (iZbkJaso >= 1) and (iZbkJaso <= iMAX);
                   repeat
                      write('Emaiten duzun kromoaren zenbakia (1 eta ', iMAX, ' artekoa): ');
                      readln(iZbkEman);
                   until (iZbkEman >= 1) and (iZbkEman <= iMAX);
                   case aiBilduma[iZbkEman] of
                      0: writeln('ERROREA!!! Kromo hori ez daukazu');
                      1: begin
                            write('Kromo horren ale bakarra daukazu. Trukatu nahi duzu? (B/E) ');
                            readln(cJarraitu);
                            if upcase(cJarraitu)='B' then
                            begin
                               aiBilduma[iZbkEman] := 0;       (* kromo hori gabe geratu gara *)
                               aiBilduma[iZbkJaso] := aiBilduma[iZbkJaso] +1;
                               if aiBilduma[iZbkJaso] = 1 then
                                  KromoBerriarenBalioakEguneratu(sFitxIzen, iZbkJaso);
                            end;
                         end;
                      else  { case }
                         begin
                            aiBilduma[iZbkEman] := aiBilduma[iZbkEman] -1;
                            aiBilduma[iZbkJaso] := aiBilduma[iZbkJaso] +1;
                            if aiBilduma[iZbkJaso] = 1 then
                               KromoBerriarenBalioakEguneratu(sFitxIzen, iZbkJaso);
                         end;
                   end;
                end;
           '5': begin
                   writeln;
                   write('Pantailaratuko den jokalariaren izena: ');
                   readln(sJokalaria);
                   JokalariaBilatu(sFitxIzen, sJokalaria, rdKromoBat);
                   if rdKromoBat.iZenbakia <> -1 then
                      KromoBatErakutsi(rdKromoBat)
                   else
                      writeln('ERROREA!! "', sJokalaria, '" ez da aurkitu');
                end;
           '0': EguneratuAleakFitxategianArraytik(sFitxIzen, aiBilduma);
         end;  { case }
         writeln;
         writeln;
         writeln ('RETURN sakatu jarritzeko');
         write   ('========================  ');
         readln;
      until cAukera = '0';
   
      clrscr;
      writeln('Programa bukatzean bildumaren egoera hauxe da:');
      BildumaErakutsi(sFitxIzen);
      readln;
   end;  { else }
end. { programaren amaiera }

Orriak

2024(e)ko maiatzaren 10(a), ostirala

2024(e)ko maiatzaren 9(a), osteguna

2024(e)ko maiatzaren 1(a), asteazkena