13. ASTEA | laborategi/mintegian egin dena

 13. astea (2024/04/23) laborategi/mintegian egindakoa

• Eguneko bidalketaren bitartez pasatu dugu zerrenda. Deitutako 25en artean 9 ez dira etorri (zehaztapen gehiago eGela zerbitzuan)

• Proiektuaren J. aukera egin dugu ondoko hau aplikatuz: FITXATEGIEN GAINEKO ERAGIKETAK. Ondoko lan hauek egiteko, batzutan fitxategi laguntzaile bat erabiliko da eta beste batzuetan fitxategi-array (F→A) eta array-fitxategi (A→F) eragiketak erabiliko dira. Eragiketak hauek izango dira:
1. Bilaketa, futbolari baten izena teklatuz eman eta fitxategian bilatuz erregistro osoa programa nagusira itzuli  [Hau egin dugu]
   
2. Ezabaketa, elementu bat (edo gehiago) fitxategiaren erdi aldean kentzeko   [Hau egin dugu]
3. Txertaketa, elementu bat (edo gehiago) fitxategiaren erdi aldetik tartekatzeko   [Hau ez]
4. Gehiketa, elementu bat (edo gehiago) fitxategiaren bukaeran gehitzeko   [Hau ez]
5. Aldaketa, elementu baten (edo gehiagoren) balioa aldatzeko fitxategian  [Hau ez]

• Proiektuaren J. aukera garatzeko programa nagusian idatzi behar den kodea, non zuen programetan kolorerik ez duzuen marraztu behar pantailan:

         

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83

...      end; 'J': begin         clrscr;         textcolor(LightRed);         writeln('Bilduma-fitxategitik kromo bat kendu eta beste kromo bat txertatu');         writeln('"J_aukera.exe" programa exekutagarriaren funtzionalitatea hemen kokatu');         textcolor(LightGray);         writeln;                   clrscr;         writeln;         writeln('J aukeraren hasieran, hauxe da bildumaren egoera:');         TaulaBezalaErakutsi(sFitxIzen);            writeln('Bilduma osoaren kromo kopurua: ', fniZenbatKromo(sFitxIzen));         writeln;         writeln('J aukeran aurrera egiteko RETURN sakatu...');         readln;           writeln;         writeln('Fitxategi laguntzaile bat erabiliz, kromo bat ezabatuko da bildumatik');         writeln('---------------------------------------------------------------------');         write('Bildumatik kenduko den jokalariaren izena: ');         readln(sJokalaria);         writeln;         JokalariaBilatu(sFitxIzen, sJokalaria, rdKromoBat);   { rdKromoBat irteerakoa }         if rdKromoBat.iZenbakia = -1 then            writeln('ERROREA!! "', sJokalaria, '" ez da aurkitu')         else         begin            KromoBatErakutsi(rdKromoBat);            iBerePosizioa := fniPosizioaZehaztu(sFitxIzen, sJokalaria);            iNorainoBai := iBerePosizioa -1;            writeln('0-tik hasita 1. zatiaren amaiera: ', iNorainoBai, ' (posizio hau barne, RETURN sakatu)');            readln;            KromoBatFitxategitikKendu(sFitxIzen, iNorainoBai);            writeln;            writeln('"', upcase(sJokalaria), '" jokalaria kendu ondoren, hauxe da bildumaren egoera:');            TaulaBezalaErakutsi(sFitxIzen);            writeln('Bilduma osoaren kromo kopurua: ', fniZenbatKromo(sFitxIzen));            writeln;              writeln;            writeln('ARRAY laguntzaile bat erabiliz, kromo berri bat txertatuko da bilduman');            writeln('----------------------------------------------------------------------');            iIdaztekoAzkenPosizioa := fniZenbatKromo(sFitxIzen);   { filesize }            repeat               write('Txertaketaren helburuko posizioa eman (0 eta ', iIdaztekoAzkenPosizioa, ' arteko balioa): ');               readln(iNonTxertatu);            until (iNonTxertatu >= 0) and (iNonTxertatu <= iIdaztekoAzkenPosizioa);            writeln('Bilduman txertatuko den kromo berriaren datuak jaso');            KromoBerriarenDatuakJaso(rdKromoBat);            writeln;            if iNonTxertatu = iIdaztekoAzkenPosizioa then          { gehiketa bat da}               KromoaFitxategiarenBukaeran(sFitxIzen, rdKromoBat)            else                                                   { txertaketa bat da}               KromoBatFitxategianTxertatu(sFitxIzen, iNonTxertatu, rdKromoBat);                         writeln;            writeln('"', upcase(rdKromoBat.sIzena), '" jokalaria txertatu ondoren, hauxe da bildumaren egoera:');            TaulaBezalaErakutsi(sFitxIzen);            writeln('Bilduma osoaren kromo kopurua: ', fniZenbatKromo(sFitxIzen));            writeln;            writeln('Ikusi zenbakiak txarto daudela. Azken urratsarekin jarraitzeko RETURN sakatu');            readln;              writeln;            writeln('J aukeratik irten aurretik jokalari guztien zenbakiak eguneratuko dira');            JokalarienZenbakiakEguneratu(sFitxIzen);            TaulaBezalaErakutsi(sFitxIzen);            writeln('Bilduma osoaren kromo kopurua: ', fniZenbatKromo(sFitxIzen));            writeln;         end;   { else, datu-fitxategirik bada }      end; 'K': begin         clrscr;         textcolor(LightRed);         writeln('Lantaldeak proposatutako duen eta irakasleak onartutako duen lana');         writeln('Blogeko "Proiektua aberasteko ideiak (menuaren K aukera)" artikulua ikusi');         textcolor(LightGray);         writeln;      end;         ...