Все о матрице, Все о матрице Опции

[Edelana]

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

Я пробовала, но что то не очень получается. Немного с диагоналями вот только разобралась.

Код

program Z_8;
uses crt;
const n=10;
var a:array[1..n,1..n] of integer;
   g,p,i,j:integer;
begin
textbackground(0);
clrscr;
randomize;

for i:=1 to n do
 for j:=1 to n do
 a[i,j]:=random(2);
 for i:=1 to n do begin
 for j:=1 to n do
   begin
   if i=j then textcolor(10) else textcolor(7);
   if j=n+1-i then textcolor(12);
   write( a[i,j]:3);
   end;
   writeln;
end;

textcolor(7);
for i:=1 to n do begin p:=p+a[i,n+1-i]; end;
writeln('  summa pobochnoi diagonali= ',p);
for i:=1 to n-1 do begin g:=g+a[i,i]; end;
writeln('  summa glavnoi   daigonali= ',g);
readkey;
end.

Мне ничего решать не надо. Я хочу сама научиться, просто объясните, как делать(как и от чего зависит) и желательно на примерах, своих, но по теме.
Только не говорите чтоб по форуму искала и факи читала. Я там была. Это так сказать основы или готовые программы в которых не могу разобраться,а мне нужна практика и принцип решения.

Заранее всем огромное спасибо.
Код в теги...

[hiv]

:yes: Прошу прощения у всех! :yes: Лоханулся я однако... Старый стал...

[Edelana]

:yes:  Прошу прощения у всех!  :yes: Лоханулся я однако... Старый стал...

j:=2;
jj:=5;
for i:=1 to n do buf[i]:=a[i,j];
for i:=1 to n do a[i,j]:=a[i,jj];
for i:=1 to n do a[j,jj]:=buf[i];

меняю столбцы, с 5-ым что тo не то
в чем ошибка и почему?

volvo
только там не просто s, а s[i,j] т.к.
type mas=array[1..n,1..n] of integer;
var s:mas;

а если nXm и m кратно n, то есть есть массив
1 2 3 4 5 6 7 8
2 2 2 2 6 6 6 6
3 3 3 3 7 7 7 7
4 4 4 4 8 8 8 8

нуно поменять следущие диагонали:
1 2 3 4 с 4 2 3 4
5 6 7 8 с 8 6 7 8

как тут лучше и проще поступить?

[volvo]

только там не просто s, а s[i,j] т.к.
type mas=array[1..n,1..n] of integer;
var s:mas;

Вот именно это hiv и попытался объяснить зачем там массив? Он просто не нужен, Вам же надо просто поменять 2 значения местами... А значит, хватит и одного числа...

Код

j:=2;
jj:=5;
for i:=1 to n do buf[i]:=a[i,j];
for i:=1 to n do a[i,j]:=a[i,jj];
for i:=1 to n do a[i,jj]:=buf[i];
(* внимательнее с индексами !!! раньше было a[J,jj]:=buf[i] *)

[Edelana]

Вот именно это hiv и попытался объяснить зачем там массив? Он просто не нужен, Вам же надо просто поменять 2 значения местами... А значит, хватит и одного числа...

а как на счет задачи от 07:16 PM ?

то есть как тут переходить на следущие диагонали
а менять диагонали одинаковым методом