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

@Despirion · Регистрация: 18.01.2015

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

Найти строку в матрице А(5,6), где больше всего положительных элементов и нарисовать блок-схему
Пожалуйста помогите

@Sasha_Smirnov · 19.01.2015, 21:14

Почему у похожих тем судьба незавидная: Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных, положительных и нулевых элементов (и даже не из-за блок-схем, которые мало кто вообще любит)!

Возможно, помощью будет вот такой код: Найти каких элементов больше в массиве: отрицательных или положительных (Казанский).

Добавлено через 22 минуты
Что-то можно почерпнуть из темы Найти произведение всех отрицательных чисел над побочной диагональю (генерацию матрицы, например).

@m-ch · 20.01.2015, 08:34

Visual Basic

Sub Despirion()
    Const n& = 5 'количество строк
    Const m& = 6 'количество столбцов
    Dim i&, j&, maxRow&, kPol&, maxPol&
    ReDim a&(1 To n, 1 To m)
    Randomize
    For i = 1 To n 'генерация матрицы
        For j = 1 To m
            a(i, j) = Int(Rnd * 21 - 10) 'генерируем элемент матрицы
            Cells(i, j) = a(i, j) 'выводим его на лист
    Next j, i
    For i = 1 To n 'нахождение строки
        kPol = 0
        For j = 1 To m
            If a(i, j) > 0 Then kPol = kPol + 1
        Next j
        If kPol > maxPol Or i = 1 Then maxRow = i: maxPol = kPol
    Next i
    MsgBox "Больше всего положительных элементов в строке " & maxRow & " - " & maxPol
End Sub

генерацию матрицы и подсчет можно объединить в один цикл

@Sasha_Smirnov · 20.01.2015, 18:49

Catstail и SoftIce небось рукоплещут, а Sasha_Smirnov против:

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

упущен случай нескольких максимумов

Как в теме Дан массив действительных чисел. Поменять местами наибольший и наименьший элементы заданного массива и всех таких же.

Мы же тут не по параболе летим, но, найдя экстремум, срочно объявляем, что ответ найден.

Казус в том, что ответ действительно найден! Но "безупречная" формулировка такова:

Visual Basic

1
2

MsgBox "Больше всего положительных элементов " & " (" & maxPol & ") в строке " & maxRow & _
", а также в тех нижележащих строках, где тоже " & maxPol & " положительных элементов."

Как-то неубедительно, правда? Но правда.

Добавлено через 3 часа 33 минуты
Только смешно получится, если их там нет.

@Catstail · 20.01.2015, 20:24

Эта задача вызвала такой "резонанс", что я не смог пройти мимо:

Visual Basic

Sub Task(A() as integer)
Dim R() As integer
      n%=UBound(A,1)
      m%=UBound(A,2)
      Redim R(1 to n%) as integer
      For i%=1 to n%
           For j%=1 to m%
                If A(i%,j%)>0 then R(i%)=R(i%)+1
           Next j%
      Next i%
      ma%=R(i%)
      For i%=2 to n%
           if R(i%)>ma% then ma%=R(i%)
      Next i%
      Debug.print "Список номеров строк с максимальным числом положительных элементов:"
      For i%=1 to n%
           if R(i%)=ma% then Debug.Print i%;" ";
      Next i%
      Debug.Print
End Sub

@m-ch · 20.01.2015, 20:56

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

Но "безупречная" формулировка такова:

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

Только смешно получится, если их там нет.

Visual Basic

Sub Despirion()
    Const n& = 5 'количество строк
    Const m& = 6 'количество столбцов
    Dim i&, j&, maxRow&, kPol&, maxPol&, txt$
    ReDim a&(1 To n, 1 To m)
    Randomize
    For i = 1 To n 'генерация матрицы
        For j = 1 To m
            a(i, j) = Int(Rnd * 21 - 10) 'генерируем элемент матрицы
            Cells(i, j) = a(i, j) 'выводим его на лист
    Next j, i
    For i = 1 To n 'нахождение строки
        kPol = 0
        For j = 1 To m
            If a(i, j) > 0 Then kPol = kPol + 1
        Next j
        If kPol > maxPol Or i = 1 Then
            maxRow = i
            maxPol = kPol
            txt = ""
        ElseIf kPol = maxPol Then
            txt = IIf(Len(txt), txt & ", ", "") & i
        End If
    Next i
    If kPol Then
        MsgBox "Больше всего положительных элементов " & " (" & maxPol & ") в строке " & maxRow & _
            IIf(Len(txt), ", " & vbLf & "а также в строк" & IIf(InStr(txt, ","), "ах ", "е ") & _
            txt & ", где тоже " & maxPol & " положительны" & IIf(maxPol \ 10 Mod 10 = 1 Or (maxPol + 9) Mod 10 >= 4 _
            , "х элементов.", IIf(maxPol Mod 10 = 1, "й элемент.", "x элемента.")), ".")
    Else
        MsgBox "В матрице нет положительных элементов"
    End If
End Sub

@Sasha_Smirnov · 20.01.2015, 22:19

Ваш проект, Catstail, потребовал (в моём исполнении) ещё 40 минут работы (до запуска).

Зато работает:

@Sasha_Smirnov · 20.01.2015, 22:44

В этом проекте обрабатывается квадрат таблицы Excel 10×10, причём числа пока не обязательно вводить.

Не по теме:

О-го-го: за 25 минут аж 4 просмотра — воистину небывалый интерес к VBA в ветке VBA!

(Видимо, вузовцы и втузовцы временно отошли от дел :friends: (а дети малые — спят)

@m-ch · 20.01.2015, 22:58

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

причём числа пока не обязательно вводить.

В 100 пустых ячейках находится 10 строк с одинаковым количеством положительных элементов (ровным нулю)

@Sasha_Smirnov · 21.01.2015, 04:29

Всё так. А теперь повводите туда числа (у меня дома нет офиса, так что продолжение следует… завтра!).

Надеюсь, теперь прояснилось отличие темы Despirion от той, которую мигом исчерпал Catstail: Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных, положительных и нулевых элементов (в принципе решения, а не в блок-схеме (которая этот принцип только бы затуманила))

@m-ch · 21.01.2015, 08:23

в 6 посте в 25 строчке, вмесо

Visual Basic

1	If kPol Then

должно быть

Visual Basic

1	If maxPol Then

прошу модераторов поправить

@Catstail · 21.01.2015, 09:41

Не по теме:

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

Ваш проект, Catstail, потребовал (в моём исполнении) ещё 40 минут работы (до запуска).

- это благодарность или жалоба?

@Sasha_Smirnov · 21.01.2015, 19:17

Это пример того, как ваша разработка внедряется в практику автоматизации на рабочем месте.

А вот интересно, сколько бы потратил на это условный ТС (например, тот же Despirion)? В проект он пока так и не заглянул (или сделал это без авторизации на форуме, что вряд ли).

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	21.01.2015, 19:17	13
	Это пример того, как ваша разработка внедряется в практику автоматизации на рабочем месте. А вот интересно, сколько бы потратил на это условный ТС (например, тот же Despirion)? В проект он пока так и не заглянул (или сделал это без авторизации на форуме, что вряд ли). 0

@Despirion 0 / 0 / 0 Регистрация: 18.01.2015 Сообщений: 5
		1
	Найти строку в матрице, где больше всего положительных элементов 18.01.2015, 17:34. Показов 1199. Ответов 12 Метки нет (Все метки) Найти строку в матрице А(5,6), где больше всего положительных элементов и нарисовать блок-схему Пожалуйста помогите 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	19.01.2015, 21:14	2
	Почему у похожих тем судьба незавидная: Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных, положительных и нулевых элементов (и даже не из-за блок-схем, которые мало кто вообще любит)! Возможно, помощью будет вот такой код: Найти каких элементов больше в массиве: отрицательных или положительных (Казанский). Добавлено через 22 минуты Что-то можно почерпнуть из темы Найти произведение всех отрицательных чисел над побочной диагональю (генерацию матрицы, например). 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	20.01.2015, 22:44	8
	В этом проекте обрабатывается квадрат таблицы Excel 10×10, причём числа пока не обязательно вводить. Не по теме: О-го-го: за 25 минут аж 4 просмотра — воистину небывалый интерес к VBA в ветке VBA! (Видимо, вузовцы и втузовцы временно отошли от дел :friends: (а дети малые — спят) 0

@m-ch 6172 / 937 / 310 Регистрация: 25.02.2011 Сообщений: 1,367 Записей в блоге: 1
	20.01.2015, 22:58	9
	Сообщение от Sasha_Smirnov причём числа пока не обязательно вводить. В 100 пустых ячейках находится 10 строк с одинаковым количеством положительных элементов (ровным нулю) 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	21.01.2015, 04:29	10
	Всё так. А теперь повводите туда числа (у меня дома нет офиса, так что продолжение следует… завтра!). Надеюсь, теперь прояснилось отличие темы Despirion от той, которую мигом исчерпал Catstail: Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных, положительных и нулевых элементов (в принципе решения, а не в блок-схеме (которая этот принцип только бы затуманила)) 0

@Catstail
	21.01.2015, 09:41 #12
	Не по теме: Сообщение от Sasha_Smirnov Ваш проект, Catstail, потребовал (в моём исполнении) ещё 40 минут работы (до запуска). - это благодарность или жалоба? 0