Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 20.10.2014
Сообщений: 36
1

В заданном массиве определить номер 1-го рядка, который имеет максимальное количество положительных элементов

19.11.2014, 17:21. Показов 1034. Ответов 5
Метки нет (Все метки)

В заданyом массиве У(n, m) определить номер 1-го рядка, который имеет максимальное количество положительных элементов.
Я сделал так чтоб считало положительные элементы всего массива, а как сделать что бы считало именно в строке не пойму.
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
31
32
Option Explicit
Private Sub Command1_Click()
Dim n As Long, m As Long, a As Long, b As Long, i As Long, j As Long, k As Long
 
n = Text1(0).Text
m = Text1(1).Text
a = Text1(2).Text
b = Text1(3).Text
 
ReDim mas(n - 1, m - 1) As Long
Randomize Timer
For i = 0 To n - 1
    For j = 0 To m - 1
        mas(i, j) = Fix(Rnd * (b - a + 1)) + a
    Next j
Next i
For i = 0 To n - 1
    For j = 0 To m - 1
        Label1.Caption = Label1.Caption & mas(i, j) & " "
    Next j
    Label1.Caption = Label1.Caption & vbCrLf
Next i
   k = 0
For i = 0 To n - 1
    For j = 0 To m - 1
       If mas(i, j) >= 0 Then
       k = k + 1
       End If
    Next j
Next i
Label2.Caption = Label2.Caption & k & " "
End Sub
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2014, 17:21
Ответы с готовыми решениями:

В заданном массиве определить количество положительных и отрицательных элементов
8. В заданном массиве определить количество положительных и отрицательных элементов. ...

Определить номер первой строки матрицы, в которой максимальное количество положительных элементов
В заданном массиве Х(н,м) определить номер 1-ой строчки, в которой максимальное кол-во...

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

В заданном массиве Х, состоящем из 20 элементов, определить и вывести на экран количество положительных, отри
В заданном массиве Х, состоящем из 20 элементов, определить и вывести на экран количество...

5
es geht mir gut
11494 / 4727 / 1181
Регистрация: 27.07.2011
Сообщений: 11,433
19.11.2014, 18:11 2
Лучший ответ Сообщение было отмечено Fuwka как решение

Решение

В этом коде учитывается только одна такая строка. Реально может быть несколько строк, в которых одинаковое максимальное количество положительных элементов.
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
31
32
33
34
35
36
Option Explicit 
Private Sub Command1_Click()
Dim n As Long, m As Long, a As Long, b As Long
Dim i As Long, j As Long, k As Long, iPos As Long, cPos As Long
 
n = Text1(0).Text
m = Text1(1).Text
a = Text1(2).Text
b = Text1(3).Text
Label1.Caption = ""
Label2.Caption = ""
 
ReDim mas(n - 1, m - 1) As Long
Randomize Timer
For i = 0 To n - 1
    For j = 0 To m - 1
        mas(i, j) = Fix(Rnd * (b - a + 1)) + a
    Next j
Next i
For i = 0 To n - 1
    For j = 0 To m - 1
        Label1.Caption = Label1.Caption & mas(i, j) & " "
    Next j
    Label1.Caption = Label1.Caption & vbCrLf
Next i
For i = 0 To n - 1
     k = 0
     For j = 0 To m - 1
         If mas(i, j) >= 0 Then
             k = k + 1
         End If
     Next j
     If k > cPos Then cPos = k: iPos = i + 1
Next i
Label2.Caption = "Максимальное количество положительных (" & cPos & ") в строке № " & iPos
End Sub
1
0 / 0 / 0
Регистрация: 20.10.2014
Сообщений: 36
19.11.2014, 18:19  [ТС] 3
VB почему-то ругается на это "cPos"

Добавлено через 1 минуту
и что это вообще за значение?
0
es geht mir gut
11494 / 4727 / 1181
Регистрация: 27.07.2011
Сообщений: 11,433
19.11.2014, 18:22 4
Лучший ответ Сообщение было отмечено Fuwka как решение

Решение

Цитата Сообщение от Fuwka Посмотреть сообщение
cPos
Это количество положительных элементов в строке.
Как ругается?
0
0 / 0 / 0
Регистрация: 20.10.2014
Сообщений: 36
19.11.2014, 18:27  [ТС] 5
Понял
И да все там нормально работает я тупанул))))
Очень вам благодарен!
0
es geht mir gut
11494 / 4727 / 1181
Регистрация: 27.07.2011
Сообщений: 11,433
19.11.2014, 18:27 6
Все, понял...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2014, 18:27

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

Найти номер столбца, среднее геометрическое положительных элементов которого имеет максимальное значение
Помогите с заданием. Найти номер столбца,среднее геометрическое положительных элементов которого...

В заданном списке определить максимальное количество подряд идущих положительных чисел
Нужна помощь с задачей. В заданном списке определить максимальное количество подряд идущих...

Количество положительных элементов в заданном массиве
1)написать программу,которая подсчитывает количество положительных элементов в заданном массиве...


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

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

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