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

Дана целочисленная прямоугольная матрица. Определить количество столбцов, не содержащих ни одного нулевого

02.10.2016, 15:45. Просмотров 994. Ответов 1
Метки нет (Все метки)

Дана целочисленная прямоугольная матрица. Определить количество столбцов, не содержащих ни одного нулевого элемента.

Добавлено через 3 минуты
Массив создал, а вот как найти я не знаю.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub massivS()
Dim i As Integer, j As Integer
Dim nR As Integer, nC As Integer
Randomize
nR = Int(InputBox(" Кол-во строк"))
nC = Int(InputBox("Кол-во страниц"))
For i = 1 To nR
For j = 1 To nC
Worksheets("Лист1").Cells(i, j) = Int((15 - 1 + 0) * Rnd + 0)
Next
Next
 
 
End Sub
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.10.2016, 15:45
Ответы с готовыми решениями:

В прямоугольной матрице определить количество столбцов, не содержащих ни одного нулевого элемента
Учусь в институте нам про массивы ничего не объясняли..(( помогите плиз, очень нужно Дана...

Дана целочисленная прямоугольная матрица, определить максимальное из чисел, встречающихся в заданной матрице б
Дана целочисленная прямоугольная матрица, определить максимальное из чисел, встречающихся в...

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

Определить количество строк матрицы, не содержащих ни одного нулевого вектора
Дана целочисленная прямоугольная матрица определить: 1)количество строк , не содержащих ни одного...

1
635 / 231 / 82
Регистрация: 28.10.2015
Сообщений: 486
02.10.2016, 19:34 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub massivS()
    Dim i As Integer, j As Integer
    Dim nR As Integer, nC As Integer
    Dim nuly As Boolean, count As Integer
    Randomize
    nR = Int(InputBox("Кол-во строк"))
    nC = Int(InputBox("Кол-во столбцов"))
    count = nC
    For i = 1 To nC
        nuly = False
        For j = 1 To nR
            Worksheets("Лист1").Cells(j, i) = Int((15 - 1) * Rnd)
            If Worksheets("Лист1").Cells(j, i) = 0 Then nuly = True
        Next
        If nuly = True Then count = count - 1
    Next
    MsgBox "Количество столбцов, не содержащих нули: " & count
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.10.2016, 19:34

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Дана целочисленная прямоугольная матрица. Определить количество столбцов, не содержащих ни одного нулевого
Дана целочисленная прямоугольная матрица. Определить количество столбцов, не содержащих ни одного...

Дана целочисленная прямоугольная матрица. Определить количество столбцов, не содержащих ни одного нулевого элемента.
Дана целочисленная прямоугольная матрица. Определить количество столбцов, не содержащих ни одного...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.