Квадратный массив: поменять местами элементы верхней и нижней четвертей

@Викуся) · Регистрация: 16.12.2011

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

в кв.мас. выделили 4 четверти:верхняя,нижняя,правая,левая.(ог раничение-побочная и главная диагональ).

поменять местами элементы
верхней и нижней диагоналей ( симметрично относительно точки пересечения диагоналей)
верхней и правой (относительно диагоналей смежной для четвертей)

2 задачи

Добавлено через 30 секунд
не учитывать элементы расположенные на диагоналях

@Puporev · 17.07.2012, 12:21

Сообщение от Викуся)

поменять местами элементы
верхней и нижней диагоналей

Может все же четвертей?

@mamedovvms · 17.07.2012, 12:24

Pascal
1
2
3
4
5
6
7
8
смена элементов верхней и нижней четверти
for i:= 1 to n div 2 do
 for j:= i to n - i +1 do
  begin
   temp:= a[i,j];
   a[i,j]:=a[n-i+1,n-j+1];
   a[n-i+1,n-j+1]:=temp;
  end;

@Puporev · 17.07.2012, 12:27

Не по теме:

mamedovvms, Кого мы видим, кого мы лицезреем!

@mamedovvms · 17.07.2012, 12:50

Не по теме:

Да вот нашел время посетить любимый форум)))

Добавлено через 11 минут
смена элементов верхней и нижней четверти(НЕ УЧИТЫВАЯ ЭЛЕМЕНТЫ ДИАГОНАЛЕЙ)

Pascal
1
2
3
4
5
6
7
for i:= 1 to n div 2 do
 for j:= i+1 to n - i do
  begin
   temp:= a[i,j];
   a[i,j]:=a[n-i+1,n-j+1];
   a[n-i+1,n-j+1]:=temp;
  end;

Добавлено через 8 минут
2) ВЕРХНЯЯ И ПРАВАЯ

Pascal
1
2
3
4
5
6
7
for i:=1 to n div 2 do
 for j:=i+1 to n-i do
 begin
  temp:= a[i,j];
  a[i,j]:=a[n-j+1,n-i+1];
  a[n-j+1,n-i+1]:=temp:
 end;

@Puporev · 17.07.2012, 13:22

mamedovvms, Что-то ты не так переставляешь, мне кажется нужно так.

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
uses crt;
const nmax=20;
type mtr=array[1..nmax,1..nmax] of integer;
procedure Vyvod(a:mtr;n:integer);
var i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(j>i)and(j<n-i+1) then textcolor(10)
    else if(j>i)and(j>n-i+1) then textcolor(11)
    else if(j<i)and(j>n-i+1) then textcolor(12)
    else if(j<i)and(j<n-i+1)then textcolor(13)
    else textcolor(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
write('Нажмите Enter');
readln;
textcolor(15);
end;
var a,a1:mtr;
    n,i,j,k,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы от 3 до ',nmax,' n=');
readln(n);
until n in [3..nmax];
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(20);
writeln('Исходная матрица:');
Vyvod(a,n);
a1:=a;
if odd(n) then k:=n div 2
else k:=n div 2-1;
for i:=1 to k do
for j:=i+1 to n-i do
 begin
  x:=a1[i,j];
  a1[i,j]:=a1[n-i+1,j];
  a1[n-i+1,j]:=x;
 end;
writeln('Обмен верхней и нижней четвертей:');
Vyvod(a1,n);
a1:=a;
for i:=1 to k do
for j:=i+1 to n-i do
 begin
  x:=a[i,j];
  a[i,j]:=a[j,n-i+1];
  a[j,n-i+1]:=x;
 end;
writeln('Обмен верхней и правой четвертей:');
Vyvod(a,n);
end.

Добавлено через 49 секунд
Ты переставляешь блоки квадратной формы, а нужно треугольники.

@mamedovvms · 17.07.2012, 13:29

Сообщение от Puporev

Ты переставляешь блоки квадратной формы, а нужно треугольники.

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

Добавлено через 2 минуты
и к стати ты делаешь в первой части не относительно точки пересечения, а относительно строки, в которой находится точка пересечения

@Puporev · 17.07.2012, 13:31

А ты собери свой код и запусти, при обмене верхнего и нижнего треугольников уж точно не так

Pascal
1
a[i,j]:=a[n-i+1,n-j+1];

а так.

Pascal
1
 a1[i,j]:=a1[n-i+1,j];

Добавлено через 1 минуту

Сообщение от mamedovvms

ты делаешь в первой части не относительно точки пересечения

Это точно, не посмотрел...

@mamedovvms · 17.07.2012, 13:32

Сообщение от Puporev

А ты собери свой код и запусти, при обмене верхнего и нижнего треугольников уж точно не так

да я и говорю что ты то делаешь симметрично строки, где точка пересечения а я симметрично самой точки пересечения, то есть если у тебя n=5 a[1,2] поменяется с a[5,2], а должен с a[5,4]

@Puporev · 17.07.2012, 13:39

Исправил

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
uses crt;
const nmax=20;
type mtr=array[1..nmax,1..nmax] of integer;
procedure Vyvod(a:mtr;n:integer);
var i,j:integer;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(j>i)and(j<n-i+1) then textcolor(10)
    else if(j>i)and(j>n-i+1) then textcolor(11)
    else if(j<i)and(j>n-i+1) then textcolor(12)
    else if(j<i)and(j<n-i+1)then textcolor(13)
    else textcolor(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
write('Нажмите Enter');
readln;
textcolor(15);
end;
var a,a1:mtr;
    n,i,j,k,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы от 3 до ',nmax,' n=');
readln(n);
until n in [3..nmax];
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(20);
writeln('Исходная матрица:');
Vyvod(a,n);
a1:=a;
if odd(n) then k:=n div 2
else k:=n div 2-1;
for i:=1 to k do
for j:=i+1 to n-i do
 begin
  x:=a1[i,j];
  a1[i,j]:=a1[n-i+1,n-j+1];
  a1[n-i+1,n-j+1]:=x;
 end;
writeln('Обмен верхней и нижней четвертей:');
Vyvod(a1,n);
a1:=a;
for i:=1 to k do
for j:=i+1 to n-i do
 begin
  x:=a[i,j];
  a[i,j]:=a[j,n-i+1];
  a[j,n-i+1]:=x;
 end;
writeln('Обмен верхней и правой четвертей:');
Vyvod(a,n);
end.

Сообщение от mamedovvms

просто я не стал делать проверку на четное и нечетное

Тогда при

Pascal
1
for i:=1 to n div 2 do

будут входить элементы диагоналей при четном n

@mamedovvms · 17.07.2012, 13:49

не будет при четном цикл for j:=i+1 to n-1 do не пойдет, так как i+1>n-i при нужных значениях i, можешь проверить при n= 4 i=2? i+1=3? n-i =2 значит цикл не пойдет и ничего переставляться не будет

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

@Puporev · 17.07.2012, 13:50

Ну, в принципе так...

@mamedovvms · 17.07.2012, 13:54

))))))

