Navigace: Hlavní stránka -> BASIC -> 06 Dvojrozměrná pole -> 06.04 Výpočet počtu sudých čísel na diagonálách pole

MENU

06.04 Výpočet počtu sudých čísel na diagonálách pole

Zadání:
Sestavte program, který nageneruje čtvercové pole NxN náhodných čísel a vypočte počet sudých čísel na hlavní a vedlejší diagonále.
Řešení:
Jelikož testujeme hlavní a vedlejší diagonálu ve čtvercovém poli, nemusíme při tomto testu používat dva vnořené
cykly FOR, stačí pouze jeden. Prvky na hlavní diagonále mají pozici (i,i) a prvky na vedlejší diagonále (i,n+1-i). 
Module Module1

    Sub Main()

        Dim pole(99, 99), n, i, j, poceth, pocetv As Integer

        Console.Write("Zadejte rozmer pole: ")
        n = Console.ReadLine

        Randomize(Timer)

        For i = 0 To n - 1
            For j = 0 To n - 1
                pole(i, j) = Rnd() * 100
            Next
        Next

        poceth = 0
        pocetv = 0

        For i = 0 To n - 1
            If pole(i, i) Mod 2 = 0 Then poceth += +1
            If pole(i, n - 1 - i) Mod 2 = 0 Then pocetv += 1
        Next

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

        Console.WriteLine("Pocet sudych cisel na hlavni diagonale: {0}", poceth)
        Console.WriteLine("Pocet sudych cisel na vedlejsi diagonale: {0}", pocetv)

        Console.ReadLine()

    End Sub

End Module
program ke stažení