11. astea | erregistroen array bat

Ikasgelako ikasle kopuru maximoa 80 izanik, bildu array batean ikasleen informazio hau:

 

Hona hemen balizko soluzio bat:

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96

program ErregistroenArrayBat ;   const    BEHEMUGA = 1 ;    GOIMUGA = 25 ;      type    tsKate39 = string[39] ;    tsKate99 = string[99] ;         trdIkasle = record                   sIzena   : tsKate39 ;                   rNota    : real ;                   sHelbidea: tsKate99 ;                   byAdina  : byte ;                end ;      tardGela = array[BEHEMUGA..GOIMUGA] of trdIkasle ;     procedure IkasleBatHartu(var rdIkasle: trdIkasle) ; begin    write('Ikaslearen izena eman: ':30) ;    readln(rdIkasle.sIzena) ;    write('Ikaslearen nota eman: ':30) ;    readln(rdIkasle.rNota) ;    write('Ikaslearen helbidea eman: ':30) ;    readln(rdIkasle.sHelbidea) ;    write('Ikaslearen adina eman: ':30) ;    readln(rdIkasle.byAdina) ; end ;     procedure ArrayaBete(var ardGela: tardGela; var iLuzera: integer) ; var    k: integer ; begin    repeat       write('Zenbat ikasle dira? ') ;       readln(iLuzera) ;    until (iLuzera >= BEHEMUGA) and (iLuzera <= GOIMUGA) ;         for k:=BEHEMUGA to iLuzera do    begin       writeln(k, '. ikaslearen datuak hartzen.') ;       IkasleBatHartu(ardGela[k]) ;       writeln ;    end ; end ;     procedure IkasleBatErakutsi(const rdIkasle: trdIkasle) ; begin    writeln('Ikaslearen izena: ':25, rdIkasle.sIzena) ;    writeln('Ikaslearen nota: ':25, rdIkasle.rNota:0:2) ;    writeln('Ikaslearen helbidea: ':25, rdIkasle.sHelbidea) ;    writeln('Ikaslearen adina: ':25, rdIkasle.byAdina) ; end ;     procedure ArrayaIkusi(const ardGela: tardGela; iLuzera: integer) ; var    k: integer ; begin    for k:=BEHEMUGA to iLuzera do    begin       IkasleBatErakutsi(ardGela[k]) ;       writeln ;    end ; end ;   { ------------------- PROGRAMA NAGUSIA ------------------- }   var    ardGela: tardGela ;    iLuzera: integer ;      begin    writeln('//////////////////////////////////////') ;    writeln ;          writeln('Gelako datuak jaso.') ;    ArrayaBete(ardGela, iLuzera) ;    writeln ;         writeln('Gelako datuak ikusi.') ;    ArrayaIkusi(ardGela, iLuzera) ;    writeln ;         writeln('Lehen ikaslearen adina ', ardGela[BEHEMUGA].byAdina, ' da.') ;    writeln('Azken ikaslearen izena ', ardGela[iLuzera].sizena, ' da.') ;      writeln ;    writeln('//////////////////////////////////////') ;    readln ; end.