[VB] При помощи датчика случайных чисел получить матрицу A порядка N (N – целое случайное четное число в диапазоне от 6 до 15). Поменять местами 1ую строку со 2ой, 3ью с 4ой и т.д.

[Stevo]

Здравствуйте, помогите пожалуйста решить задачу,не могу установить четность числа и поменять местами строки в матрице, заранее спасибо!

Задача:
При помощи датчика случайных чисел получить матрицу A порядка N (N – целое случайное четное число в диапазоне от 6 до 15). Поменять местами 1ую строку со 2ой, 3ью с 4ой и т.д. Вывести обе матрицы.

Sub matrica()
Dim N As Byte, A() As Byte
ReDim A(N)
Randomize Timer
N = Int(Rnd * 9 + 6)
End Sub

[сфинкс]

надеюсь поможет алгоритм qb64

randomize timer
5 n=int(6+rnd*10): if n/2<>int(n/2) then 5' моя фишка: крутящаяся строка 
dim a(n+1,n): for i=1 to n:for j=1 to n
10 a(i,j)=int(6+rnd*10): if a(i,j)/2<>int(a(i,j)/2) then 10' или проще если без чётности 
?a(i,j);:next:?:next:?:?
for i=1 to n:a(n+1,i)=a(1,i):a(1,i)=a(2,i):a(2,i)=a(n+1,i):next
for i=1 to n:a(n+1,i)=a(3,i):a(3,i)=a(4,i):a(4,i)=a(n+1,i):next
for i=1 to n:for j=1 to n:?a(i,j);:next:?:next

Результат:

 10  10  12  8  10  8
 8  6  10  12  10  6
 8  14  6  8  14  8
 6  6  12  10  8  6
 8  10  6  8  12  8
 14  14  12  14  10  12


 8  6  10  12  10  6
 10  10  12  8  10  8
 6  6  12  10  8  6
 8  14  6  8  14  8
 8  10  6  8  12  8
 14  14  12  14  10  12

учитывая: "чётное число в диапазоне от 6 до 15"
значит возможно без условий:
n=int(2*(3+rnd*5))

тогда код ещё проще

randomize timer:n=int(2*(3+rnd*5)):dim a(n+1,n)
for i=1 to n:for j=1 to n:a(i,j)=int(rnd*10):?a(i,j);:next:?:next:?:?
for i=1 to n:a(n+1,i)=a(1,i):a(1,i)=a(2,i):a(2,i)=a(n+1,i):next
for i=1 to n:a(n+1,i)=a(3,i):a(3,i)=a(4,i):a(4,i)=a(n+1,i):next
for i=1 to n:for j=1 to n:?a(i,j);:next:?:next

отвечаю только на вопросы автора темы и...

[Serge_Bliznykov]

Sub matrica()
Dim N As Byte, Dim A() As Byte, Tmp As Byte
Dim i As Integer,  j As Integer

Randomize Timer
N = Int(Rnd * 9 + 6)
ReDim A(N,N)
' заполнить матрицу случайными числами
for i=0 to N-1
  for j=0 to N-1
    A(i,j) =  Int(Rnd() * 100 + 1)
  next j
Next i


' обменять строки местами
for i=0 to Int(N/2)-1
  for j=0 to N-1
    Tmp = A(i*2,j)
    A(i*2,j) = A(i*2+1,j) 
    A(i*2+1,j) = Tmp
  next j
Next i


End Sub

[Stevo]

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

Sub matrica()
Dim N As Byte, Dim A() As Byte, Tmp As Byte
Dim i As Integer,  j As Integer

Randomize Timer
N = Int(Rnd * 9 + 6)
ReDim A(N,N)
' заполнить матрицу случайными числами
for i=0 to N-1
  for j=0 to N-1
    A(i,j) =  Int(Rnd() * 100 + 1)
  next j
Next i


' обменять строки местами
for i=0 to Int(N/2)-1
  for j=0 to N-1
    Tmp = A(i*2,j)
    A(i*2,j) = A(i*2+1,j) 
    A(i*2+1,j) = Tmp
  next j
Next i


End Sub

Спасибо, но можете, пожалуйста, объяснить построково логику программы, а то я пытаюсь, но никак понять не могу. И есть ли здесь проверка на четность числа?

[Serge_Bliznykov]

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

И есть ли здесь проверка на четность числа?

нет.
а зачем она нужна?
меняется i*2 строка со строкой i*2+1
т.е.
i=0 нулевая строчка меняется с первой
i=1 вторая строчка меняется с третьей
i=2 четвертая строчка меняется с пятой и т.д.

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

пожалуйста, объяснить построково логику программы

так долго и непродуктивно.
лучше спросите, какая конкретно строчка непонятна, я поясню

[сфинкс]

чётность возможно задавать

и вместо:
N = Int(Rnd * 9 + 6)

возможно задавать чётность

читаем у меня выше:
n=int(2*(3+rnd*5))

и чётность нужна для перестановок
строк нечётных n и строк чётных n+1

и чтобы понять важно комментировать самим

for i=0 to N-1 ' строки N штук 
  for j=0 to N-1 ' ячейки в строке N штук 
    A(i,j) =  Int(Rnd() * 100 + 1) ' массив А заполнен случайными 
  next j ' конец цикла  
Next i ' конец цикла  

для понимания допустим N=6 

' обменять строки местами
for i=0 to Int(N/2)-1 ' строки массива от 0 до 2 итого 3 штуки как N/2=6/2
  for j=0 to N-1 ' ячейки в строке N штук 
    Tmp = A(i*2,j) ' элемент А заменяемый 
    A(i*2,j) = A(i*2+1,j) ' замена 
    A(i*2+1,j) = Tmp ' элемент А заменяющий 
  next j ' конец цикла  
Next i ' конец цикла

[Stevo]

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

так долго и непродуктивно.
лучше спросите, какая конкретно строчка непонятна, я поясню

Вот это вот все желательно

for i=0 to N-1
  for j=0 to N-1
    A(i,j) =  Int(Rnd() * 100 + 1)
  next j
Next i


' обменять строки местами
for i=0 to Int(N/2)-1
  for j=0 to N-1
    Tmp = A(i*2,j)
    A(i*2,j) = A(i*2+1,j) 
    A(i*2+1,j) = Tmp

[Serge_Bliznykov]

это заполнение массива случайными числами от 1 до 100

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

for i=0 to N-1  цикл по переменной i от нуля до N-1
  for j=0 to N-1 цикл по переменной j от нуля до N-1
    A(i,j) =  Int(Rnd() * 100 + 1) элемент массива в i-й строке j-м столбце заполнить целым случайным числом от 1 до 100
  next j 
Next i

обменять строки местами

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

for i=0 to Int(N/2)-1 цикл по переменной i от нуля до половины массива
  for j=0 to N-1 цикл по столбцам от 0 до N-1


  это обмен двух ячеек массива местами:
    Tmp = A(i*2,j) в переменную tmp сохранить значение массива в i*2 строке и j-м столбце
    A(i*2,j) = A(i*2+1,j) в элемент массива в i*2 строке и j-м столбце записать элемента массива из следующей строки
    A(i*2+1,j) = Tmp в элемент массива следующей строки (это i*2+1 строкf и j-й столбец) записать сохранённое значение из переменной tmp

[Stevo]

А как сделать так, чтобы результат выводился в таблице и чтобы в ячейках разные числа были, а не одно?

[Serge_Bliznykov]

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

А как сделать так, чтобы результат выводился в таблице и чтобы в ячейках разные числа были, а не одно?

так:

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

это заполнение массива случайными числами от 1 до 100