Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 27.06.2020
Сообщений: 50

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

27.11.2020, 12:54. Показов 1449. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дана действительная квадратная матрица порядка 2N. Получить новую матрицу, переставляя ее блоки размера N*N, как показано на рисунке:

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

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

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

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

1
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
27.11.2020, 15:30
Лучший ответ Сообщение было отмечено qawsedrf000 как решение

Решение

Pascal
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
const nmax=5;
var a:array[1..2*nmax,1..2*nmax] of integer;
    n,i,j:integer;
    x:integer;
begin
repeat
write('Размер половины матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
for i:=1 to 2*n do
 begin
  for j:=1 to 2*n do
   begin
    a[i,j]:=10*i+j;
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to n do
for j:=1 to n do
 begin
  x:=a[i,j];
  a[i,j]:=a[n+i,n+j];
  a[n+i,n+j]:=x;
  x:=a[i,n+j];
  a[i,n+j]:=a[n+i,j];
  a[n+i,j]:=x;
 end;
writeln('Перестановка блоков крест-накрест:');
for i:=1 to 2*n do
 begin
  for j:=1 to 2*n do
  write(a[i,j]:4);
  writeln;
 end;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
27.11.2020, 15:30
Помогаю со студенческими работами здесь

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

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

Получить новую матрицу, переставляя блоки исходной на 1 шаг по часовой стрелке
Сформировать целочисленную квадратную матрицу А(6,6). Получить новую матрицу В(6,6), переставляя ее...

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

Получить новую матрицу, переставляя блоки исходной
const n = 3; type Telement = byte; Tvector = array of Telement; Tmatrix_part = 1..4; //...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru