30. astea | laborategia prestatzen

29. astea (2019/04/03) laborategirako eginda ekarri behar dena

Datorren saioan proiektuari (edo talde-lanari) buruz hitz egingo dugu. Datorren saioaren gaia erregistroen arrayak dira. Hona hemen enuntziatuak:

Erregistroen bi bektore nahastu Laborategiko gelan, gehienez, 25 ikasle izango dira. Ikasleen datuak bi bektoretan biltzen dira, bektore bat lehen azterketari dagokio eta beste bektorea bigarren azterketari dagokio. Bektoreen elementuak kateak dira, eta bertan izena eta zenbaki bat daude / batez banaturik aurkitzen direlarik, zenbakien kopuru maximoa 9.9 izango eta minimoa 0.0 izango da. Datuak teklatuaren bitartez ematen dira eta ikasleen posizioak bektoretan zaindu behar dira berdinak izan daitezan, hurrengo adibidean erakusten den bezala: Josu ikaslea lehena da abiapuntuko array bietan. asAzterketa1 eta asAzterketa2 abiapuntuko bektoreak dira eta ardAzterketak bektorea da lortu behar dena. Hona hemen datuen adibide bat: asAzterketa1 ‘Josu/6.1’ ‘Ane/7.6’ ‘Mikel/2.7’ 1 2 3 asAzterketa2 ‘Josu/6.9’ ‘Ane/5.4’ ‘Mikel/6.3’ 1 2 3 iLuzera 3 ardAzterketak ‘Josu’ ‘Josu’ ‘Ane’ ‘Ane’ ‘Mikel’ ‘Mikel’ 6.1 6.9 7.6 5.4 2.7 6.3 1 2 3 4 5 6 iZenbat 6 ardAzterketak bektorea lortu ondoren zenbait operazio egingo dira. Hona hemen erabilgarri dauzkazun programa nagusia eta azpiprogramen goiburukoak: PROGRAM ErregistroenBiArrayNahasten_1 ; CONST    BEHEMUGA = 1 ;    GOIMUGA1 = 25 ; TYPE    tsKatea = String[30] ;    tasAzterketa = ARRAY[BEHEMUGA..GOIMUGA1] OF tsKatea ; PROCEDURE DatuakSartu(VAR asAzterketa: tasAzterketa;                           VAR iLuzera: Integer) ; BEGIN END ; PROCEDURE DatuakIkusi(CONST asAzterketa: tasAzterketa;                                 iLuzera: Integer) ;  BEGIN END ; { =================================================================== } VAR    asAzterketa1, asAzterketa2: tasAzterketa ;    iLuzera: Integer ; BEGIN    WriteLn('1. azterketa:') ;    DatuakSartu(asAzterketa1, iLuzera) ;    WriteLn ;    Write('1. azterketaren ') ;    DatuakIkusi(asAzterketa1, iLuzera) ;    WriteLn ;    WriteLn('2. azterketa:') ;    DatuakSartu(asAzterketa2, iLuzera) ;   (* datuak egoki sartzera  *)    WriteLn ;                              (* guztiz behartuta gaude *)    Write('2. azterketaren ') ;    DatuakIkusi(asAzterketa2, iLuzera) ;    WriteLn ;    { hemen idatzi ariketan eskatzen dena }    WriteLn('Programa amaitzera doa') ;    ReadLn ; END. Ariketa honen enuntziatu inprimagarria hemendik hartu, ariketaren planteamendua eta lehen urratsak programa-iturburu honetan daude ErregistroenBiArrayNahastenEMATEKOA.PAS. Honako hauek egin: ardAzterketak arrayarekin lan eginez, ikasgelako ikasle baten izena eman (Ane adibidez) eta kalifikazioa orokorra erakutsi (bere noten batezbesteko aritmetikoa). ardAzterketak arrayarekin lan eginez, lehen azterketako kalifikazioetatik lortzen den batezbesteko aritmetikoa kalkulatu. ardAzterketak arrayarekin lan eginez, bigarren azterketako kalifikazioetatik lortzen den batezbesteko aritmetikoa kalkulatu. ardAzterketak arrayarekin lan eginez, nork lortu du notarik onena eta zein azterketan gertatu da. ardAzterketak arrayarekin lan eginez, ikasgelako ikasle baten izena eman (Ane adibidez) eta aurkitzen bada bere kalifikazioak aldatu. ardAzterketak arrayarekin lan eginez, ikasgelako ikasle baten izena eman (Ane adibidez) eta aurkitzen bada arraytik ezabatu. ardAzterketak arrayarekin lan eginez, ikasle aprobatuen zerrenda erakutsi pantailan (ikasle bat aprobatuko du bere nota biren batezbesteko artrmetikoa 5.0 edo handiagoa bada). ardAzterketak arrayarekin lan eginez, arraya ordenatu/sailkatu ikasleen izenen arabera. ardAzterketak arrayarekin lan eginez, ... Ariketa honek begi bistako hobekuntza du datuak ematerako prozeduretan: bigarren azterketako asAzterketa2 bektorea betetzean lehen azterketako asAzterketa1 bektorearen informazioa aintzat hartu, adibidez  prozedura DatuakSartuAurrekoakAintzatHarturik(asAzterketa1, iLuzera, asAzterketa2) idatziz non hiru parametroen jokamoldea sarrera-sarrera-irteera den. PROGRAM ErregistroenBiArrayNahasten_2 ; CONST    BEHEMUGA = 1 ;    GOIMUGA1 = 25 ; TYPE    tsKatea = String[30] ;    tasAzterketa = ARRAY[BEHEMUGA..GOIMUGA1] OF tsKatea ; PROCEDURE LehenArrayarenDatuakSartu(VAR asAzterketa: tasAzterketa;                                         VAR iLuzera: Integer) ;  BEGIN END ; PROCEDURE DatuakIkusi(CONST asAzterketa: tasAzterketa;                                 iLuzera: Integer) ; BEGIN END ; PROCEDURE DatuakSartuAurrekoakAintzatHarturik(CONST asAzterketa1: tasAzterketa;                                                          iLuzera: Integer;                                                 VAR asAzterketa2: tasAzterketa) ;  BEGIN END ; { --------------------------------------------------------------------------------------------------------------------------------- } VAR    asAzterketa1, asAzterketa2: tasAzterketa ;    iLuzera: Integer ; BEGIN    WriteLn('1. azterketa:') ;    LehenArrayarenDatuakSartu(asAzterketa1, iLuzera) ;    WriteLn ;    Write('1. azterketaren ') ;    DatuakIkusi(asAzterketa1, iLuzera) ;    WriteLn ;    DatuakSartuAurrekoakAintzatHarturik(asAzterketa1, iLuzera,  asAzterketa2) ;      Write('2. azterketaren ') ;    DatuakIkusi(asAzterketa2, iLuzera) ;    WriteLn ;    { hemen idatzi ariketan eskatzen dena }    WriteLn('Programa amaitzera doa') ;    ReadLn ; END.