05.01 Hledání pozice zadané hodnoty v poli
Zadání:
Sestavte program, který nalezne v poli náhodných čísel zadanou hodnotu a vypíše její pozice
Sestavte program, který nalezne v poli náhodných čísel zadanou hodnotu a vypíše její pozice
Řešení:
Pro jednoduchost vyřešíme program na poli o 20 prvcích z intervalu 1..10.
Pomocí prvního cyklu FOR pro proměnnou i nagenerujeme 20 hodnot z intervalu 1..10, vložíme je do pole na příslušné
pozice a zároveň je vytiskneme. V druhém cyklu FOR zkontrolujeme, zda hodnota na pozici i odpovídá hledané
hodnotě. Pokud ano, pozici vytiskneme.
Pro jednoduchost vyřešíme program na poli o 20 prvcích z intervalu 1..10.
Pomocí prvního cyklu FOR pro proměnnou i nagenerujeme 20 hodnot z intervalu 1..10, vložíme je do pole na příslušné
pozice a zároveň je vytiskneme. V druhém cyklu FOR zkontrolujeme, zda hodnota na pozici i odpovídá hledané
hodnotě. Pokud ano, pozici vytiskneme.
Module Module1
Sub Main()
Dim pole(19) As Byte
Dim i, h As Integer
Randomize(Timer)
Console.Write("Zadejte hledanou hodnotu: ")
h = Console.ReadLine
Console.WriteLine("Pole:")
For i = 0 To 19
pole(i) = Rnd() * 10
Console.Write("{0} ", pole(i))
Next
Console.WriteLine()
Console.WriteLine("Hledane pozice: ")
For i = 0 To 19
If pole(i) = h Then Console.Write("{0} ", i)
Next
Console.ReadLine()
End Sub
End Module
program ke stažení
Pro studenty:
Generátor náhodných čísel musíme zinicializovat příkazem RANDOMIZE, jinak by program tisknul pokaždé stejný výsledek.