23. Ariketa: erregistroak (II)

ZER DAKIDAN: Zenbakiak, karaktereak, kateak, zerrendak (arrayak) eta erregistroak lantzeko gai naiz. ZER IKASIKO DUDAN: Oinarrizko datu-mota desberdinak egitura bakar batean gordetzeko Record datu-mota beharrezkoa da. Oinarrizko datu-mota bereko hainbat elementu gordetzeko Array datu-mota aproposa da. Ikas dezagun orain erregistroen zerrendekin lan egiten.

---

ESKATZEN DEN PROGRAMA 

Erregistroekin lan eginez, 1 eta 10 arteko erregistroen sorta bat zerrenda batean gorde nahi da. Erregistro bakoitzak ibilgailu baten datuak bilduko ditu.

Gure programak lehenik zenbat erregistro gordeko dituen galdetuko du eta prozesu errepikakor batean sartuko da. Gero, prozesu errepikakor barruan, erregistro bakoitzaren eremuentzat balioak auzaz aukeratu eta erregistroa bete ondoren zerrendan gordeko da.

Erregistroaren egitura honako hau da:

1. eremua	sMatrikula	'ZZZZ-LLL' formatuko 8 karakteredun kate bat
2. eremua	cIbilgailuMota	karaktere bat
3. eremua	rdDataUnea	2 eremuko erregistroa (eremu bakoitza 3 osoen array bat)
4. eremua	rAldiunekoAbiadura	zenbaki erreal bat

Hauxe da ariketaren programa:

{ 23. ariketa: auto bat radar atari azpitik igartzean ondoko datuak   }
{              jaso eta gordetzen dira zerrenda batean:               }

{     - Matrikula, karkatere-kate bat                                 }
{     - Ibilgailu mota, karaktere bat                                 }
{     - Data, 3 zenbakien array bat (posizioak: Urtea, Hilea, Eguna)  }
{     - Unea, 3 zenbakien array bat (posizioak: Orduak, Minutuak,     } 
{                                                        Segundoak)   }  
{     - Aldi uneko abiadura, zenbaki erreal bat                       }
                       
{  Datuak erdi automatikoki lortuko dira auzazko balioak sortuz. Auto }
{  bakoitzeko erregistro bat bete ondoren, array batean gordeko da.   }                   

program Ariketa_23 ;

const
   BEHEMUGA = 1 ;
   GOIMUGA = 10 ;
   
type
    tsKateMatrikula = string[8] ;    { ZZZZ-LLL formatuko matrikula }

    taiData = array[1..3] of integer ;  { Urtea, Hilea, Eguna }
    
    taiUnea = array[1..3] of integer ;  { Orduak, Minutuak, Segundoak }
    
    trdNoiz = record
                  Eguna : taiData ;
                  Ordua : taiUnea ;
              end ;
              
    trdIbilgailua = record
                       sMatrikula         : tsKateMatrikula ;
                       cIbilgailuMota     : char ;
                       rdDataUnea         : trdNoiz ;
                       rAldiunekoAbiadura : real ;
                    end ;
    
    tardZerrenda = array[BEHEMUGA..GOIMUGA] of trdIbilgailua ;


procedure IbilgailuarenDatuakJaso(var rdIbilgailua: trdIbilgailua) ;
var
   iZenbat, iAusazkoa, iKont, k : integer ;
   sMatrikula, sMatrikulaZifra : tsKateMatrikula ;
begin
   iZenbat := 15 + random(16) ;    
   for iKont:=1 to iZenbat do
   begin
      sMatrikula := '' ;
      for k:=1 to 4 do
      begin
         iAusazkoa := random(10) ;
         Str(iAusazkoa, sMatrikulaZifra) ;
         sMatrikula := sMatrikula + sMatrikulaZifra ;        
      end ;

      iAusazkoa := random(5) ;
      case iAusazkoa of
         0: rdIbilgailua.sMatrikula := sMatrikula + ' KHS' ;
         1: rdIbilgailua.sMatrikula := sMatrikula + ' BPK' ;
         2: rdIbilgailua.sMatrikula := sMatrikula + ' KKK' ;
         3: rdIbilgailua.sMatrikula := sMatrikula + ' XYZ' ;
         4: rdIbilgailua.sMatrikula := sMatrikula + ' KGB' ;
      end ;

      iAusazkoa := random(4) ;
      case iAusazkoa of
         0: rdIbilgailua.cIbilgailuMota := 'A' ;
         1: rdIbilgailua.cIbilgailuMota := 'B' ;
         2: rdIbilgailua.cIbilgailuMota := 'C' ;
         3: rdIbilgailua.cIbilgailuMota := 'D' ;
      end ;

      rdIbilgailua.rdDataUnea.Eguna[1] := 2021 ;              (* 2021-01-01 eta 2021-12-28 artean *)  
      rdIbilgailua.rdDataUnea.Eguna[2] := 1 + random(12) ;
      rdIbilgailua.rdDataUnea.Eguna[3] := 1 + random(27) ;

      rdIbilgailua.rdDataUnea.Ordua[1] := 13 ;                (* 13:05:00 eta 13:15:59 artean *)
      rdIbilgailua.rdDataUnea.Ordua[2] := 5 + random(11) ;
      rdIbilgailua.rdDataUnea.Ordua[3] := random(60) ;

      rdIbilgailua.rAldiunekoAbiadura := 50 + random(131) ;   (* 50.0 eta 180.0 artean *)
   end ;
end ;


procedure ZerrendaBete(var ardZerrenda: tardZerrenda; iLuzera: integer) ;
var
   k : integer ;
   rdIbilgailua : trdIbilgailua ;
begin  
   randomize ; 
   for k:=BEHEMUGA to iLuzera do
   begin
      writeln(k:4, '. ibilgailuaren datuak eskuratzen...') ;
      IbilgailuarenDatuakJaso(rdIbilgailua) ;
      ardZerrenda[k] := rdIbilgailua ;
   end ;
end ;


procedure IbilgailuarenDatuakErakutsi(const rdIbilgailua: trdIbilgailua) ;
begin
   writeln('Matrikula     Mota':24, 'Data':16, 'Ordua':16, 'Abiadura':14) ;
   writeln('---------     ----':24, '----------':16, '----------':16, '--------':14) ;
   write(rdIbilgailua.sMatrikula:15) ;
   write(rdIbilgailua.cIbilgailuMota:9) ;
   
   write(rdIbilgailua.rdDataUnea.Eguna[1]:10, '-') ;
   if rdIbilgailua.rdDataUnea.Eguna[2] >= 10 then
      write(rdIbilgailua.rdDataUnea.Eguna[2]:2, '-')
   else
      write('0', rdIbilgailua.rdDataUnea.Eguna[2], '-') ;   
   if rdIbilgailua.rdDataUnea.Eguna[3] >= 10 then
      write(rdIbilgailua.rdDataUnea.Eguna[3]:2)
   else
      write('0', rdIbilgailua.rdDataUnea.Eguna[3]) ;
   
   write(rdIbilgailua.rdDataUnea.Ordua[1]:10, ':') ; 
   if rdIbilgailua.rdDataUnea.Ordua[2] >= 10 then
      write(rdIbilgailua.rdDataUnea.Ordua[2]:2, ':')
   else
      write('0', rdIbilgailua.rdDataUnea.Ordua[2], ':') ;
   if rdIbilgailua.rdDataUnea.Ordua[3] >= 10 then
      write(rdIbilgailua.rdDataUnea.Ordua[3]:2)
   else
      write('0', rdIbilgailua.rdDataUnea.Ordua[3]) ;
      
   write(rdIbilgailua.rAldiunekoAbiadura:14:2) ;      
   writeln ;
   writeln ;
end ;


procedure ZerrendaIkusi(const ardZerrenda: tardZerrenda; iLuzera: integer) ;
var
   k : integer ;
   rdIbilgailua : trdIbilgailua ;
begin  
   for k:=BEHEMUGA to iLuzera do
   begin
      writeln(k:4, '. ibilgailuaren datuak:') ;
      rdIbilgailua := ardZerrenda[k] ;
      IbilgailuarenDatuakErakutsi(rdIbilgailua) ;
   end ;
end ;

(* ---------------------- PROGRAMA NAGUSIA ---------------------- *)
    
var
   ardZerrenda: tardZerrenda ;
   iLuzera: integer ;
begin
   writeln ;
   writeln ;
   writeln ;
   
   repeat
      write('   Zenbat elementu izango dira (', BEHEMUGA, ' eta ', GOIMUGA, ' arteko balioa): ') ;
      readln(iLuzera) ;
   until (iLuzera >= BEHEMUGA) and (iLuzera <= GOIMUGA) ;

   writeln ;
   ZerrendaBete(ardZerrenda, iLuzera) ;
   
   writeln ;
   ZerrendaIkusi(ardZerrenda, iLuzera) ;

   readln ;
end.

Programaren balizko exekuzio bat hurrrengo irudian erakusten da: