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

Для матрицы определить номер каждой строки, в которой не менее 2 элементов имеют нулевые значения

15.04.2013, 16:45. Показов 2239. Ответов 5
Метки нет (Все метки)

Для матрицы из 3 столбцов и 6 строк определить номер каждой строки, в которой не менее 2 элементов имеют нулевые значения, и число таких строк. Составить программу
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2013, 16:45
Ответы с готовыми решениями:

Отпечатать номер каждой строки матрицы, в которой не менее 2 элементов имеют нулевое значение
Составить алгоритм и программу для решения задачи. И собственно задача. Для матрицы из 3...

Подпргораммы. Для матрицы отпечатать номер каждой строки, оба элемента которой имеют четные значения
Для матрицы из 2 столбцов и 10 строк отпечатать номер каждой строки, оба элемента которой имеют...

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

Отпечатать номер каждой строки, оба элемента которых имеют нулевые значения и число таких строк
Может кто нибудь сможет написать одну из этих прог!) Текст задания: 1). Для матрицы из 2...

5
Модератор
Эксперт функциональных языков программированияЭксперт Python
33778 / 18815 / 3968
Регистрация: 12.02.2012
Сообщений: 31,559
Записей в блоге: 12
15.04.2013, 18:51 2
Вот решение для матрицы любого размера.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Task(Matr() As integer)
      n%=Ubound(Matr,1)
      m%=Ubound(Matr,2)
      c%=0
      For i%=1 to n%
           q%=0
           For j%=1 to m%
                If Matr(i%,j%)=0 then
                   q%=q%+1
                   if q% > 1 then
                      c%=c%+1
                      Debug.print "В строке ";i%;" не менее двух нулей"
                      exit for
                   end if
                End if
          Next j% 
     Next i%
     Debug.print "Всего таких строк ";c%
End Sub
0
0 / 0 / 0
Регистрация: 28.02.2013
Сообщений: 21
15.04.2013, 19:27  [ТС] 3
выдает ошибку..
посмотрите, я пыталась сама сделать, но что-то не получается

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub var9()
Dim A(1 To 6, 1 To 3) As Integer, i As Integer, j As Integer, str As Integer, stl As Integer
For i = 1 To 6
    For j = 1 To 3
    A(i, j) = Cells(i, j)
    Next j
Next i
str = 1
For i = 1 To 6
If A(i, j) = 0 Then
str = str + 1
End If
Next i
    For j = 1 To 3
    If A(i, j) = 0 Then
    stl = stl + 1
    End If
    Next j
        MsgBox "число строк =" & str
        MsgBox "число столбцов =" & stl
End Sub
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
33778 / 18815 / 3968
Регистрация: 12.02.2012
Сообщений: 31,559
Записей в блоге: 12
15.04.2013, 21:11 4
Цитата Сообщение от karida Посмотреть сообщение
выдает ошибку..
- работает. См картинку:
Миниатюры
Для матрицы определить номер каждой строки, в которой не менее 2 элементов имеют нулевые значения  
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
33778 / 18815 / 3968
Регистрация: 12.02.2012
Сообщений: 31,559
Записей в блоге: 12
15.04.2013, 21:15 5
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
Sub var9()
Dim A(1 To 6, 1 To 3) As Integer, i As Integer, j As Integer, str As Integer, stl As Integer
   For i = 1 To 6
        For j = 1 To 3
             A(i, j) = Cells(i, j)
        Next j
   Next i
   '::: до сих пор все верно
   ';;; дальше пурга...
   str = 1 ' почему 1? Надо нуль.
   For i = 1 To 6
        If A(i, j) = 0 Then ' чему равно j?
           str = str + 1
        End If
   Next i
   '::: Зачем считать в столбцах? В условии - только в строках
   For j = 1 To 3
        If A(i, j) = 0 Then ' чему равно i?
           stl = stl + 1
        End If
   Next j
 
   MsgBox "число строк =" & str 
   MsgBox "число столбцов =" & stl
 
End Sub
0
0 / 0 / 0
Регистрация: 28.02.2013
Сообщений: 21
16.04.2013, 06:11  [ТС] 6
я перед тем как писать программу заполняю exsel числами. Но мне не понятно, как исходя из моего варианта решения, записать условие "что в строке не меньше 2-х нулевых ячеек". Просто с Debug.print я не знакома, и не знаю как она работает.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.04.2013, 06:11
Помогаю со студенческими работами здесь

Для каждой строки матрицы, номер которой кратен 4, найти среднее арифметическое элементов
Дана матрица размера M×N. Для каждой строки матрицы номер которой кратен 4 найти среднее...

Посчитать сумму элементов отдельно в каждой строке матрицы и определить номер строки, в которой эта сумма максимальна
Заполнить двумерный массив случайными числами от 10 до 100. Посчитать сумму элементов отдельно в...

Определить номер строки матрицы, для которой среднее арифметическое её элементов минимально
Здравствуйте ребята.Собственно задача: В двумерном массиве вещественных чисел найти номер строки,...

В каждой строке матрицы максимум среди нечетных элементов умножить на номер строки в которой он встречается
Программа выводит верхнюю строчку и хоть убей. Уже все перепробовал, помогите пожалуйста. Задача:...


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

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

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