Получить новую матрицу, переставляя ее блоки размера п х п по часовой стрелке, начиная с блока в левом верхнем углу

@Дмитрий291225 · Регистрация: 28.12.2011

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

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

@Казанский · 26.01.2012, 11:14

Допустим блоки расположены так

12
43

В новый массив п х п переписываете блок 1, потом блок 4 переписываете на место 1, 3->4, 2->3, массив на место 2.
Вычисление индексов массивов - простая арифметика.

@Дмитрий291225 · 26.01.2012, 11:19 **[ТС]**

А как можно код программы написать????

@KoGG · 26.01.2012, 16:24

... ...

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Option Base 1
DefInt I-J
Sub Main()
    Const n = 4
    Dim M(2 * n, 2 * n) As Single, i, j
    For i = 1 To 2 * n
        For j = 1 To 2 * n
            M(i, j) = Rnd() * 200 - 100
            Debug.Print Format(M(i, j), "  #00.0; -#00.0");
        Next j
        Debug.Print
    Next i
    Call Shift_Squares_Clockwise(M(), n)
    Debug.Print "Преобразованная матрица:"
    For i = 1 To 2 * n
        For j = 1 To 2 * n
            Debug.Print Format(M(i, j), "  #00.0; -#00.0");
        Next j
        Debug.Print
    Next i
End Sub
 
Sub Shift_Squares_Clockwise(M() As Single, n As Integer)
    Dim i, j
    ReDim A(n, n) As Single
    For i = 1 To n
        For j = 1 To n
            A(i, j) = M(i, j)
        Next j
    Next i
    For i = 1 To n
        For j = 1 To n
            M(i, j) = M(i + n, j)
        Next j
    Next i
    For i = 1 To n
        For j = 1 To n
            M(i + n, j) = M(i + n, j + n)
        Next j
    Next i
    For i = 1 To n
        For j = 1 To n
             M(i + n, j + n) = M(i, j + n)
        Next j
    Next i
    For i = 1 To n
        For j = 1 To n
            M(i, j + n) = A(i, j)
        Next j
    Next i
End Sub

@Дмитрий291225 · 26.01.2012, 16:41 **[ТС]**

Ого. Такая большая программа. Спасибо большое.

@Дмитрий291225 · 23.02.2012, 14:00 **[ТС]**

Казанский,
Программа готовая.
Из этого код программы:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Option Base 1
DefInt I-J
Sub Main()
    Const n = 2
    Dim M(2 * n, 2 * n) As Single, i, j
    For i = 1 To 2 * n
        For j = 1 To 2 * n
            M(i, j) = Rnd() * 20 - 10
            Debug.Print Format(M(i, j), "  #0; -#0");
        Next j
        Debug.Print
    Next i
    Call Shift_Squares_Clockwise(M(), n)
    Debug.Print "Преобразованная матрица:"
    For i = 1 To 2 * n
        For j = 1 To 2 * n
            Debug.Print Format(M(i, j), "  #0; -#0");
        Next j
        Debug.Print
    Next i
End Sub
 
Sub Shift_Squares_Clockwise(M() As Single, n As Integer)
    Dim i, j
    ReDim a(n, n) As Single
    For i = 1 To n
        For j = 1 To n
            a(i, j) = M(i, j)
        Next j
    Next i
    For i = 1 To n
        For j = 1 To n
            M(i, j) = M(i + n, j)
        Next j
    Next i
    For i = 1 To n
        For j = 1 To n
            M(i + n, j) = M(i + n, j + n)
        Next j
    Next i
    For i = 1 To n
        For j = 1 To n
             M(i + n, j + n) = M(i, j + n)
        Next j
    Next i
    For i = 1 To n
        For j = 1 To n
            M(i, j + n) = a(i, j)
        Next j
    Next i
End Sub

Как можно вынести код отображения матрицы их процедуры main в отдельную процедуру.

@KoGG · 23.02.2012, 20:06

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Option Base 1
DefInt I-J
Sub Main()
    Const n = 2
    Dim M(2 * n, 2 * n) As Single, i, j
    For i = 1 To 2 * n
        For j = 1 To 2 * n
            M(i, j) = Rnd() * 20 - 10
        Next j
    Next i
    Print_Matrix M(), 2 * n, 2 * n
    Call Shift_Squares_Clockwise(M(), n)
    Debug.Print "Преобразованная матрица:"
    Print_Matrix M(), 2 * n, 2 * n
