Подскажите с сортировкой двумерного массива по столбцам, что-то не выходит. Вот наработка
uses crt; const nmax=100; type arr=array[0..nmax,0..nmax] of integer; var z:arr; s,i,j,buf,n,m,p:integer; begin Writeln('ВВод матрицы'); writeln('Ввод кол-вo строк'); readln(n); writeln('Ввод кол-во стоблцов'); readln(m); for i:=1 to n do begin for j:=1 to m do begin Writeln('Ввод ',i,' ',j,'элемента матрицы'); readln(z[i,j]); end; end; for j:=1 to m do begin for i:=1 to n do if z[i,j]>z[i+1,j] then begin buf:=z[i,j]; z[i,j]:=z[i+1,j]; z[i+1,j]:=buf; end; end; for i:=1 to n do for j:=1 to m do begin write(z[i,j]:4); if j=m then writeln(); end;
end.
IUnknown
3.11.2011 16:57
"Пузырек" одним циклом? Оригинально, но неправильно. Циклов должно быть 2:
for j:=1 to m do { Это - внешний цикл, перебирающий столбцы } begin { А для каждого столбца - еще 2 цикла: } for k:=1 to n do for i := n downto k+1 do if z[i-1,j]>z[i,j] then begin buf:=z[i,j]; z[i,j]:=z[i-1,j]; z[i-1,j]:=buf; end; end;
, тогда будет сортировать элементы столбца по возрастанию...
TarasBer
3.11.2011 17:04
> "Пузырек" одним циклом?
Думаю, это не специально. Потому что отступы и форматирование соблюдать надо. У тебя тоже то ли бегин пропущен, то ли енд лишний.
IUnknown
3.11.2011 17:28
Цитата
У тебя тоже то ли бегин пропущен, то ли енд лишний.
всего там хватает, просто при копировании перенеслось как-то непонятно. end должен быть на 3 символа левее...
TarasBer
3.11.2011 19:43
Вот поэтому я или обрамляю лишний раз парой begin-end, либо пишу ВЕСЬ заголовок в одну строку
for k:=1 to n do for i := n downto k+1 do if z[i-1,j]>z[i,j] then begin buf:=z[i,j]; z[i,j]:=z[i-1,j]; z[i-1,j]:=buf; end;
Про одну строку - это скорее из вредных советов, но в этом тоже есть свой смысл - весь заголовок по смыслу является одним выражением "для всех пар, для которых так-то, сделать..." Ещё вариант - не сдвигаться на 2 на if
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.