10. astea | hainbat ezabaketa array batean

Array laguntzaile bat erabiliko dugu

Ezabaketa array batean algoritmoari esker, posizio jakin bateko elementua
arraytik ken daiteke, baina algoritmo hori zaila bihurtzen da elementu bat
baino gehiago kendu behar direnean. Array bateko zenbait elementu
ezabatzeko algoritmo hau erabiliko dugu: 06a_HainbatEzabaketa.pas non muga bat emanik elementu txikiak kentzen diren:

(* Algoritmo hau egitan ez da ezabaketa bat prozesaketa bat baizik *)
(* bektore laguntzaile bat erabiltzen da emaitza lortzeko.         *)
program HainbatEzabaketaArrayetan_A ;

const
   BEHEMUGA = 1 ;
   GOIMUGA = 20 ;
  
type
   tarZerrenda = array[BEHEMUGA..GOIMUGA] of real ;


procedure ArrayaBete(var arNotak: tarZerrenda;
                     var iLuzera: integer) ;
var
   iIndizea: integer ;
begin
   randomize ;
   iLuzera := random(GOIMUGA) + 1 ;

   writeln('Arrayan ', iLuzera, ' datu gordetzen') ;
   for iIndizea:=BEHEMUGA to iLuzera do
   begin
      arNotak[iIndizea] := 10*random ;      { 0.00 eta 9.99 arteko balioak }
   end ;
end ;


procedure ArrayaIkusi(const arNotak: tarZerrenda;
                            iLuzera: integer) ;
var
   iIndizea: integer ;
begin
   writeln('Arrayaren edukia: ') ;
   for iIndizea:=BEHEMUGA to iLuzera do
   begin
      writeln(iIndizea:2, '. nota = ', arNotak[iIndizea]:0:3) ;
   end ;
   writeln ;
end ;


{ array laguntzaile batean zenbaki handiak gorde eta amaitzean array laguntzailearen
  informazio hori emaitza izango den parametrora eraman. Benetan ez da ezabaketa bat. }
procedure ArrayarenTxikiakEzabatu(   var arNotak: tarZerrenda;
                                     var iLuzera: integer;
                                  rErreferentzia: real) ;
var
   iIndizea, k: integer ;
   arNotaHandiak: tarZerrenda;
begin
   k := 0 ;
   for iIndizea:=BEHEMUGA to iLuzera do
   begin
      if arNotak[iIndizea] > rErreferentzia then
      begin
         k := k + 1 ;
         arNotaHandiak[k] := arNotak[iIndizea] ;
      end ;
   end ;
   (* array berritua kanporatu, bere balio berriak eta luzera berria *)
   arNotak := arNotaHandiak ;
   iLuzera := k ;
end ;


{------------------------PROGRAMA NAGUSIA------------------------}

var
  arNotak: tarZerrenda ;
  iLuzera: integer ;
  rErreferentzia: real ;
begin
   ArrayaBete(arNotak, iLuzera) ;
   ArrayaIkusi(arNotak, iLuzera) ;

   writeln('Elementu txikiak arrayetik ezabatu') ;
   write('Eman erreferentziaren balioa: ') ;
   readln(rErreferentzia) ;

   ArrayarenTxikiakEzabatu(arNotak, iLuzera, rErreferentzia) ;
   ArrayaIkusi(arNotak, iLuzera) ;
   readln ;
end.