Квадратная матрица порядка 2n - VB

  1. Дана действительная квадратная матрица порядка 2n. Получить новую матрицу, переставляя ее блоки размера nЧn крест-накрест.


textual

Код к задаче: «Квадратная матрица порядка 2n - VB»

Private Sub Command1_Click()
Dim A(1 To 20, 1 To 20), B(1 To 20, 1 To 20) As Integer, i As Integer, j As Integer
Cls
N = InputBox("Введите размер квадратной матрицы", , 4)
Print: Print
Print "      Матрица A": Print
'Создание исходной матрицы А
For i = 1 To N
For j = 1 To N
If (i >= 1 And i <= N / 2) And (j >= 1 And j <= N / 2) Then A(i, j) = 1
If (i >= 1 And i <= N / 2) And (j >= N / 2 + 1 And j <= N) Then A(i, j) = 2
If (i >= N / 2 + 1 And i <= N) And (j >= 1 And j <= N / 2) Then A(i, j) = 3
If (i >= N / 2 + 1 And i <= N) And (j >= N / 2 + 1 And j <= N) Then A(i, j) = 4
Print "    "; A(i, j);
Next j
Print: Print
Next i
' Создание матрицы В с переставленными блоками
Print: Print
Print "      Матрица B": Print
For i = 1 To N
For j = 1 To N
If (i >= 1 And i <= N / 2) And (j >= 1 And j <= N / 2) Then B(i, j) = A(N / 2 + i, N / 2 + j)
If (i >= 1 And i <= N / 2) And (j >= N / 2 + 1 And j <= N) Then B(i, j) = A(N / 2 + i, j - N / 2)
If (i >= N / 2 + 1 And i <= N) And (j >= 1 And j <= N / 2) Then B(i, j) = A(i - N / 2, j + N / 2)
If (i >= N / 2 + 1 And i <= N) And (j >= N / 2 + 1 And j <= N) Then B(i, j) = A(i - N / 2, j - N / 2)
Print "    "; B(i, j);
Next j
Print: Print
Next i

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

12   голосов, оценка 4.250 из 5



Похожие ответы
  1. Задана матрица 1 2 2 1 2 1 1 2 2 1 1 2 1 2 2 1 а) ввести ее в двумерный массив I; б) элементы побочной диагонали заменить 0; в) подсчитать количество элементов массива, которые равны 2; г) вывести это количество и исходный массив на экран в виде таблицы.

  1. Определить является ли целочисленная матрица симметричной относительно главной диагонали. При отсутствии симметрии заменить элементы на минимальный из них. Сформировать матрицу 7х7 элементов, заполненную согласно схеме. Вывести ее на экран, развернув на 90 градусов по часовой стрелке.

  1. Как поменять, чего добавить, чтобы вектор стоял, как матрица, по виду, и не прыгал (закиньте в VB, сразу поймете) Вот код:

  1. Здравствуйте! У меня есть такая задача: Напишите программу, которая меняет строку A со строкой B местами и выводит полученную матрицу на экран. Можете написать "базовым языком"? За ранее благодарен!Добавлено через 2 минуты Я пытаюсь через 3 переменную решить задачу.Добавлено через 4 минуты Можно ли так задать матрицу?

  1. Даны два целых числа I, J и файл вещественных чисел, содержащий ненулевую часть нижнетреугольной матрицы матрицы (по строкам). Вывести элемент матрицы, расположенный в I-й строке и J-м столбце (строки и столбцы нумеруются от 1). Если требуемый элемент находится в нулевой части матрицы, то вывести 0;если элемент отсутствует, то вывести -1.Добавлено через 1 час 38 минут Я уже сделал, вот может пригодится кому

  1. Дана матрица F(3,4) из целых чисел. Если сумма первых индексов чётных элементов меньше суммы вторых индексов нечётных элементов, то заменить положительные элементы нулями, иначе поменять местами вторую и последнюю строки матрицы. Полученную матрицу вывести.

  1. Подскажите пожалуйста, как это решается? Подсчитать число положительных элементов, лежащих выше побочной диагонали и записать их в массив С подряд с конца. Заранее спасибо.

  1. Даны два файла вещественных чисел с именами Sa и Sb, содержащие элементы прямоугольной матрицы А и В (по строкам) , причем первый элемент каждого файла содержит количество столбцов соответствующей матрицы. Создать фаил той же структуры с именем Sc, содержащий элементы произведения А*В. Если матрицы А*В нельзя перемножить то оставить файл Sc пустым???