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

@Newerick · Регистрация: 13.12.2016

Дан двумерный целочисленный массив. Нужно поменять друг с другом выделенные красным цветом диагонали(над половиной главной диагонали и под половиной побочной).

@Puporev · 04.01.2017, 08:33

Короче просто поменять симметрично горизонтальной оси верхний и нижний треугольники?

Pascal

uses crt;
var a:array[1..10,1..10] of integer;
    n,i,j,k,x:integer;
begin
repeat
write('Введите размер матрицы от 3 до 10 n=');
readln(n);
until n in [3..10];
randomize;
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(j>i)and(j<n-i+1)then a[i,j]:=10+random(50)
    else if(j<i)and(j>n-i+1) then a[i,j]:=50+random(50)
    else a[i,j]:=random(10);
    write(a[i,j]:3);
   end;
  writeln;
 end;
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:=a[i,j];
  a[i,j]:=a[n-i+1,j];
  a[n-i+1,j]:=x;
 end;
writeln('Обмен');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end.

@bormant · 04.01.2017, 10:38

Пожалуй, все же не треугольники, а именно части параллельных диагоналей непосредственно над главной и под побочной. То есть ещё проще.
Вот тут была похожая задачка: Поменять местами элементы половин параллельных диагоналей матрицы над главной и под побочной диагоналями
(1,2)<->(n,2), (2,3)<->(n-1,3), ...

Pascal

procedure swp(var a, b: Integer); var t: Integer; begin t:=a; a:=b; b:=t; end;
const m=7; n=m;
var
  a: array [1..m,1..n] of Integer;
...
  i:=m div 2; if i>n then i:=n;
  for i:=i downto 1 do swp(a[i,1+i],a[1+m-i,1+i]);

@Newerick · 08.01.2017, 11:52 **[ТС]**

Да, bormant вы правы. Но я вообще в этом не смыслю помогите, пожалуйста, напишите программу нужно срочно(((

@Newerick 0 / 0 / 0 Регистрация: 13.12.2016 Сообщений: 12
		1
	Поменять местами элементы половин параллельных диагоналей матрицы над главной и под побочной диагоналями 04.01.2017, 08:00. Показов 971. Ответов 3 Метки диагонали, массив pascal (Все метки) Дан двумерный целочисленный массив. Нужно поменять друг с другом выделенные красным цветом диагонали(над половиной главной диагонали и под половиной побочной). Миниатюры 0

@Newerick 0 / 0 / 0 Регистрация: 13.12.2016 Сообщений: 12
	08.01.2017, 11:52 [ТС]	4
	Да, bormant вы правы. Но я вообще в этом не смыслю помогите, пожалуйста, напишите программу нужно срочно((( 0

Опции темы