Вывести номер столбца массива, содержащего максимальное количество положительных элементов

@gudvin666 · Регистрация: 13.12.2010

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

Создать приложение, выводящее номер первого столбца массива размером 5х10, содержащего максимальное количество положительных элементов. Если таких столбцов нет, то вывести 0. Массив заполняется случайными числами. Результат выводится при нажатии командной кнопки.
вот что я навоял но не смг вывести массив матрицей что не дает проверить правильность выполнения условия, да и ошибка непонятная мне.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim e(10) As Integer
Dim a(1 To 5, 1 To 10) As Integer
 
Private Sub Command1_Click()
For i = 1 To 5
For j = 1 To 10
a(i, j) = Int(Rnd * 1000) - 500
Picture1.Print a(i, j)
Next
Print
Next
For j = 1 To 10
For i = 1 To 5
If a(j, i) > 0 Then s = s + 1
Next
e(j) = s
Next
Max = e(1)
For i = 2 To 10
If Max < e(i) Then if max >0 then  Print i And break
Next
End Sub

morgann55 · 17.03.2012, 05:43

7-я строка Randomize (Timer): a(i, j) = Int(Rnd * 1000) - 500
Если тебе нужны случайные числа, то сначала пропиши функцию Randomize (Timer) (иначе массив постоянно будет заполняться одинаковыми)
8-я строка Picture1.Print a(i, j); vbTab;
Это ты уже знаешь - ; vbTab
10-я строка Picture1.Print
Раз начал выводить в Picture1, то и выводи туда же (просто Print выводит на Форму)
12-я строка For j = 1 To 10: s = 0:
Счётчик надо обнулять перед каждым столбцом (иначе s будет постоянно расти)
14-я строка If a(i, j) > 0 Then s = s + 1
Когда считаешь по столбцам (сначала j, потом i) элементы массива всё равно пишутся a(i, j) (иначе нарушаешь размер массива)
18-я строка Max = e(1): Nom = 1:
Сразу добавляем переменную, которая будет запоминать номер столбца с максимумом
20-я строка If Max < e(i) Then Max = e(i): Nom = i:
Если нашли столбец с бОльшим кол-вом положительных, то Max запоминает ЭТО кол-во, а Nom номер столбца

После полного перебора столбцов формируем строку вывода резуьтатов (выводим на Форму)
Между 21-й и 22-й строками
m = Nom & "-й столбец " & " содержит " & Max & " положительных элементов"
If Max = 0 Then m = "0"
Print m

Исправишь - покажи.

@gudvin666 · 17.03.2012, 06:35 **[ТС]**

все пошло спаибо

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Dim e(10) As Integer
Dim a(1 To 5, 1 To 10) As Integer
 
Private Sub Command1_Click()
For i = 1 To 5
For j = 1 To 10
a(i, j) = Int(Rnd * 1000) - 500
Picture1.Print a(i, j); vbTab;
Next
Picture1.Print
Next
For j = 1 To 10
s = 0
For i = 1 To 5
If a(i, j) > 0 Then s = s + 1
Next
e(j) = s
Next
Max = e(1)
el = 1
For i = 2 To 10
If Max < e(i) Then Max = e(i): el = i:
Next
Picture1.Print
Picture1.Print el
End Sub
 
Private Sub Command2_Click()
End
End Sub

morgann55 · 17.03.2012, 14:53

Странно... Я ночью запускал твой 1-й код и без Randomize массив постоянно получался один и тотже ??!! А сейчас запустил 2-й код и массивы разные... В моём учебнике учат ГСЧ через Randomize (Timer), но если можно и без этого... (дело вкуса)

А зачем ты тогда ВООБЩЕ завёл Picture1 ?? Раз выводишь ВСЁ в одно место, то на форму было бы и проще...

@gudvin666 · 19.03.2012, 04:25 **[ТС]**

Сообщение от morgann55

А зачем ты тогда ВООБЩЕ завёл Picture1 ??

меня просто так научили теперь буду на форму выводить если так будет проще.

Сообщение от morgann55

без Randomize

это необязательная строка так мне сказали на одном из форумов.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	17.03.2012, 05:43
	7-я строка Randomize (Timer): a(i, j) = Int(Rnd * 1000) - 500 Если тебе нужны случайные числа, то сначала пропиши функцию Randomize (Timer) (иначе массив постоянно будет заполняться одинаковыми) 8-я строка Picture1.Print a(i, j); vbTab; Это ты уже знаешь - ; vbTab 10-я строка Picture1.Print Раз начал выводить в Picture1, то и выводи туда же (просто Print выводит на Форму) 12-я строка For j = 1 To 10: s = 0: Счётчик надо обнулять перед каждым столбцом (иначе s будет постоянно расти) 14-я строка If a(i, j) > 0 Then s = s + 1 Когда считаешь по столбцам (сначала j, потом i) элементы массива всё равно пишутся a(i, j) (иначе нарушаешь размер массива) 18-я строка Max = e(1): Nom = 1: Сразу добавляем переменную, которая будет запоминать номер столбца с максимумом 20-я строка If Max < e(i) Then Max = e(i): Nom = i: Если нашли столбец с бОльшим кол-вом положительных, то Max запоминает ЭТО кол-во, а Nom номер столбца После полного перебора столбцов формируем строку вывода резуьтатов (выводим на Форму) Между 21-й и 22-й строками m = Nom & "-й столбец " & " содержит " & Max & " положительных элементов" If Max = 0 Then m = "0" Print m Исправишь - покажи. 2

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	17.03.2012, 14:53
	Странно... Я ночью запускал твой 1-й код и без Randomize массив постоянно получался один и тотже ??!! А сейчас запустил 2-й код и массивы разные... В моём учебнике учат ГСЧ через Randomize (Timer), но если можно и без этого... (дело вкуса) А зачем ты тогда ВООБЩЕ завёл Picture1 ?? Раз выводишь ВСЁ в одно место, то на форму было бы и проще... 2