Сформировать новый квадратный массив, переставив 4 блока размера n*n первого массива - VB

  1. Сформировать и вывести на экран массив из 2n*2n случайных элементов. Сформировать новый квадратный массив,переставив 4 блока размера n*n первого массива по часовой стрелке.


textual

Код к задаче: «Сформировать новый квадратный массив, переставив 4 блока размера n*n первого массива - VB»

Dim a() As Integer, b() As Integer
Form1.Cls
n = InputBox("n")
ReDim a(1 To 2 * n, 1 To 2 * n), b(1 To 2 * n, 1 To n * 2)
Randomize
For i = 1 To 2 * n
For j = 1 To 2 * n
 a(i, j) = Int(Rnd(1) * 10)
 Print a(i, j); vbTab;
Next j
Print
Next i
 
Print
 
For i = 1 To n
For j = 1 To n
 b(i, j) = a(i + n, j)
 b(i, j + n) = a(i, j)
 b(i + n, j + n) = a(i, j + n)
 b(i + n, j) = a(i + n, j + n)
Next j
Next i
 
For i = 1 To 2 * n
For j = 1 To 2 * n
 Print b(i, j); vbTab;
Next j
Print
Next i

СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 3.167 из 5



Похожие ответы
  1. Всем здравствуйте Просьба подсказать следующее: В окне формы: - при нажатии клавиши "+" на цифровой части клавиатуры, добавлялся новый TextBox - но при этом чтобы "+" никуда не ставился - проблема Новый TextBox у меня добавляется, но в поле заносится "+"

  1. Напишите программный код на VB для формирования двумерного массива следующего вида: 1 2 3 4 5 2 3 4 5 6 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9 Вот получилось что-то примерное, но не правильное.

  1. Помогите пожалуйста. Код почему-то не работает Из массива целых случайных чисел X=x(i), i=(1...n). Получить массив с элементами большими удвоенного минимального.

  1. Дан строковый файл. Создать новый строковый файл, в котором строки из исходного файла располагались бы в лексикографическом порядке, то есть по возрастанию кодов их символов, начиная с первого символа.

  1. Дана действительная матрица А(N,M), в которой все элементы отличны от нуля. Сформировать новую матрицу путем обнуления всех элементов исходной матрицы на главной диагонали и ниже нее.

  1. Доброго времени суток, уважаемые ситуации. Такая задача (Visual Basic 6.0): Из имеющегося одномерного массива из 20 элементов сформировать двумерный массив размерностью 5×4. Я ввожу в инпутбокс 20 элементов массива, затем разделяю их с помощью функции Split. Затем следуют два цикла (для переменной i - строка, j - столбец). Внутри второго нужно присваивать элементу одномерного массива индекс двумерного. В целом представляю, как это сделать. Но на практике - ничего не выходит. Огромнейшая просьба: напишите пожалуйста код решения. Заранее премного благодарен!Добавлено через 1 час 47 минут Сделал вот так, по-кривому. Вводится отдельно каждый элемент одномерного массива и из них строится новый двумерный 5х4

  1. Сформировать с помощью функции RND массив их 120 элементов. Найти все простые числа. Построить график и нанести их на числовую ось в любом масштабе в пределах экрана.

  1. 1. Написать программу, в которой вначале по запросам вводятся: а) размерность (с проверкой правильности) и б) элементы одномерного целочисленного массива. Выбрать в массиве все отрицательные элементы, сформировать новый массив и выдать его элементы. Если массив не содержит отрицательных элементов, вы-дать сообщение: " Массив не содержит отрицательных элементов". PS если не трудно прикрепите исходники проекта файлом, спасибку тыкну))

  1. Требуется помощь...Не бесплатно) Договоримся Случайным образом формируется 20 случайных чисел (из диапозона 0-10) с помощью math.random(). Вывести их в виде матрицы 4х5 и найти max из второй строки.