Элементы каждой строки матрицы расставить в порядке возрастания абсолютных значений - VB

Формулировка задачи:

Дана числовая вещественная матрица а,имеющая n строк и m столбцов.Составить программу предусматривающий контр.вывод исход. матрицы в окно на левой части экрана и вывод упор.матрицы в окно на правой части экрана. Элементы каждой строки матрицы расставить в порядке возрастания абсолютных значений n=4,m=5.

Решение задачи: «Элементы каждой строки матрицы расставить в порядке возрастания абсолютных значений»

textual
                            Листинг программы 
                        

                             For I = 1 To n
            For J = 1 To m
                MIN = Abs(A(I, J))
                Nmin = J
                    For K = J + 1 To m
                         If Abs(A(I, K)) > MIN Then Nmin = K: MIN = Abs(A(I, K))
                   Next K
                    A(I, Nmin) = A(I, J)
                    A(I, J) = MIN
            Next J
        Next I
                        

Оцени полезность:

13 голосов , оценка 4.385 из 5

Похожие ответы