...
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);
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);
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
KromoaFitxategiarenBukaeran(sFitxIzen, rdKromoBat)
else
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
;
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
;
...