Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Упорядочивания матрицы

Автор: KreN.del 14.12.2006 22:30

Требования:
1)Как console apllication
2)Использовать, пока только то что прошли, а тоесть массивы и циклы smile.gif
Задача:
Дана целочисленная матриц А(n,m).Упорядочить по возрастанию элементы каждого столбца матрицы.

Автор: мисс_граффити 14.12.2006 22:37

Поиск+FAQ

Автор: KreN.del 18.12.2006 4:29

Ребят вот какой-то код наваял.. Ошибка в просчете появляется лишь в некоторых столбцах...
Немогли ли вы мне баг мой найти?


type
TDar=array of integer;
TDarr=array of TDar;
var
x:TDarr;
i,j,n,m,d,max,imax,c,z:integer;
begin
write('kol-vo ctroc=');
readln(n);
write('kol-vo ctolbcov=');
readln(m);
setlength(x,n,m);
for i:=0 to n-1 do
for j:=0 to m-1 do
read(x[i][j]);
for j:=0 to m-1 do
for i:=0 to n-1 do
for d:=1 to n-1 do
begin
max:=x[0][0];
imax:=0;
for c:=0 to n-d do
if(x[c][j]>max)then
begin
max:=x[c][j];
imax:=c;
end;
x[imax][j]:=x[n-d][j];
x[n-d][j]:=max;
end;
//вывод построчно
for i:=0 to n-1 do
begin
writeln;
for j:=0 to m-1 do
write(x[i][j],' ');
end;
readln;
readln;
end.


Автор: T4x 11.05.2007 10:08

Не пользуйся read ом