Полная версия: Двумерный массив
Подскажите пожалста как поменять местами 2 элемента двумерного массива
можно вот так (в примере целочисленного массива для 2 строк и двух столбцов)
но некрасиво
var ar: array[1..2,1..2] of integer;
var i,j: byte;
var m,n,m2,n2,b,b2:integer;
begin
for i:=1 to 2 do
begin
for j:=1 to 2 do
read(ar[i,j]);
end;
write('введите номера строк и столбцов елементов, которые нужно поменять местами');
read(m,n,m2,n2);
b:=ar[m,n];
b2:=ar[m2,n2]:
ar[m,n]:=b2;
ar[m2,n2]:=b;
for i:=1 to 2 do
begin
for j:=1 to 2 do
writeln(ar[i,j]);
end;
end.
но некрасиво
Код
var ar: array[1..2,1..2] of integer;
var i,j: byte;
var m,n,m2,n2,b,b2:integer;
begin
for i:=1 to 2 do
begin
for j:=1 to 2 do
read(ar[i,j]);
end;
write('введите номера строк и столбцов елементов, которые нужно поменять местами');
read(m,n,m2,n2);
b:=ar[m,n];
b2:=ar[m2,n2]:
ar[m,n]:=b2;
ar[m2,n2]:=b;
for i:=1 to 2 do
begin
for j:=1 to 2 do
writeln(ar[i,j]);
end;
end.
guest,
Очень интересно было бы посмотреть...
Цитата
но некрасиво
Как тогда будет красиво, не подскажешь? Очень интересно было бы посмотреть...b:=ar[m,n];Так?
ar[m,n]:=ar[m2,n2];
ar[m2,n2]:=b;
Цитата(volvo @ 1.01.2006 21:38) 
guest,
Как тогда будет красиво, не подскажешь?
Очень интересно было бы посмотреть...b:=ar[m,n];Так?
ar[m,n]:=ar[m2,n2];
ar[m2,n2]:=b;
ах, если бы я знал
мой опыт программирования составляет три недели и я подумал, что за такой код гуру закидают меня камнями но как по другому я не знаю
Цитата(volvo @ 1.01.2006 21:38)
guest,
Как тогда будет красиво, не подскажешь?
Очень интересно было бы посмотреть...b:=ar[m,n];Так?
ar[m,n]:=ar[m2,n2];
ar[m2,n2]:=b;
да, так лучше - экономим одну переменную.. по крайней мере
Всем спасибо - уже сам допёр!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.