Заполнение матрицы, чётные значения эл-тов = единица, нечётные = ноль

@Bar123 · Регистрация: 26.11.2013

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

Разработать информационную технологию, позволяющую заменить чётные значения элементов матрицы на единицу, а нечетные – на нуль. Размерность матрицы произвольная и задаётся вводом.
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
Print
Next i
End Sub
Подскажите пожалуйста, как поставить условие обозначающее чётность/нечётность элемента матрицы.

SoftIce · 18.02.2014, 21:07

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

поставить условие обозначающее чётность/нечётность элемента матрицы.

Visual Basic
1
if e(i,j) mod 2 = 0  then

@Bar123 · 18.02.2014, 21:13 **[ТС]**

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 e(i, j) Mod 2 = 0 Then
e(i, j) = 1
End If
If e(i, j) Mod 1 = 0 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
Print
Next i
End Sub
Так?

SoftIce · 18.02.2014, 21:15

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

If e(i, j) Mod 1 = 0 Then

Нет

Visual Basic
1
If e(i, j)  Mod 2 =0 then e(i,j)=1 else e(i,j)=0

значит если делится на 2 без остатка, то есть четное.

Можно так записать в одну строку.

Матрица у Вас не заполнена.

@The trick · 18.02.2014, 21:16

Visual Basic
1
e(i, j) = Not e(i, j) And 1

@Bar123 · 18.02.2014, 21:18 **[ТС]**

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 e(i, j) Mod 2 = 0 Then
e(i, j) = 1
Else
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
Print
Next i
End Sub
Всё равно все единицы выдаёт

@The trick · 18.02.2014, 21:20

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

Всё равно все единицы выдаёт

Правильно, у тебя там нули изначально

SoftIce · 18.02.2014, 21:21

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

Всё равно все единицы выдаёт

Матрица у Вас не заполнена, то есть все значения равны 0, а 0 - четное число.

@Bar123 · 18.02.2014, 21:21 **[ТС]**

Так а надо примерно так:
0 1 0 1 0 1
0 1 0 1 0 1
0 1 0 1 0 1

SoftIce · 18.02.2014, 21:22

Сообщение от The trick

Visual Basic
1
e(i, j) = Not e(i, j) And 1

Красиво, но новичку это сложнее понять, чем мой пример.

@Bar123 · 18.02.2014, 21:24 **[ТС]**

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

Матрица у Вас не заполнена, то есть все значения равны 0, а 0 - четное число.

Т.е. надо предварительно заполнить единицами?

SoftIce · 18.02.2014, 21:30

Примерно так. Заполнение случайными числами.

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
27
28
29
30
31
32
33
34
Option Explicit
 
Private Sub Command1_Click()
   Dim m As Integer, i As Integer, j As Integer
   Dim e() As Byte
   Randomize
   m = InputBox("m=", , 5)
 
   ReDim e(1 To m, 1 To m)
 
   Print "Array:"
 
   For i = 1 To m
       For j = 1 To m
            e(i, j) = Int(Rnd * 9)
            Print e(i, j);
       Next j
       Print
   Next i
 
   Print "Результат:"
   
   For i = 1 To m
       For j = 1 To m
           If e(i, j) Mod 2 = 0 Then
               e(i, j) = 1
           Else
               e(i, j) = 0
           End If
           Print e(i, j);
       Next j
       Print
    Next i
End Sub

@Bar123 · 18.02.2014, 21:34 **[ТС]**

Извините за глупый вопрос не понял смысла этого

PureBasic
1
2
3
4
5
6
7
8
9
 Print "Array:"
 
   For i = 1 To m
       For j = 1 To m
            e(i, j) = Int(Rnd * 9)
            Print e(i, j);
       Next j
       Print
   Next i

fireday · 18.02.2014, 21:34

Bar123, это код для заполнения массива псевдослучайными числами в границах 0-9

Сообщение от The trick