End Sub
 
Sub Print_Matrix(M() As Single, Strok As Integer, Stolbcov As Integer)
    Debug.Print
    For i = 1 To Strok
        For j = 1 To Stolbcov
            Debug.Print Format(M(i, j), "  #0; -#0");
        Next j
        Debug.Print
    Next i
End Sub
 
Sub Shift_Squares_Clockwise(M() As Single, n As Integer)
    Dim i, j
    ReDim a(n, n) As Single
    For i = 1 To n
        For j = 1 To n
            a(i, j) = M(i, j)
        Next j
    Next i
    For i = 1 To n
        For j = 1 To n
            M(i, j) = M(i + n, j)
        Next j
    Next i
    For i = 1 To n
        For j = 1 To n
            M(i + n, j) = M(i + n, j + n)
        Next j
    Next i
    For i = 1 To n
        For j = 1 To n
             M(i + n, j + n) = M(i, j + n)
        Next j
    Next i
    For i = 1 To n
        For j = 1 To n
            M(i, j + n) = a(i, j)
        Next j
    Next i
End Sub

@Апострофф · 23.02.2012, 21:28

А это что, не из VBA?

Visual Basic
1
Selection = Application.WorksheetFunction.Transpose(Selection)

Dragokas · 24.02.2012, 02:29

Да, кубик перевернется, но элементы столбцов еще нужно будет отразить зеркально:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Tiksi()
Dim AR(), CC%, RC%, x%, Rubik As Range
CC = Selection.Columns.Count
RC = Selection.Rows.Count
Set Rubik = Selection.Resize(CC, RC)
Rubik = Application.Transpose(Selection)
For x = 1 To IIf(CC > RC, CC, RC)
    If CC > RC Then If Intersect(Selection.Columns(x), Rubik) Is Nothing Then Selection.Columns(x).ClearContents
    If CC < RC Then If Intersect(Selection.Rows(x), Rubik) Is Nothing Then Selection.Rows(x).ClearContents
Next
Rubik.Select
For x = 1 To RC \ 2
    AR = Application.Transpose(Selection.Columns(x))
    Selection.Columns(x) = Selection.Columns(RC + 1 - x).Value
    Selection.Columns(RC + 1 - x) = Application.Transpose(AR())
    'Erase AR
Next
End Sub

Заполнить в экселе квадрат или прямоугольник с данными, выделить его, нажать ALT+F8, Enter.

@Дмитрий291225 · 24.02.2012, 15:44 **[ТС]**

KoGG,
Мне исправили в код программе вместо

Visual Basic
1
Dim M(2 * n, 2 * n) As Single, i, j

поставили

Visual Basic
1
Dim M(0 To 2 * n - 1, 2 * n) As Single, i, j

Пошла ошибка M(i, j) = Rnd() * 20 - 10 индекс выходит за пределами допустимого диапазона.
Что это??

Новые блоги и статьи Все статьи Все блоги /
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .

@Дмитрий291225 22 / 0 / 0 Регистрация: 28.12.2011 Сообщений: 88

	Получить новую матрицу, переставляя ее блоки размера п х п по часовой стрелке, начиная с блока в левом верхнем углу 26.01.2012, 11:00. Показов 2140. Ответов 9 Метки нет (Все метки) Дана действительная квадратная матрица порядка 2n. Получить новую матрицу, переставляя ее блоки размера п х п по часовой стрелке, начиная с блока в левом верхнем углу. 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	26.01.2012, 11:14
	Допустим блоки расположены так 12 43 В новый массив п х п переписываете блок 1, потом блок 4 переписываете на место 1, 3->4, 2->3, массив на место 2. Вычисление индексов массивов - простая арифметика. 0

@Дмитрий291225 22 / 0 / 0 Регистрация: 28.12.2011 Сообщений: 88
	26.01.2012, 11:19 [ТС]
	А как можно код программы написать???? 0

@Дмитрий291225 22 / 0 / 0 Регистрация: 28.12.2011 Сообщений: 88
	26.01.2012, 16:41 [ТС]
	Ого. Такая большая программа. Спасибо большое. 0