Webgune osagarria Informatika irakasgaiaren 2. azpitalderako
|
|
|
AZP-2 azpitaldekoek saio praktiko hau galdu duzuenez, hona hemen, gutxi gora behera, aste honetan AZP-1 eta AZP-3 azpitaldeekin egin duguna.
Fitxategiekin lan eginez, ondoko eragiketak praktikatu ditugu:
Programa hau datorren asteko kontrola prestatze aldera lagungarria izan daiteke.
program Aste_14__ErregistroenFitxategiarekinLanean;
uses
crt, // clrscr erabiltzeko
sysutils; // fileexists erabiltzeko
type
tsKate199 = string[199];
tsKate12 = string[12];
trdIkasle = record
sIzena: tsKate12;
rNota: real;
iKontrola: integer;
end;
tfrdIkasgela = file of trdIkasle;
{--------------------------------Azpiprogramak---------------------------------}
procedure FitxategiaSortuEtaBete(sFitxIzen: tsKate199);
var
f: tfrdIkasgela;
rdElem: trdIkasle;
iZenbat: integer;
iKont: integer;
iZeinKontrol: integer;
begin
assign(f, sFitxIzen);
rewrite(f);
repeat
write('Zenbat ikasleren datuak gordeko dira? ');
readln(iZenbat);
until iZenbat > 0;
repeat
write('Zein kontrol da? (1 ala 2) ');
readln(iZeinKontrol);
until (iZeinKontrol = 1) or (iZeinKontrol = 2);
for iKont:=1 to iZenbat do
begin
write(iKont:10, '. ikaslearen izena: ');
readln(rdElem.sIzena);
rdElem.sIzena := upcase(rdElem.sIzena);
repeat
write(iKont:10, '. ikaslearen nota: ');
readln(rdElem.rNota);
until (rdElem.rNota >= 0.0) and (rdElem.rNota <= 10.0);
rdElem.iKontrola := iZeinKontrol;
write(f, rdElem);
end;
close(f);
end;
procedure FitxategiarenEdukiaIkusi(sFitxIzen: tsKate199);
var
f: tfrdIkasgela;
rdElem: trdIkasle;
begin
assign(f, sFitxIzen);
reset(f);
writeln('IZENA':34, 'NOTA':18, 'KONTROLA':18);
writeln('-----':34, '----':18, '--------':18);
while not eof(f) do
begin
read(f, rdElem);
writeln(filepos(f):5, '. ikaslea: ', rdElem.sIzena:18, rdElem.rNota:18:2, rdElem.iKontrola:18 );
end;
close(f);
end;
procedure Batu(sFitxIzen_1eta2,
sFitxIzen_1,
sFitxIzen_2: tsKate199);
var
f_1eta2: tfrdIkasgela;
f_1: tfrdIkasgela;
f_2: tfrdIkasgela;
rdElem: trdIkasle;
begin
assign(f_1, sFitxIzen_1);
reset(f_1);
assign(f_2, sFitxIzen_2);
reset(f_2);
assign(f_1eta2, sFitxIzen_1eta2);
rewrite(f_1eta2);
while not eof(f_1) do
begin
read(f_1, rdElem);
write(f_1eta2, rdElem);
end;
while not eof(f_2) do
begin
read(f_2, rdElem);
write(f_1eta2, rdElem);
end;
close(f_1);
close(f_2);
close(f_1eta2);
end;
procedure Banatu(sFitxIzen_1eta2,
sFitxIzen_Aprob,
sFitxIzen_Suspn: tsKate199);
var
f_1eta2: tfrdIkasgela;
f_A: tfrdIkasgela;
f_S: tfrdIkasgela;
rdElem: trdIkasle;
begin
assign(f_1eta2, sFitxIzen_1eta2);
reset(f_1eta2);
assign(f_A, sFitxIzen_Aprob);
rewrite(f_A);
assign(f_S, sFitxIzen_Suspn);
rewrite(f_S);
while not eof(f_1eta2) do
begin
read(f_1eta2, rdElem);
if rdElem.rNota >= 5.0 then
write(f_A, rdElem)
else
write(f_S, rdElem);
end;
close(f_1eta2);
close(f_A);
close(f_S);
end;
function fniBilatu(sFitxIzen_1eta2: tsKate199;
sNor: tsKate12;
iZeinKontrol: integer): integer;
var
f: tfrdIkasgela;
rdElem: trdIkasle;
boAurkitua: boolean;
begin
assign(f, sFitxIzen_1eta2);
reset(f);
boAurkitua := FALSE;
while not eof(f) and not boAurkitua do
begin
read(f, rdElem);
if (rdElem.sIzena = sNor) and (rdElem.iKontrola = iZeinKontrol) then
boAurkitua := TRUE;
end;
if boAurkitua then
fniBilatu := filepos(f) -1
else
fniBilatu := -1;
close(f);
end;
procedure Aldatu(sFitxIzen_1eta2: tsKate199;
iNonDago: integer);
var
f: tfrdIkasgela;
rdElem: trdIkasle;
begin
assign(f, sFitxIzen_1eta2);
reset(f);
seek(f, iNonDago);
read(f, rdElem);
repeat
write('"', rdElem.sIzena, '" ikaslearen nota berria: ');
readln(rdElem.rNota);
until (rdElem.rNota >= 0.0) and (rdElem.rNota <= 10.0);
seek(f, iNonDago);
write(f, rdElem);
close(f);
end;
procedure Gehitu(sFitxIzen_1eta2: tsKate199;
const rdBerria: trdIkasle);
var
f: tfrdIkasgela;
begin
assign(f, sFitxIzen_1eta2);
reset(f);
seek(f, filesize(f));
write(f, rdBerria);
close(f);
end;
{---------------------------------Programa nagusia-----------------------------}
var
sFitxIzen: tsKate199;
sFitxIzen_1: tsKate199;
sFitxIzen_2: tsKate199;
sFitxIzen_1eta2: tsKate199;
sFitxIzen_Aprob: tsKate199;
sFitxIzen_Suspn: tsKate199;
sNor: tsKate12;
iZeinKontrol: integer;
iNonDago: integer;
rdBerria: trdIkasle;
BEGIN
clrscr;
writeln('Eman ikasleen datuak gordeko dituen fitxategiaren');
write('izena (adibidez, "NOTAK" edo "1_KONTROLA"): ');
readln(sFitxIzen);
sFitxIzen := 'C:\Users\Docencia\Desktop\Pascal\' + sFitxIzen + '.DAT';
writeln;
if fileexists(sFitxIzen) then
begin
writeln('"', sFitxIzen, '" badago, bere edukia erakutsi.');
FitxategiarenEdukiaIkusi(sFitxIzen);
writeln;
end
else
begin
writeln('"', sFitxIzen, '" ez dago, sortu eta datuz bete.');
FitxategiaSortuEtaBete(sFitxIzen);
writeln;
FitxategiarenEdukiaIkusi(sFitxIzen);
writeln;
end;
writeln;
writeln('===============================================================');
writeln(' HONAINO FITXATEGI BAT SORTU ETA BERE EDUKIA PANTAILARATU DA.');
writeln(' SORTU "1_KONTROLA" FITXATEGIA ETA "2 KONTROLA" FITXATEGIA.');
writeln('===============================================================');
writeln;
writeln('===============================================================');
writeln(' HEMENDIK AURRERA BI FITXATEGIEN EDUKIA BAKARRERA EKARRIKO DA');
writeln(' ETA ALDERANTZIZ FITXATEGI BATEN EDUKIA BITAN BANATUKO DA.');
writeln('===============================================================');
writeln;
sFitxIzen_1 := 'C:\Users\Docencia\Desktop\Pascal\1_KONTROLA.DAT';
sFitxIzen_2 := 'C:\Users\Docencia\Desktop\Pascal\2_KONTROLA.DAT';
if (fileexists(sFitxIzen_1)) and (fileexists(sFitxIzen_2)) then
begin
sFitxIzen_1eta2 := 'C:\Users\Docencia\Desktop\Pascal\1eta2_KONTROLA.DAT';
Batu(sFitxIzen_1eta2, sFitxIzen_1, sFitxIzen_2);
writeln;
writeln('"', sFitxIzen_1eta2, '" fitxategiaren edukia: ');
FitxategiarenEdukiaIkusi(sFitxIzen_1eta2);
writeln;
writeln('-------------------------------------------------------------');
writeln;
write('Nota aldatuko diogun ikaslearen izena eman: ');
readln(sNor);
sNor := upcase(sNor);
repeat
write('Zein kontroleko nota aldatuko diogu "', sNor, '" ikasleari? ');
readln(iZeinKontrol);
until (iZeinKontrol = 1) or (iZeinKontrol = 2);
iNonDago := fniBilatu(sFitxIzen_1eta2, sNor, iZeinKontrol);
if iNonDago = -1 then
writeln('"', sNor, '" ikaslerik ez dago')
else
Aldatu(sFitxIzen_1eta2, iNonDago);
writeln;
writeln('-------------------------------------------------------------');
writeln;
writeln('-------------------------------------------------------------');
writeln;
write('Gehituko dugun ikaslearen izena eman: ');
readln(rdBerria.sIzena);
rdBerria.sIzena := upcase(rdBerria.sIzena);
repeat
write('Zein kontroleko datuak gehituko ditugu (1 ala 2) ');
readln(rdBerria.iKontrola);
until (rdBerria.iKontrola = 1) or (rdBerria.iKontrola = 2);
repeat
write('"', rdBerria.sIzena, '" ikaslearen nota berria: ');
readln(rdBerria.rNota);
until (rdBerria.rNota >= 0.0) and (rdBerria.rNota <= 10.0);
Gehitu(sFitxIzen_1eta2, rdBerria);
writeln;
writeln('-------------------------------------------------------------');
sFitxIzen_Aprob := 'C:\Users\Docencia\Desktop\Pascal\APROBATUAK.DAT';
sFitxIzen_Suspn := 'C:\Users\Docencia\Desktop\Pascal\SUSPENDITUAK.DAT';
Banatu(sFitxIzen_1eta2, sFitxIzen_Aprob, sFitxIzen_Suspn);
writeln;
writeln('"', sFitxIzen_Aprob, '" fitxategiaren edukia: ');
FitxategiarenEdukiaIkusi(sFitxIzen_Aprob);
writeln;
writeln('"', sFitxIzen_Suspn, '" fitxategiaren edukia: ');
FitxategiarenEdukiaIkusi(sFitxIzen_Suspn);
writeln;
end
else
begin
writeln('Bi fitxategietatik bat falta da (ala biak falta dira)');
end;
writeln;
writeln;
writeln('=======================');
writeln('RETURN sakatu amaitzeko');
write ('=======================');
readln;
end. { PROGRAMAREN BUKAERA }
...
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;
...
program ErregistroenFitxategiaSortuEtaIkusi;
const
sBIDEA = 'C:\NereKarpeta\';
type
tsKate249 = string[249]; { fitxategiaren izena luzea izan daitekeelako }
tsKate15 = string[15];
trdIkaslea = record
sNor: tsKate15;
rNota: real;
end;
tfrdIkasleak = file of trdIkaslea;
{ sFitxIzen katea ezaguna da programa nagusian eta prozedura honetan }
{ izena ez da aldatuko, horregatik sarrerako parametroa da prozeduran }
procedure FitxategiaSortuEtaBete(sFitxIzen: tsKate249);
var
f: tfrdIkasleak;
rdElem: trdIkaslea;
iKont: integer;
iZenbat: integer;
begin
assign(f, sFitxIzen); { fitxategia uztartu }
rewrite(f); { fitxategia sortu eta existitzekotan datuz hustu }
repeat
write('Zenbat ikasle dira? ');
readln(iZenbat);
until iZenbat > 0;
for iKont:=1 to iZenbat do
begin
write(iKont:10, '. ikaslearen izena eman: ');
readln(rdElem.sNor); { erregistroaren eremu bat teklatuz irakurri }
write(iKont:10, '. ikaslearen nota eman: ');
readln(rdElem.rNota); { erregistroaren eremu bat teklatuz irakurri }
write(f, rdElem); { elementu bat (erregistro bat) fitxategia idatzi }
end;
close(f); { fitxategia itxi }
end;
{ sFitxIzen katea ezaguna da programa nagusian eta prozedura honetan }
{ izena ez da aldatuko, horregatik sarrerako parametroa da prozeduran }
procedure FitxategiaIkusi(sFitxIzen: tsKate249);
var
f: tfrdIkasleak;
rdElem: trdIkaslea;
begin
assign(f, sFitxIzen); { fitxategia uztartu }
reset(f); { fitxategia existitzen bada ireki }
while not eof(f) do { fitxategiaren bukaeran ez gauden bitartean... }
begin
read(f, rdElem); { elementu bat (erregistro bat) fitxategitik irakurri }
{ erregistroaren eremu banaren edukia pantailaratu }
writeln(filepos(f):10, '. ikaslearen izena: ', rdElem.sNor);
writeln(filepos(f):10, '. ikaslearen nota: ', rdElem.rNota:0:2);
end;
close(f);
end;
{ sFitxIzen katea ezaguna da programa nagusian eta prozedura honetan }
{ izena ez da aldatuko, horregatik sarrerako parametroa da prozeduran }
function fnMediaKalkulatu(sFitxIzen: tsKate249): real;
var
f: tfrdIkasleak;
rdElem: trdIkaslea;
rMetatua: real;
begin
assign(f, sFitxIzen); { fitxategia uztartu }
reset(f); { fitxategia existitzen bada ireki }
rMetatua := 0.0;
while not eof(f) do { fitxategiaren bukaeran ez gauden bitartean... }
begin
read(f, rdElem); { elementu bat (erregistro bat) fitxategitik irakurri }
{ nota bat gehiago pilatu rMetatua batukarian }
rMetatua := rMetatua + rdElem.rNota;
end;
fnMediaKalkulatu := rMetatua / filesize(f);
close(f);
end;
{ Hiru fitxategien izenak ezagunak direlako programa nagusian eta }
{ prozedura honetan aldatzen ez direlako sarrerako parametroak dira }
procedure BiFitxategiBerriSortu( sFitxIzen: tsKate249;
sFitxIzenAprob: tsKate249;
sFitxIzenSuspn: tsKate249);
var
f, f_A, f_S: tfrdIkasleak;
rdElem: trdIkaslea;
begin
assign(f, sFitxIzen);
reset(f);
assign(f_A, sFitxIzenAprob);
rewrite(f_A);
assign(f_S, sFitxIzenSuspn);
rewrite(f_S);
while not eof(f) do
begin
read(f, rdElem);
if rdElem.rNota >= 5.0 then
write(f_A, rdElem)
else
write(f_S, rdElem)
end;
close(f);
close(f_A);
close(f_S);
end;
{=============Programa nagusia eta programa nagusiko aldagaiak=============}
var
sFitxIzen: tsKate249;
rBBA: real;
sFitxIzenAprob: tsKate249;
sFitxIzenSuspn: tsKate249;
begin
writeln;
write('Eman fitxategiaren izena, adibidez (31Taldea): ');
readln(sFitxIzen);
//sFitxIzen := sBIDEA + sFitxIzen + '.dat'; (* edo hurrengoa *)
sFitxIzen := concat(sBIDEA, sFitxIzen, '.dat'); (* edo aurrekoa *)
writeln('==>', sFitxIzen, '<== bidea eta luzapena programak gehituta');
writeln;
writeln('Fitxategiaren datuak jasotzen...');
FitxategiaSortuEtaBete(sFitxIzen);
writeln;
writeln('Fitxategi osoaren datuak:');
FitxategiaIkusi(sFitxIzen);
writeln;
rBBA := fnMediaKalkulatu(sFitxIzen);
write('Nota guztien batezbesteko aritmetikoa: ', rBBA:0:2, ' puntu');
writeln;
sFitxIzenAprob:= sBIDEA + 'Aprobatuak.dat';
sFitxIzenSuspn:= sBIDEA + 'Suspendituak.dat';
BiFitxategiBerriSortu(sFitxIzen, sFitxIzenAprob, sFitxIzenSuspn);
writeln;
writeln('Aprobatuen datuak:');
FitxategiaIkusi(sFitxIzenAprob);
writeln;
writeln('Suspendituen datuak:');
FitxategiaIkusi(sFitxIzenSuspn);
writeln;
writeln('=======================');
writeln('RETURN sakatu amaitzeko');
write ('=======================');
readln;
end.
Zerrenda pasatu dugu. Deitutako 24en artean 8 ez dira etorri (zehaztapen gehiago eGela zerbitzuan)
Gaurko helburua bikoitza da:
program ErregistroenFitxategiaSortuEtaIkusi;
type
tsKate249 = string[249]; { fitxategiaren izena luzea izan daitekeelako }
tsKate15 = string[15];
trdIkaslea = record
sNor: tsKate15;
rNota: real;
end;
tfrdIkasleak = file of trdIkaslea;
{ sFitxIzen katea ezaguna da programa nagusian eta prozedura honetan }
{ izena ez da aldatuko, horregatik sarrerako parametroa da prozeduran }
procedure FitxategiaSortuEtaBete(sFitxIzen: tsKate249);
var
f: tfrdIkasleak; // file datu-motako aldagaia
rdElem: trdIkaslea; // fitxategiaren elementua
begin
end;
{ sFitxIzen katea ezaguna da programa nagusian eta prozedura honetan }
{ izena ez da aldatuko, horregatik sarrerako parametroa da prozeduran }
procedure FitxategiaIkusi(sFitxIzen: tsKate249);
var
f: tfrdIkasleak; // file datu-motako aldagaia
rdElem: trdIkaslea; // fitxategiaren elementua
begin
end;
{=============Programa nagusia eta programa nagusiko aldagaiak=============}
var
sFitxIzen: tsKate249;
begin
writeln;
writeln('Eman fitxategiaren izena, adibidez (C:\NereKarpeta\31Taldea.dat): ');
readln(sFitxIzen);
writeln('===>', sFitxIzen, '<===');
writeln;
writeln('Fitxategiaren datuak jasotzen...');
FitxategiaSortuEtaBete(sFitxIzen);
writeln;
writeln('Fitxategiaren datuak:');
FitxategiaIkusi(sFitxIzen);
writeln;
writeln('=======================');
writeln('RETURN sakatu amaitzeko');
write ('=======================');
readln;
end.