Поменять местами

IIaJIbI4 · 24.11.2009, 12:33

Помогите пожалуйста.... Очень нужно
В матрице A (M,N) поменять местами элементы k-стороки и (k+1) - ой строки. k+1<=M.

Vladimir_S · 24.11.2009, 12:44

Цитата:

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

Помогите пожалуйста.... Очень нужно
В матрице A (M,N) поменять местами элементы k-стороки и (k+1) - ой строки. k+1<=M.

Ну так в чем проблема? Создаете дополнительный массив X(N), в него копируете k-тую строку, затем элементам k-той строки присваиваете значения элементов k+1-й строки, а элементам k+1-й - значения из массива X.
А программу пишите-ка самостоятельно. Потому что на чем еще учиться, как не на таких абсолютно элементарных задачках?

Long Cat · 24.11.2009, 16:54

Можно обойтись одним циклом:

Код:

for i:=1 to k do
begin
   t:=a[i,k];
   a[i,k]:=a[i,k+1];
   a[i,k+1]:=t;
end

Vladimir_S · 24.11.2009, 17:42

Цитата:

Сообщение от Long Cat

Можно обойтись одним циклом:

Код:

for i:=1 to k do
begin
   t:=a[i,k];
   a[i,k]:=a[i,k+1];
   a[i,k+1]:=t;
end

Можно и так. Но с другой стороны, введение одномерного массива позволяет обойтись вообще без циклов:

Код:

TYPE
 AR=ARRAY[1..N] of INTEGER;
VAR
 X:AR;
 A:ARRAY[1..M] of AR;
...
 X:=A[k];
 A[k]:=A[k+1];
 A[k+1]:=X;

Но это ладно, программистские изыски. Хорошо бы товарищ хоть как-то решил задачку. Главное, чтобы самостоятельно.

24.11.2009, 12:33	#1 (permalink)
IIaJIbI4 Новичок Регистрация: 24.11.2009 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Поменять местами Помогите пожалуйста.... Очень нужно В матрице A (M,N) поменять местами элементы k-стороки и (k+1) - ой строки. k+1<=M.

24.11.2009, 16:54	#3 (permalink)
Long Cat Banned Регистрация: 01.09.2009 Сообщений: 4,396 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 2544	Можно обойтись одним циклом: Код: for i:=1 to k do begin t:=a[i,k]; a[i,k]:=a[i,k+1]; a[i,k+1]:=t; end

24.11.2009, 12:33
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Найдены схожие обсуждения, рекомендую ознакомиться Ошибка в элементарной программе, поменять местами буквы в строке Поменять местами k-ю и n-ю строки матрицы Поменять видеокарту Как поменять Linux на Windows XP?

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070