SortiranjeMatrica

Module Module1

    Sub Main()
        Dim matrica(,) As Byte

        matrica = unos()
        Console.WriteLine("Matrica: ")
        ispis(matrica)
        bubbleSort(matrica)
    End Sub

    Function unos() As Byte(,)
        Dim matrica(,) As Byte
        Dim retci, stupci As Byte
        Dim rand As Random = New Random()

        Console.Write("Broj redaka: ")
        retci = Console.ReadLine()
        Console.Write("Broj stupaca: ")
        stupci = Console.ReadLine()
        ReDim matrica(retci - 1, stupci - 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 ispis(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 bubbleSort(ByVal matrica(,) As Byte)
        Dim matricaNiz() As Byte = magija(matrica)

        For i = 0 To matricaNiz.GetUpperBound(0) - 1 Step 1
            For j = 0 To matricaNiz.GetUpperBound(0) - 1 Step 1
                If matricaNiz(j) > matricaNiz(j + 1) Then
                    Dim temp As Byte = matricaNiz(j)
                    matricaNiz(j) = matricaNiz(j + 1)
                    matricaNiz(j + 1) = temp
                End If
            Next
        Next

        matrica = magijaReverse(matricaNiz, matrica.GetUpperBound(0), matrica.GetUpperBound(1))

        Console.WriteLine("Sortirana matrica: ")
        ispis(matrica)

    End Sub

    Function magija(ByVal matrica(,) As Byte) As Byte()
        Dim niz() As Byte
        Dim retci, stupci, brojac As Byte

        retci = matrica.GetUpperBound(0) + 1
        stupci = matrica.GetUpperBound(1) + 1

        ReDim niz((retci * stupci) - 1)

        For i = 0 To retci - 1
            For j = 0 To stupci - 1
                niz(brojac) = matrica(i, j)
                brojac = brojac + 1
            Next
        Next

        Return niz
    End Function

    Function magijaReverse(ByVal niz() As Byte, ByVal redak As Byte, ByVal stupac As Byte) As Byte(,)
        Dim matrica(redak, stupac) As Byte
        Dim brojac As Byte

        For i = 0 To redak
            For j = 0 To stupac
                matrica(i, j) = niz(brojac)
                brojac = brojac + 1
            Next
        Next

        Return matrica
    End Function
End Module