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
asAzterketa2
iLuzera
ardAzterketak
iZenbat
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:
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(
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.
|
fnboLehenaDa