двухмерный массивы

@virux · Регистрация: 15.03.2010

Author24 — интернет-сервис помощи студентам

дана матрицы A (M, N) задача ,переместить ряды матрице K раза вниз.

пробавал и неполучилось если можете помогите.
кароче мне нужна только строчка с перемещением остольное я фсе сделал.

@*~<`PIK`>~* · 15.03.2010, 23:00

вот я тут создал матрицу рендомно забил ее и переместил на K строк вниз. Выбереш то что тебе нужно.

Delphi

var
  Form1: TForm1;
  i,j,k:integer;
  mas:array[1..100,1..10] of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
For i:=1 to 50 do
For j:=1 to 10 do
mas[i,j]:=Random(100)+1;//забивание массива любыми числами от 1 до 100
 
For i:=50 downto 1 do
For j:=1 to 10 do
mas[i+k,j]:=mas[i,j];//само перемещение
 
For i:=1 to k do
For j:=1 to 10 do
mas[i,j]:=0;//замена 0 тех строк которые остались в начале после перемещения
end;

@virux 2 / 2 / 1 Регистрация: 15.03.2010 Сообщений: 109
		1
	двухмерный массивы 15.03.2010, 19:17. Показов 992. Ответов 1 Метки нет (Все метки) дана матрицы A (M, N) задача ,переместить ряды матрице K раза вниз. пробавал и неполучилось если можете помогите. кароче мне нужна только строчка с перемещением остольное я фсе сделал. 0

	15.03.2010, 23:00

двухмерный массивы

Решение