В матрице переставить строки по убыванию сумм элементов строк - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

14   голосов , оценка 3.929 из 5
Похожие ответы