7 / 0 / 0
Регистрация: 26.11.2013
Сообщений: 20
|
|
1 | |
Заполнение матрицы, чётные значения эл-тов = единица, нечётные = ноль18.02.2014, 21:03. Показов 2497. Ответов 24
Метки нет (Все метки)
Разработать информационную технологию, позволяющую заменить чётные значения элементов матрицы на единицу, а нечетные – на нуль. Размерность матрицы произвольная и задаётся вводом.
Private Sub Command1_Click() Dim m As Integer, i As Integer, j As Integer Dim e() As Byte m = InputBox("Колличество строк") ReDim e(1 To m, 1 To m) For i = 1 To m For j = 1 To m If i = 1 Then e(i, j) = 0 End If Next j Next i Cls Print Spc(10); i; "Единичная матрица" For i = 1 To m For j = 1 To m Print e(i, j); Next j Next i End Sub Подскажите пожалуйста, как поставить условие обозначающее чётность/нечётность элемента матрицы.
0
|
18.02.2014, 21:03 | |
Ответы с готовыми решениями:
24
Заполнение матрицы змейкой: нечетные столбцы вниз, четные - вверх Указать в каких элементах матрицы содержится четные значения, а потом нечетные Элементы матрицы, которые имеют нечетные значения, записать в массив М1, а четные - в массив М2 Переставить в строке все элементы матрицы из нечетных позиций на четные, а четные на нечетные, по условию |
es geht mir gut
11270 / 4752 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
|
|
18.02.2014, 21:53 | 22 |
Сообщение было отмечено Bar123 как решение
Решение
Такого вида матрица получится если проверять на чётность не значения элементов(в задании именно об этом речь и идёт), а номера столбцов элементов матрицы.
1
|
7 / 0 / 0
Регистрация: 26.11.2013
Сообщений: 20
|
|
18.02.2014, 21:55 [ТС] | 24 |
0
|
es geht mir gut
11270 / 4752 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
|
||||||
18.02.2014, 21:57 | 25 | |||||
Вот как ты наверное хочешь сделать, но это неправильно, не по заданию.
1
|
18.02.2014, 21:57 | |
18.02.2014, 21:57 | |
Помогаю со студенческими работами здесь
25
Дана последовательность целых чисел, за которой следует ноль. Определить чередуются ли в ней четные и нечетные числа Заменить в массиве четные значения элементов на 1, а нечетные значения на 0 Найти кол-во положительных эл-тов массива Xn и вывести на экран номера и значения всех эл-тов с дробной частью Четные, нечетные значения одномерного массива Сортировка массива на четные/нечетные значения Удалить из массива четные или нечетные значения Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |