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

Узнай цену своей работы

Формулировка задачи:

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

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

textual
Листинг программы
e(i, j) = Not e(i, j) And 1

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы