Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
Nivon

Повернуть матрицу на 90 градусов по часовой стрелке и вывести результат на экран

13.02.2011, 21:43. Показов 2014. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1. Дана матрица N x N, состоящая из натуральных чисел. Повернуть ее на 90 градусов по часовой стрелке и вывести результат на экран.

2. Дана матрица N x N, состоящая из натуральных чисел. Зеркально отразить ее элементы относительно главной диагонали. Вывести результат на экран.

3. Дана матрица N x N, состоящая из натуральных чисел. Сформировать одномерный массив из:
а) сумм каждого столбца матрицы;
б) минимальных значений элементов каждой строки матрицы;
в) значений элементов матрицы, расположенных на главной диагонали.

Помогите пожалуйста.
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
13.02.2011, 21:43
Ответы с готовыми решениями:

Повернуть матрицу на 90 градусов по часовой стрелке и вывести результат на экран
Помогите решить))) Дана квадратная матрица n x n, состоящая из натуральных чисел. Повернуть её на 90 градусов по часовой стрелке и...

Матрицу повернуть на 90 градусов по часовой стрелке на C++
Содержимое квадратной матрицы A(n,n) повернуть на 90 градусов по часовой стрелке, считая центром поворота центр симметрии матрицы.

Матрицу повернуть на 90 градусов по часовой стрелке на C#
Содержимое квадратной матрицы A(n,n) повернуть на 90 градусов по часовой стрелке, считая центром поворота центр симметрии матрицы.

1
1255 / 705 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
13.02.2011, 23:28
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

2)
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CLS
INPUT "vvedite n"; n
DIM a(n, n)
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT "vvedite a("; i; ","; j; ")"
        INPUT a(i, j)
NEXT: NEXT
CLS
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT a(i, j);
NEXT: PRINT: NEXT
PRINT STRING$(80, 196)
FOR i = 2 TO n: FOR j = 1 TO i - 1
        SWAP a(i, j), a(j, i)
NEXT: NEXT
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT a(i, j);
NEXT: PRINT: NEXT
Добавлено через 11 минут
3)
QBasic/QuickBASIC
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
CLS
INPUT "vvedite n"; n
DIM a(n, n), b(n)
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT "vvedite a("; i; ","; j; ")"
        INPUT a(i, j)
NEXT: NEXT
CLS
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT a(i, j);
NEXT: PRINT: NEXT
PRINT STRING$(80, 196)
FOR j = 1 TO n: s = 0: FOR i = 1 TO n
        s = s + a(i, j)
NEXT: b(j) = s: NEXT
PRINT "a)"
FOR i = 1 TO n
    PRINT b(i);
    b(i) = 0
NEXT
PRINT
FOR i = 1 TO n: min = a(i, 1): FOR j = 1 TO n
        IF a(i, j) < min THEN min = a(i, j)
NEXT: b(i) = min: NEXT
PRINT "b)"
FOR i = 1 TO n
    PRINT b(i);
    b(i) = 0
NEXT
PRINT
FOR i = 1 TO n
    b(i) = a(i, i)
NEXT
PRINT "c)"
FOR i = 1 TO n
    PRINT b(i);
    b(i) = 0
NEXT
1)
Добавлено через 16 минут
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
INPUT "vvedite n"; n
DIM a(n, n), b(n, n)
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT "vvedite a("; i; ","; j; ")"
        INPUT a(i, j)
NEXT: NEXT
CLS
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT a(i, j);
NEXT: PRINT: NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO n \ 2: FOR j = i TO n - i
        x = a(i, j)
        a(i, j) = a(n - j + 1, i)
        a(n - j + 1, i) = a(n - i + 1, n - j + 1)
        a(n - i + 1, n - j + 1) = a(j, n - i + 1)
        a(j, n - i + 1) = x
NEXT: NEXT
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT a(i, j);
NEXT: PRINT: NEXT
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
13.02.2011, 23:28
Помогаю со студенческими работами здесь

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

Повернуть матрицу D размерности N x M на 90 градусов по часовой стрелке
Нужно написать код программы... но я со всем запутался пока писал.. Нужно выполнить любое задание из представленных на картинке...прошу...

Повернуть квадратную матрицу на 90 градусов по часовой стрелке
повернуть квадратную матрицу на 90 градусов по часовой стрелке

Повернуть квадратную матрицу на 90 градусов по часовой стрелке
повернуть квадратную матрицу размером n*n на 90 градусов по часовой стрелке

Повернуть квадратную матрицу на 90 градусов по часовой стрелке
Повернуть квадратную матрицу на 90 градусов по часовой стрелке


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru