Navigace: Hlavní stránka -> BASIC -> 06 Dvojrozměrná pole -> 06.01 Naplnění pole náhodnými čísly a tisk pole

MENU

06.01 Naplnění pole náhodnými čísly a tisk pole

Zadání:
Sestavte program, který nageneruje pole o rozměrech 10x10 náhodnými čísly a pole vytiskne.
Řešení:
Tento program slouží jako ukázka práce s dvojrozměrnými poli. Téměř vždy, když pracujeme s vícerozměrnými
poli, přistupujeme k jejich prvkům pomocí vnořených příkazů FOR. 
Module Module1

    Sub Main()

        Dim pole(9, 9) As Byte

        Randomize(Timer)

        For i = 0 To 9
            For j = 0 To 9
                pole(i, j) = Rnd() * 100
            Next
        Next

        For i = 0 To 9
            For j = 0 To 9
                Console.Write("{0:00} ", pole(i, j))
            Next
            Console.WriteLine()
        Next

        Console.ReadLine()

    End Sub

End Module
program ke stažení

Pro studenty:
Program by se dal zjednodušit spojením vnořených cyklů:
    For i = 0 To 9
        For j = 0 To 9
            pole(i, j) = Rnd() * 100
            Console.Write("{0:00} ", pole(i, j))
        Next
        Console.WriteLine()
    Next
Pro přehlednost byly vnořené cykly odděleny na část generování náhodných čísel a na část tisku pole.
Příkaz Console.WriteLine() je použit, aby se po vytištění každého řádku odřádkovalo.