Упорядочить строки матрицы по невозрастанию значений наибольших элементов строк

@irbis9999 · Регистрация: 21.12.2012

Author24 — интернет-сервис помощи студентам

Дана действительная матрица размера n•m (n<=10, m<=10). Упорядочить (переставить) строки матрицы по невозрастанию значений наибольших элементов строк.

@sco43 · 04.01.2013, 08:24

Visual Basic

Private Sub CommandButton13_Click()
 Cells.Select
    Range("A20").Activate
    Selection.ClearContents
Dim n%, m%, s%
n = InputBox("n")
m = InputBox("m")
ReDim a%(n, m), b%(n)
For i = 1 To n
For j = 1 To m
 a(i, j) = Rnd(1) * 25
 Cells(i, j) = a(i, j)
Next j
 b(i) = a(i, 1)
Next i
 
For i = 1 To n
For j = 1 To m
 If b(i) < a(i, j) Then
  b(i) = a(i, j)
 End If
Next j
Cells(i, m + 3) = b(i)
Next i
 
 
For i = 1 To n
For j = 1 To n
 If b(i) < b(j) Then
  s = b(i): b(i) = b(j): b(j) = s
  For k = 1 To m
   s = a(j, k): a(j, k) = a(i, k): a(i, k) = s
  Next k
 End If
Next j
Next i
   
For i = 1 To n
For j = 1 To m
  Cells(i + n + 2, j) = a(i, j)
  Cells(i + n + 2, m + 3) = b(i)
Next j
Next i
 
End Sub

@irbis9999 · 04.01.2013, 08:31 **[ТС]**

sco43, а вы не моглибы расписать, что какая функция делает, если не сложно

@sco43 · 04.01.2013, 10:36

С 9 по 15 создает собственно матрицу(массив а).
в - вспомогательный массив.
С 17 по 24 в массив в помещаются максимальные элементы строк массива а(исходная матрица).
С 27 по 36 происходит сортировка,
С 38 по 43 происходит вывод отсортированной матрицы в лист exel.

@irbis9999 · 04.01.2013, 10:38 **[ТС]**

благодарю

@irbis9999 0 / 0 / 0 Регистрация: 21.12.2012 Сообщений: 12
		1
	Упорядочить строки матрицы по невозрастанию значений наибольших элементов строк 03.01.2013, 20:26. Показов 1491. Ответов 4 Метки нет (Все метки) Дана действительная матрица размера n•m (n<=10, m<=10). Упорядочить (переставить) строки матрицы по невозрастанию значений наибольших элементов строк. 0

@irbis9999 0 / 0 / 0 Регистрация: 21.12.2012 Сообщений: 12
	04.01.2013, 08:31 [ТС]	3
	sco43, а вы не моглибы расписать, что какая функция делает, если не сложно 0

@sco43 670 / 163 / 22 Регистрация: 27.01.2012 Сообщений: 372
	04.01.2013, 10:36	4
	С 9 по 15 создает собственно матрицу(массив а). в - вспомогательный массив. С 17 по 24 в массив в помещаются максимальные элементы строк массива а(исходная матрица). С 27 по 36 происходит сортировка, С 38 по 43 происходит вывод отсортированной матрицы в лист exel. 1

@irbis9999 0 / 0 / 0 Регистрация: 21.12.2012 Сообщений: 12
	04.01.2013, 10:38 [ТС]	5
	благодарю 0

Опции темы