В матрице переставить строки по убыванию сумм элементов строк - VB
Формулировка задачи:
Прошу помощи у уважаемого комьюнити
Суть задачи в том, что бы в матрице переставить строки по убыванию сумм элементов строк
Желательно просто описать процесс написания кода, а не сам код. Хочется сделать самому
Просто хотелось бы понять что и как делать, в какой последовательности, а то сам я понять не могу
Бейсик изучаем всего полгода, поэтому познания мои невелики
При надобности могу отписать начатый код. Закончил на подсчете сумм каждой строки и упорядочивании по убыванию этих сумм
Решение задачи: «В матрице переставить строки по убыванию сумм элементов строк»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim i, j, k, N As Integer Dim p, b As Single N = CInt(InputBox("Введите число столбцов и строк")) ReDim x(N, N), y(N) For i = 1 To N p = 0 y(i) = 0 For j = 1 To N x(i, j) = CSng(InputBox("Введите число", Str(i) & "-ая строка", Str(j) & "-ый стоблец")) Print x(i, j); y(i) = y(i) + x(i, j) p = p & x(i, j) & " " Next j p = " (" & y(i) & ")" Print p Next i For k = 1 To N For i = 1 To N - 1 For j = 1 To N If y(i + 1) > y(i) Then b = x(i, j) x(i, j) = x(i + 1, j) x(i + 1, j) = b End If Next j Next i Next k Print Print "Новая матрица" For i = 1 To N For j = 1 To N Print x(i, j); Next j p = "(" & y(i) & ")" Print p Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д