@КонецСвета · 23.07.2012, 19:21

вот верхний и нижний треугольники

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
uses crt;
const nmax=15;
var a: array [1..nmax,1..nmax] of byte;
    n,i,j,buf: byte;
begin
readln(n);
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=j+((i-1)*n);
        write(a[i,j]:3);
        end;
    writeln;
    end;
for i:=1 to n div 2 do
    for j:=1+i to n-i do
        begin
        buf:=a[i,j];
        a[i,j]:=a[n-i+1,j];
        a[n-i+1,j]:=buf;
        end;
writeln;
for i:=1 to n do
    begin
    for j:=1 to n do
        write(a[i,j]:3);
    writeln;
    end;
readln;
end.

Сообщение от Викуся)

верхней и правой (относительно диагоналей смежной для четвертей)

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
uses crt;
const nmax=15;
var a: array [1..nmax,1..nmax] of byte;
    n,i,j,buf: byte;
begin
readln(n);
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=j+((i-1)*n);
        write(a[i,j]:3);
        end;
    writeln;
    end;
for i:=1 to n div 2 do
    for j:=1+i to n-i do
        begin
        buf:=a[i,j];
        a[i,j]:=a[j,n-i+1];
        a[j,n-i+1]:=buf;
        end;
writeln;
for i:=1 to n do
    begin
    for j:=1 to n do
        write(a[i,j]:3);
    writeln;
    end;
readln;
end.

вот зеркальное отражение через диагональ

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
uses crt;
const nmax=15;
var a: array [1..nmax,1..nmax] of byte;
    n,i,j,buf: byte;
begin
readln(n);
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=j+((i-1)*n);
        write(a[i,j]:3);
        end;
    writeln;
    end;
for i:=1 to n div 2 do
    for j:=1+i to n-i do
        begin
        buf:=a[i,j];
        a[i,j]:=a[n-j+1,n-i+1];
        a[n-j+1,n-i+1]:=buf;
        end;
writeln;
for i:=1 to n do
    begin
    for j:=1 to n do
        write(a[i,j]:3);
    writeln;
    end;
readln;
end.

Новые блоги и статьи Все статьи Все блоги /
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 через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Викуся) 2 / 2 / 3 Регистрация: 16.12.2011 Сообщений: 69

	Квадратный массив: поменять местами элементы верхней и нижней четвертей 17.07.2012, 12:14. Показов 5230. Ответов 13 Метки нет (Все метки) в кв.мас. выделили 4 четверти:верхняя,нижняя,правая,левая.(ог раничение-побочная и главная диагональ). поменять местами элементы верхней и нижней диагоналей ( симметрично относительно точки пересечения диагоналей) верхней и правой (относительно диагоналей смежной для четвертей) 2 задачи Добавлено через 30 секунд не учитывать элементы расположенные на диагоналях 0

@Puporev
	17.07.2012, 12:27
	Не по теме: mamedovvms, Кого мы видим, кого мы лицезреем! 1

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	17.07.2012, 13:49
	не будет при четном цикл for j:=i+1 to n-1 do не пойдет, так как i+1>n-i при нужных значениях i, можешь проверить при n= 4 i=2? i+1=3? n-i =2 значит цикл не пойдет и ничего переставляться не будет Добавлено через 2 минуты просто получиться что один раз внешний цикл пройдет в пустую и все 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	17.07.2012, 13:50
	Ну, в принципе так... 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	17.07.2012, 13:54
	)))))) 0