Отзеркаливание по диагонали (Pascal)

[darkline]

Есть двумерный массив A:=[n,n].
Как сделать диагональ цветной( диагональ проходит из нижнего левого угла до верхнего правого) и как отзеркалить массив по диагонали, а затем поставить его рядом?

Выглядеть должно как-то так:

1 2 3 | 9 6 3
4 5 6 | 8 5 2
7 8 9 | 7 4 1

p.s. Заранее спасибо!

[Serge_Bliznykov]

а что не получается то?
отзеркалить элементарно парой простых циклов.
Вы хотите отзеркаленные данные записать в исходный массив? или записать в новый массив? или просто вывести на экран, ничего не записывая в массив(ы) ?

Какой Pascal ?
для отображения в Turbo Pascal удобно использовать библиотеку CRT - там есть и перемещение курсора в любую заданную точку DOS экрана и изменения цвета букв, цвета фона ?

в чём трудности?

[rubius2008]

подключить модуль crt
использовать textcolor(<цвет>); это чтоб цвет менять, write и writeln для вывода в нужном виде
отзеркаливание:

for i:=1 to n-1 do for j:=1 to n-i do a[i,j]:=a[n-(j-1),n-(i-1)];

[darkline]

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

а что не получается то?
отзеркалить элементарно парой простых циклов.
Вы хотите отзеркаленные данные записать в исходный массив? или записать в новый массив? или просто вывести на экран, ничего не записывая в массив(ы) ?

Какой Pascal ?
для отображения в Turbo Pascal удобно использовать библиотеку CRT - там есть и перемещение курсора в любую заданную точку DOS экрана и изменения цвета букв, цвета фона ?

в чём трудности?

Трудность в том, что я не могу правильно отзеркалить массив (как на моём примере), а также правильно задать цвет диагонали.
Отзеркаленный массив неважно куда записывать, главное чтоб на выходе их можно было бы оба увидеть.
А стоит у меня free pascal.

[Serge_Bliznykov]

Зеркалирование Вам уже rubius2008 написал.

и про изменение цвета он же уже тоже написал.

Давайте Ваши попытки (ваш код, который Вы написали, где пытаетесь вывести массив, выделив цветом диагональ), ибо неясно, что у Вас не получается собственно!

[darkline]

 program matrix;
uses crt;
const n=3;
var i,j: integer;
a1: array [1..n,1..n] of integer;
begin
textcolor(lightgray);
clrscr;
randomize;
for i:=1 to n do
 for j:=1 to n do
  a1[i,j]:=random(30)-10;
    for i:=1 to n do
      begin
        writeln;
        for j:=1 to n do
         begin
           if n+1=j+i then
           textcolor(yellow)
           else
           textcolor(lightgray);
           write(a1[i,j]:4);

         end;
      end;
   writeln;
   begin
     for i:=1 to n-1 do
       begin
         writeln;
         for j:=1 to n-i do
           begin
             a1[i,j]:=a1[n-(j-1),n-(i-1)];
             write(a1[i,j]:4);
           end;

       end;
   end;
end.

спасибо конечно, rubius2008, за предоставленный алгоритм, но он у меня как то не до конца работает...

[Serge_Bliznykov]

а так?

...
   {вывод зеркального массива}
   begin
     for i:=1 to n do
       begin
         writeln;
         for j:=1 to n do
           begin
             if j<= (n-i) then
                write(a1[n-(j-1),n-(i-1)]:4)
             else
                write(a1[i,j]:4);
           end;

       end;
   end;
   readln;

p.s. только обратите внимание - я изменение исходного массива убрал.
Поэтому, если Вам нужно не просто вывести отзеркаленный массив,
а сохранить изменения в исходном массиве, добавьте в веточку if j<= (n-i) then
запись зеркального значения a1[i,j] := ....
т.е. код будет выглядеть так:

         for j:=1 to n do
           begin
             if j<= (n-i) then
                a1[i,j] := a1[n-(j-1),n-(i-1)]:4);
             write(a1[i,j]:4);
           end;

[darkline]

хмм... а так он копирует элементы из нижней диагонали и копирует их в верхнюю.
Если допустим заполнить массив от 1 до 9 то получается так:

9 6 3
8 5 6
7 8 9

я так понимаю нужно скопировать элементы над диагональю и потом как то вставить их под диагональ, только как это сделать?

[Serge_Bliznykov]

я так понимаю нужно скопировать элементы над диагональю и потом как то вставить их под диагональ, только как это сделать?

посмотрел исходный пост, понял, что Вам надо....

попробуйте:

   {вывод зеркального массива}
   begin
     for i:=1 to n do
       begin
         writeln;
         for j:=1 to n do
            write(a1[n-(j-1),n-(i-1)]:4);
       end;
   end;
   readln;

[darkline]

Вот теперь получилось! Спасибо большое!
Вот полный текст программы, может кому пригодится:

program matrix;
uses crt;
const n=3;
var i,j: integer;
a1: array [1..n,1..n] of integer;
begin
textcolor(lightgray);
clrscr;
randomize;
for i:=1 to n do
 for j:=1 to n do
  a1[i,j]:=random(30)-10;
    for i:=1 to n do
      begin
        writeln;
        for j:=1 to n do
         begin
           if n+1=j+i then
           textcolor(yellow)
           else
           textcolor(lightgray);
           write(a1[i,j]:4);

         end;
      end;
   writeln;
   begin
     for i:=1 to n do
       begin
         writeln;
         for j:=1 to n do
           begin
           if n+1=j+i then
           textcolor(yellow)
           else
           textcolor(lightgray);


              write(a1[n-(j-1),n-(i-1)]:4);

           end;

       end;
   end;
   readln;
end.