SortiranjeMatricaPoRedovima

Module Module1

    Sub Main()
        Dim matrica(,) As Byte

        matrica = unos()
        Console.WriteLine()
        Console.WriteLine("Matrica: ")
        ispisMatrica(matrica)

        bubbleSortRows(matrica)
    End Sub

    Function unos() As Byte(,)
        Dim matrica(,) As Byte
        Dim redak, stupac As Byte
        Dim rand As Random = New Random()

        Console.Write("Broj redaka: ")
        redak = Console.ReadLine()
        Console.Write("Broj stupaca: ")
        stupac = Console.ReadLine()

        ReDim matrica(redak - 1, stupac - 1)

        For i = 0 To matrica.GetUpperBound(0)
            For j = 0 To matrica.GetUpperBound(1)
                matrica(i, j) = rand.Next(1, 200)
            Next
        Next

        Return matrica
    End Function

    Sub ispisMatrica(ByVal matrica(,) As Byte)
        For i = 0 To matrica.GetUpperBound(0)
            For j = 0 To matrica.GetUpperBound(1)
                Console.Write(matrica(i, j) & " ")
            Next
            Console.WriteLine()
        Next
        Console.WriteLine()
    End Sub

    Sub ispisNiz(niz() As Byte)
        For i = 0 To niz.GetUpperBound(0)
            Console.Write(niz(i) & " ")
        Next
        Console.WriteLine()
    End Sub

    Sub bubbleSortRows(ByVal matrica(,) As Byte)
        Dim niz() As Byte
        Dim nizSortiran() As Byte
        Dim brojac As Byte
        ReDim niz(matrica.GetUpperBound(1))

        Console.WriteLine("Matrica sortirana po redovima: ")
        For i = 0 To matrica.GetUpperBound(0)
            For j = 0 To matrica.GetUpperBound(1)
                niz(brojac) = matrica(i, j)
                brojac = brojac + 1
            Next
            nizSortiran = magija(niz)
            ispisNiz(nizSortiran)
            brojac = 0
        Next

    End Sub

    Function magija(ByVal niz() As Byte) As Byte()
        For i = 0 To niz.GetUpperBound(0) - 1
            For j = 0 To niz.GetUpperBound(0) - 1
                If niz(j) > niz(j + 1) Then
                    Dim temp As Byte = niz(j)
                    niz(j) = niz(j + 1)
                    niz(j + 1) = temp
                End If
            Next
        Next

        Return niz
    End Function
End Module