Navigace: Hlavní stránka -> BASIC -> 06 Dvojrozměrná pole -> 06.02 Aritmetický průměr hodnot pole

MENU

06.02 Aritmetický průměr hodnot pole

Zadání:
Sestavte program, který nageneruje pole MxN náhodných čísel a vypočte z nich aritmetický průměr.
Řešení:
Pro práci s polem použijeme dva vnořené cykly FOR.
Module Module1

    Sub Main()

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

        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, j) = Rnd() * 100
            Next
        Next

        soucet = 0

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

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

        ap = soucet / (m * n)

        Console.WriteLine("Aritmeticky soucet pole: {0:0.000}", ap)

        Console.ReadLine()

    End Sub

End Module
program ke stažení