Visual Basic
1
e(i, j) = Not e(i, j) And 1

Пожалуйста поведай логику такого выражения

SoftIce · 18.02.2014, 21:39

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

Извините за глупый вопрос не понял смысла этого

Это заполнение массива случайными числами и тут же вывод его на печать. Можно, конечно, заполнить вручную, но это долго и нудно, я - пас

@The trick · 18.02.2014, 21:40

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

Пожалуйста поведай логику такого выражения

Четное число - это когда LSB сброшен, нечетно - когда установлен. Инвертируя число, мы меняем ситуацию на противоположную, а лог. операция И, выделяет только LSB - чтобы результат был либо 0 либо 1

@Bar123 · 18.02.2014, 21:43 **[ТС]**

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

Это заполнение массива случайными числами и тут же вывод его на печать. Можно, конечно, заполнить вручную, но это долго и нудно, я - пас

То есть предварительно надо обязательно заполнить случайными числами?

fireday · 18.02.2014, 21:44

Bar123, нет не обязательно. это было сделано для примера (чтоб в ручную не заполнять)

Сообщение от The trick

Четное число - это когда LSB сброшен, нечетно - когда установлен. Инвертируя число, мы меняем ситуацию на противоположную, а лог. операция И, выделяет только LSB - чтобы результат был либо 0 либо 1

Все равно не понял
Можно более детально, и не на примере 0 и 1
На примере 25

Visual Basic
1
2
3
4
5
Dim a As Byte
 
  a = 25
  a = Not a And 25
  Label1.Caption = a

Выходит при А=25 будет 0, при 0 будет 25
Если написать "a = Not a And 20" вернет 4, если "a = Not a And 19" вернет 2
// что такое LSB ?

@The trick · 18.02.2014, 21:44

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

То есть предварительно надо обязательно заполнить случайными числами?

Господи, откуда вы беретесь такие? Ты задание сначала нормально дай хотя бы, кроме тебя ео никто не знает.

@Bar123 · 18.02.2014, 21:48 **[ТС]**

Я может не понимаю смысла задания, но разве матрица не должна получится вида
0 1 0 1
0 1 0 1
0 1 0 1

Добавлено через 1 минуту

Сообщение от The trick

Господи, откуда вы беретесь такие? Ты задание сначала нормально дай хотя бы, кроме тебя ео никто не знает.

Задание уже полностью изложено в начале темы, что я поделаю, если нам так формулируют задачу?
Повторю:. Разработать информационную технологию, позволяющую заменить чётные значения элементов матрицы на единицу, а нечетные – на нуль. Размерность матрицы произвольная и задаётся вводом.

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Bar123 7 / 0 / 0 Регистрация: 26.11.2013 Сообщений: 20

	Заполнение матрицы, чётные значения эл-тов = единица, нечётные = ноль 18.02.2014, 21:03. Показов 2793. Ответов 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 Print Next i End Sub Подскажите пожалуйста, как поставить условие обозначающее чётность/нечётность элемента матрицы. 0

@Bar123 7 / 0 / 0 Регистрация: 26.11.2013 Сообщений: 20
	18.02.2014, 21:13 [ТС]
	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 e(i, j) Mod 2 = 0 Then e(i, j) = 1 End If If e(i, j) Mod 1 = 0 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 Print Next i End Sub Так? 0

@Bar123 7 / 0 / 0 Регистрация: 26.11.2013 Сообщений: 20
	18.02.2014, 21:18 [ТС]
	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 e(i, j) Mod 2 = 0 Then e(i, j) = 1 Else 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 Print Next i End Sub Всё равно все единицы выдаёт 0

@Bar123 7 / 0 / 0 Регистрация: 26.11.2013 Сообщений: 20
	18.02.2014, 21:21 [ТС]
	Так а надо примерно так: 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0

Заполнение матрицы, чётные значения эл-тов = единица, нечётные = ноль

Решение