Найти сумму элементов столбца, в котором расположен наибольший элемент массива

@first_lilil · Регистрация: 10.04.2016

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

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

Процедурка для кнопки

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Amax = 0
        For i = 1 To 5
        For j = 1 To 5
            If A(i, j) > Amax Then
            A(i, j) = Amax
            j = jmax
            End If
        Next j
        Next i
    s = 0
        For i = 1 To 5
    s = s + A(i, jmax)
        Next i
 
    Label4.Caption = s

Почему-то считает что угодно, кроме того, что нужно. Тот же текст для матрицы 4х4 (с соответствующим значением i и j) Работает нормально. Подскажите, что и как изменить, чтобы этот калькулятор меня не...обманывал. Скрин и сама прожка прилагаются.

toiai · 03.05.2016, 08:15

Да, перевертыш, заменяешь максимальный на 0, j на 0 ...ну и последствия в бесконечности...
Найди отличия:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton2_Click()
    Amax = A(1,1)
    For i = 1 To 5
        For j = 1 To 5
            If A(i, j) > Amax Then
                Amax = A(i, j)
                jmax = j
            End If
        Next j
    Next i
    s = 0
    For i = 1 To 5
        s = s + A(i, jmax)
    Next i
    Label4.Caption = s
End Sub

и еще если все елементы массива отрицательные, то 0 всегда больше и такого значения в массиве нет!

@first_lilil · 03.05.2016, 16:52 **[ТС]**

Все равно не то считает (

@Svsh2015 · 04.05.2016, 00:21

добрый вечер,попробуйте протестировать макрос на листе Excel,кнопка example

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub example()
   Dim Amax%, s%, A, imax%
   A = Range("A1:E5").Value
   Amax = Application.WorksheetFunction.Min(A)
 For i = 1 To 5
  For j = 1 To 5
   If A(i, j) > Amax Then
        Amax = A(i, j)
        jmax = j
   End If
 Next j, i
  MsgBox jmax
For i = 1 To 5
   s = s + A(i, jmax)
Next
  MsgBox s
End Sub

@first_lilil · 04.05.2016, 01:39 **[ТС]**

Этот работает, да. Хотя надо в ворде и 5х3 на самом деле)
Понять не могу, почему 4х4 работает, а вот 5х5 например нет, хотя по той же технологии. Ну и 5х3 тоже нет.

@first_lilil · 04.05.2016, 01:48 **[ТС]**

Впихнула в свою процедуру msbox по аналогии - посмотреть хоть, что оно ищет - ищет явно не то. Считает тоже.

Новые блоги и статьи Все статьи Все блоги /
Next.js для разработки React: преимущества серверного рендеринга Reangularity 20.03.2025 Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .	JUnit или TestNG: Выбираем Java-фреймворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .
Криптография в PHP Jason-Webb 20.03.2025 PHP предоставляет много криптографических возможностей: от встроенных функций хеширования до полноценных библиотек шифрования — арсенал средств довольно обширен. Но всё это бесполезно без понимания. . .	Lineedge (Semi-Alpha) 0.75@20: Что мы потеряли Etyuhibosecyu 20.03.2025 С каждым новым стандартом Lineedge обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление. . .	Реализация перечислений в Go golander 19.03.2025 Если вы перешли на Go с других языков программирования (как я), таких как C#, Java или Python, вы наверняка заметили, что Go не имеет встроенной поддержки перечислений (enumerations). Это может стать. . .	Шаблон API Gateway в микросервисной архитектуре MatrixArchitect 19.03.2025 API Gateway — один из основных компонентов микросервисной архитектуры. Фактически, API Gateway представляет собой сервис, который располагается между клиентскими приложениями и бэкенд-микросервисами,. . .	C++26: Что мы потеряли bytestream 19.03.2025 С каждым новым стандартом C++ обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление функциональности. . .

@first_lilil 0 / 0 / 0 Регистрация: 10.04.2016 Сообщений: 6
	03.05.2016, 16:52 [ТС]	3
	Все равно не то считает ( Миниатюры 0

@first_lilil 0 / 0 / 0 Регистрация: 10.04.2016 Сообщений: 6
	04.05.2016, 01:39 [ТС]	5
	Этот работает, да. Хотя надо в ворде и 5х3 на самом деле) Понять не могу, почему 4х4 работает, а вот 5х5 например нет, хотя по той же технологии. Ну и 5х3 тоже нет. 0

@first_lilil 0 / 0 / 0 Регистрация: 10.04.2016 Сообщений: 6
	04.05.2016, 01:48 [ТС]	6
	Впихнула в свою процедуру msbox по аналогии - посмотреть хоть, что оно ищет - ищет явно не то. Считает тоже. Миниатюры 0

Опции темы