0 / 0 / 0
Регистрация: 19.11.2017
Сообщений: 12
1

Наибольший элемент в каждой строке матрицы!

19.11.2017, 13:28. Показов 1610. Ответов 8
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Мне нужно, чтоб программа находила наибольший элемент в каждой строке матрицы, но почему-то не работает

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton4_Click()
s = 0
For i = 2 To 9
    For j = 1 To 5
        max = Cells(i, j)
        If Cells(i, j) < Cells(i, j + 1) Then
            max = Cells(i, j + 1)
            k = 0
            Cells(s, k) = max
            k = k + 1
        End If
    Next j
    s = s + 1
Next i
For i = 2 To 9
    For j = 1 To 5
        Selection.TypeText (Cells(i, j) & Chr(9))
        Selection.TypeParagraph
    Next j
Next i
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2017, 13:28
Ответы с готовыми решениями:

Найти наибольший элемент в каждой строке(1задача) и столбце (2задача) матрицы
Задачи выполняются в экселевском VBA. Heeelp(

В каждой строке матрицы найти наибольший элемент и записать его в линейный массив
Создать двумерный массив случайных чисел А. В каждой строке этого массива найти наибольший элемент...

Найти в каждой строке наибольший элемент и поменять его местами с элементом главный диагонали
Подскажите пожайлуста с решением. Дана целочисленная квадратная матрица найти в каждой строке...

В каждой строке матрицы найти максимальный элемент и заменить им первый элемент строки
В матрице Х(4,5) в каждой строке найти максимальный элемент и заменить им первый элемент строки....

8
Заблокирован
19.11.2017, 14:40 2
Лучший ответ Сообщение было отмечено Павел Новик как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub CommandButton4_Click()
For i = 2 To 9
    Max = Cells(i, 1)
    For j = 2 To 5
        If Cells(i, j) > Max Then Max = Cells(i, j)
    Next j
    Cells(i, 7) = Max
Next i
End Sub
И учимся оформлять код.
Миниатюры
Наибольший элемент в каждой строке матрицы!  
1
0 / 0 / 0
Регистрация: 19.11.2017
Сообщений: 12
19.11.2017, 14:47  [ТС] 3
Спасибо тебе огромное, ты прям мой кумир!
А если дополнительно надо будет, чтоб программа еще и считала количество наибольших элементов?
0
Заблокирован
19.11.2017, 15:00 4
Лучший ответ Сообщение было отмечено Павел Новик как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton4_Click()
For i = 2 To 9
    Max = Cells(i, 1)
    c = 1
    For j = 2 To 5
        If Cells(i, j) > Max Then
          Max = Cells(i, j)
          c = 1
        ElseIf Cells(i, j) = Max Then
          c = c + 1
        End If
    Next j
    Cells(i, 7) = Max
    Cells(i, 8) = c
Next i
End Sub
Поплотнее надо бы числа генерировать, а то повторы маловероятны...
1
0 / 0 / 0
Регистрация: 19.11.2017
Сообщений: 12
19.11.2017, 15:12  [ТС] 5
Всё, теперь вроде весь код есть, но вот думаю, правильно ли я понял задание, смотри
Дана действительная матрица порядка 8*5 найти для каждой строки элементы с наибольшим значением и подчитать их количество, вроде как всё правильно.Но все же
0
Заблокирован
19.11.2017, 15:18 6
Лучший ответ Сообщение было отмечено Павел Новик как решение

Решение

Для каждой строки вы подчитали, а что имеется ввиду под их количество в данном задании - вопрос не ко мне
1
0 / 0 / 0
Регистрация: 19.11.2017
Сообщений: 12
19.11.2017, 15:28  [ТС] 7
А можете объяснить подробнее? Программа же считает, что в каждой строке такой элемент 1
0
Заблокирован
19.11.2017, 15:45 8
В каждой строке один максимальный элемент - потому что он там один.
Измените матрицу и почувствуйте разницу -
Миниатюры
Наибольший элемент в каждой строке матрицы!  
1
0 / 0 / 0
Регистрация: 19.11.2017
Сообщений: 12
19.11.2017, 15:55  [ТС] 9
Аа, ну да, спасибо!!!
0
19.11.2017, 15:55
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2017, 15:55
Помогаю со студенческими работами здесь

Найти максимальный элемент в каждой строке матрицы
доброго времени суток! помогите пожалуйста разобраться с программой вводится массив 4*4 с...

Определить среднее арифметическое каждого столбца матрицы и наибольший по модулю элемент матрицы.
Помогите разобраться с заданием. Определить среднее арифметическое каждого столбца матрицы и...

Найти наибольший по модулю элемент матрицы
помогите пожалуйста доработать и ошибки исправить задание: В данной квадратной матрице порядка n...

Найти наибольший элемент матрицы и его индекс
Дана квадратная матрица размерности η. Найти наибольший элемент и его индекс. Которые находятся в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru