Сортировка матрицы в консольном приложении MS VB 2008

В этом совете представлен пример сортировки матрицы.


Дата: 17.01.2011 г.

Рейтинг: 0

Метки: матрица, сортировка, visual basic

Задача:
Отсортировать матрицу, таким образом, чтобы на главной диагонали выстроить минимальные значение строки.

Код:Module Module1

    Sub Main()
        Dim matr(,) As Integer
        Dim msr(,) As Integer
        Dim s As Integer
        Dim rn As Random = New Random(10)
        Console.WriteLine("Размер матрицы:")
        s = System.Convert.ToInt32(Console.ReadLine())
        ReDim matr(s, s)
        ReDim msr(s, s)
        Console.WriteLine()
        'input
        For i As Integer = 0 To s
            For j As Integer = 0 To s
                matr(i, j) = Fix((rn.NextDouble) * 10)
                msr(i, j) = matr(i, j)
            Next j
        Next i

        'sort
        Dim min As Integer
        Dim ind_min As Integer
        Dim tmp As Integer
        For i As Integer = 0 To s
            min = msr(0, i)
            ind_min = 0
            For j As Integer = 0 To s
                If min > msr(j, i) Then
                    min = msr(j, i)
                    ind_min = j
                End If
            Next j
            tmp = msr(i, i)
            msr(i, i) = min
            msr(ind_min, i) = tmp
        Next i
        'output
        Dim str As String
        For i As Integer = 0 To s
            str = ""
            For j As Integer = 0 To s
                str += matr(j, i).ToString + " "
            Next j
            str += "  |   "
            For j As Integer = 0 To s
                str += msr(j, i).ToString + " "
            Next j
            Console.WriteLine(str)
        Next i
        'end
        Console.WriteLine()
        Console.WriteLine("Нажмите Any key =)")
        Console.ReadKey()
    End Sub

End Module

Вот так это будет выглядеть: Сортировка матрицы в консольном приложении MS VB 2008

Сам пример довольно прост и поэтому не вижу смысла разбирать подробно.

Удачных проб, Сургай Владимир.




Похожие статьи: