Navigace: Hlavní stránka -> BASIC -> 06 Dvojrozměrná pole -> 06.05 Výpočet součtů řádků a sloupců pole

MENU

06.05 Výpočet součtů řádků a sloupců pole

Zadání:
Sestavte program, který nageneruje pole MxN náhodných čísel a vypočte součet všech řádků a sloupců.
Řešení:
Pro vyřešení příkladu použijeme pole, kterému k nagenerovaným číslům přidáme jeden sloupec a jeden řádek, které
použijeme pro uložení součtu řádků a sloupců. Tento přidaný řádek a sloupec musíme na začátku programu vynulovat. 
Module Module1

    Sub Main()

        Dim pole(99, 99), m, n, i, j As Integer

        Console.Write("Zadejte pocet radku: ")
        m = Console.ReadLine
        Console.Write("Zadejte pocet sloupcu: ")
        n = Console.ReadLine

        Randomize(Timer)

        For i = 0 To m - 1
            For j = 0 To n - 1
                pole(i, n) = 0
                pole(m, j) = 0
            Next
        Next


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

        For i = 0 To m - 1
            For j = 0 To n - 1
                pole(i, n) = pole(i, n) + pole(i, j)
                pole(m, j) = pole(m, j) + pole(i, j)
            Next
        Next

        For i = 0 To m
            For j = 0 To n
                If i <> m Or j <> n Then Console.Write("{0:00} ", pole(i, j))
            Next
            Console.WriteLine()
        Next

        Console.ReadLine()

    End Sub

End Module
program ke stažení