12. ASTEA | laborategi/mintegian egin dena

 12. astea (2023/04/18) laborategi/mintegian egindakoa

• Zerrenda pasatzeko, eGela zerbitzuko 12. saioan egindako programak bidalketaren bitartez. Lanik bidali ez dutenak:




• Gaizka Martin Zorrozua


• Maider Nogueira Alonso


• Antxon Zubiaurre Peñalba

• Erregistroen array baten adibidea egin dugu. Konkretuki 11. astea | erregistroen bektore baten elementuak ezabatu artikulutik abiatuta, ikasle gazteak kendu array laguntzaile bat erabiliz. Bi eremu (sIzena katea eta iAdina zenbaki osoa) dituen erregistroetako arrayarekin lan egin dugu eragiketa hauek burutuz:




1. Zerrenda datuz bete (suposatuz arrayak gehienez 25 elementu izan ditzakeela)


2. Zerrendaren edukia pantailaratu


3. Adin guztien batezbesteko aritmetikoa kalkulatu


4. Adin txikiko elementuak (media baino txikiagoak direnak) zerrendatik kendu, ondorioz hasierako zerrenda aldatua suertatuko da


5. Zerrenda berriaren edukia pantailaratu

• Erregistroen fitxategi bat (bi eremu: sNor katea eta rNota zenbaki erreala) sortu dugu eta ondoren bere edukia pantailan erakutsi dugu. Hona hemen programaren kodea urratsez-urrats azalduta:

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);
begin
end;


{ sFitxIzen katea ezaguna da programa nagusian eta prozedura honetan  } 
{ izena ez da aldatuko, horregatik sarrerako parametroa da prozeduran }
procedure FitxategiaIkusi(sFitxIzen: tsKate249);
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.