for i:=n downto 1 do. for j:=1 to n do. for i:=1 to n do. for j:=n downto 1 do. for j:=1 to n do. for j:=1 to n do. if(i+j-1<n)then begin. a[i,j]:=a[n-j+1,n-i+1];. a[n-j+1,n-i+1]:=tmp; end;. for j:=1 to n do. Поменять элементы относительно главной диаг

10 класс трансформация массивов

Определить индекс

1 2 3 4 5

5 6 9 5 8

4 7 9 6 2

4 7 9 8 4

7 8 1 0 6

Какие значения имеют индексы?

A[2;4]=5

A[4;2]=7

A[5;3]=1

A[5;5]=6

A[1;3]=3

Какой индекс имеют числа? (главной диагонали)

1 6 9 8 6 – это называется элементы главной диагонали

Как их записать в общем виде? A[i,j]

Какой индекс имеют числа? (побочная диагональ)

7 7 9 5 5

Как их записать в общем виде? A[i; n-i+1]

Отображение элементов относительно оси ОХ

for i:=n downto 1 do

begin

for j:=1 to n do

begin

write(a[i,j]:3);

end;

writeln;

end;

Отображение элементов относительно оси ОY

for i:=1 to n do

begin

for j:=n downto 1 do

begin

write(a[i,j]:3);

end;

writeln;

end;

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

1 2 3 4 5

5 6 9 5 8

4 7 9 6 2

4 7 9 8 4

7 8 1 0 6

6 4 2 8 5

0 8 6 5 4

1 9 9 9 3

8 7 7 6 2

7 4 4 5 1

Листинг программы

uses crt;

var a:array[1..10,1..10]of integer;

i,j,n:byte;

tmp:integer;

begin clrscr;

write('N = '); readln(n);

for i:=1 to n do

for j:=1 to n do

read(a[i,j]);

for i:=1 to n do

for j:=1 to n do

if(i+j-1<n)then begin

tmp:=a[i,j];

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

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

writeln;

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j]:3); writeln;

end; readkey;

end.

Задания

Поменять элементы относительно главной диагонали

Поменять элементы относительно диагонали

Поменять элементы относительно осей