Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Just777
0 / 0 / 0
Регистрация: 06.04.2017
Сообщений: 66
1

Макрос: определить элементы матрицы, сумма индексов которых кратна трем

12.12.2018, 21:35. Просмотров 394. Ответов 11
Метки нет (Все метки)

Взять матрицу M x N.
Определить элементы, сумма индексов которых кратна трем.
Выделить их цветом. M=4, N=7.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.12.2018, 21:35
Ответы с готовыми решениями:

В заданном одномерном массиве целого типа найти и напечатать те элементы, сумма цифр которых кратна трём
В заданном одномерном массиве целого типа найти и напечатать те элементы, сумма цифр которых кратна...

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

Массив: Определить сумму тех элементов массива, сумма индексов которых кратна трем.
Дан двухмерный массив целых чисел. Определить сумму тех элементов массива, сумма индексов которых...

Дана матрица m. Построить массив с, элементы которого равны элементам матрицы m, сумма индексов которых кратна 3
Создал двумерную матрицу через указатели но не получается использовать ее еще раз, подскажите кто...

11
Остап Бонд
Заблокирован
12.12.2018, 21:46 2
Цитата Сообщение от Just777 Посмотреть сообщение
Взять матрицу M x N
Возьмите.
Цитата Сообщение от Just777 Посмотреть сообщение
Определить элементы, сумма индексов которых кратна трем
Visual Basic
1
if ((r+c)mod 3)=0 then
Цитата Сообщение от Just777 Посмотреть сообщение
Выделить их цветом
Visual Basic
1
cells(r,c).interior.color=vbred
Цитата Сообщение от Just777 Посмотреть сообщение
M=4, N=7
Это тоже за Вас сделать?
0
Just777
0 / 0 / 0
Регистрация: 06.04.2017
Сообщений: 66
12.12.2018, 21:49  [ТС] 3
Остап Бонд, нет, просто уточнение того, что матрица 4х7
0
Остап Бонд
Заблокирован
12.12.2018, 21:58 4
Just777, т.е. больше вопросов Вы не имеете?
Рад за Вас!
0
Just777
0 / 0 / 0
Регистрация: 06.04.2017
Сообщений: 66
12.12.2018, 22:07  [ТС] 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
Sub Procedure_1()
    
    
    Dim n As Long, m As Long
    Dim i As Long, j As Long
    
    n = InputBox("n=")
    m = InputBox("m=")
    
    ReDim A(1 To n, 1 To m)
 
     For i = 1 To n Step 1
        For j = 1 To m Step 1
           Cells(i, j) = Int(Rnd * 100)
        Next j
    Next i
     For i = 1 To n Step 1
        For j = 1 To m Step 1
             If ((i + j) Mod 3) = 0 Then Cells(i, j).Interior.Color = vbBlue
      Next j
    Next i
     
End Sub
0
Остап Бонд
Заблокирован
12.12.2018, 22:22 6
Just777, простите, не хотел ни в коей мере Вас обидеть!
А в чем ошибка?
У меня Ваш код отработал всё как просили.
0
Изображения
 
Just777
0 / 0 / 0
Регистрация: 06.04.2017
Сообщений: 66
12.12.2018, 22:31  [ТС] 7
Остап Бонд, увы, но мне кажется он не правильно рассчитывает. Либо я просто не так поняла условия задачи..
0
Остап Бонд
Заблокирован
12.12.2018, 22:35 8
А что не так?
Берите любой посиневший элемент, считайте сумму индексов. Кратно трём?
По моему - кратно, где косяк?
0
Just777
0 / 0 / 0
Регистрация: 06.04.2017
Сообщений: 66
12.12.2018, 22:40  [ТС] 9
Остап Бонд, извиняюсь за свою глупость, но правильно ли я поняла, что значения в ячейках никакую роль не играют? Следовательно, надо использовать лишь индекс, тип А(1;2)?? Блин, надо больше спать
0
Остап Бонд
Заблокирован
12.12.2018, 22:46 10
Ну ещё раз радуюсь тому, что не всё потеряно...
В задаче ничего про значения не было, только про индексы.
1
Just777
0 / 0 / 0
Регистрация: 06.04.2017
Сообщений: 66
12.12.2018, 22:51  [ТС] 11
Остап Бонд, Разобралась! Кстати, вы случаем не знаете,как с помощью VBA подсчитать количество букв в тексте(это уже макросы в Word)?

 Комментарий модератора 
создайте отдельную тему
0
Остап Бонд
Заблокирован
12.12.2018, 22:54 12
Just777, загляните в правила - https://www.cyberforum.ru/announcement.php?a=3
Там и про названия тем, и про количество вопросов в теме есть ответы.
0
12.12.2018, 22:54
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.12.2018, 22:54

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

Вывести все элементы матрицы, сумма индексов которых кратна 3 или 7, остальные символы заменить пробелами
Дана матрица 10 на 10, заполненная символом *. Вывести все элементы, сумма индексов которых кратна...

Все элементы массива, сумма индексов которых кратна пяти, заменить нулями
Решить задачу по изменению исходного массива: Дан двумерный массив целых чисел. Все элементы...

Все элементы двумерного массива, сумма индексов которых кратна 5, заменить нулем
Все элементы двумерного массива, сумма индексов которых кратна 5, заменить нулем. Массив вывести.

Все элементы массива, сумма индексов которых кратна пяти, заменить нулями
using System; using System.Collections.Generic; using System.Linq; using System.Text; using...


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

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

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