INFORMATIKAI ALAPOK - MIAU - Szent István Egyetem

• Létrehozzuk az u tömböt, illetve egy j egész típusú változót, utóbbi kezdő értéke 1.• Az u tömböt a Megszamol() függvény eredménye szerint méretezzük.• Végigmegyünk a t tömb elemein, ha a feltételt teljesítő elemre bukkantunk, aztátmásoljuk az u tömb j-edik rekeszébe, és a j indexet léptetjük 1-gyel.Sub Valogat(t() As String, n As Integer)Dim i As Integer, j As Integer, u() As StringReDim u(1 To Megszamol(t, n, 5)) As Stringj = 1For i = 1 To nIf Len(t(i)) >= 5 Thenu(j) = t(i)j = j + 1End IfNext iEnd SubMivel a Visual Basic nyelv egy tömb deklarációjakor csak konstans számértékeket fogad elelemszámként, a fenti példában dinamikus deklarációt, újradimenzionálást használtunk.3.3.3 Maximum kiválasztásaA tömb elemei legyenek numerikus típusúak, feladatunk közülük a legnagyobb elemkiválasztása, és sorszámának megadása.• Létrehozunk egy sorsz egész típusú változót, kezdő értéke legyen 1. Feltételezzük,hogy az 1. elem a legnagyobb.• Végigmegyünk a tömb elemein, megvizsgáljuk, hogy találunk-e az eddigfeltételezettnél nagyobbat. Ha találunk, feltételezzük, hogy az a legnagyobb, és a sorszváltozót egyenlővé tesszük az indexével.• A ciklus lefutása után a sorsz változó a maximum sorszámát tartalmazza.Function Maxkeres(t() As Double, n As Integer)Dim i As Integer, sorsz As Integersorsz = 1For i = 1 to nIf t(i) > t(sorsz) Then sorsz = iNext iMaxkeres = sorszEnd FunctionHa a függvénnyel a maximális értéket akarjuk inkább előállítani, az utolsó előtti sort így kellmódosítanunk:Maxkeres = t(sorsz)A legkisebb érték előállítása a fentihez hasonló elvű algoritmussal végezhető,kidolgozását az Olvasóra bízzuk. Megjegyezzük, hogy amennyiben a sorozatban a maximálisérték többször is előfordul, a fenti algoritmus csak a legkisebb indexű elem sorszámát képesmeghatározni. Ilyen esetben az összes maximum sorszámainak előállításához a függvénykombinálható a 3.3.2 pontban megismert kiválogató algoritmussal.- - 40