Помощь - Поиск - Пользователи - Календарь
Полная версия: Опять Паскаль
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
What_Ever
Как можно сделать метод "пузырька" для двухмерной матрицы?! помогите, я замучилась писать эту прогу по ночам!!!!
volvo
Уточни, как должна производиться сортировка? Каждая строка (или столбец) отдельно, или "сквозная" (сортировать ВСЕ элементы матрицы)?
What_Ever
сквозная. сортировать все элементы. вот вортировка по строкам, что делать дальше не знаю! надо запихать в for, но как и что не могу понять!
uses crt;
var a:array[1..100,1..100] of integer;
i,j,n,k,l,m,b,t:integer;
begin
randomize;
clrscr;
writeln('vvedite n');
readln(n);
writeln('vedite m');
readln(m);
for i:=1 to n do
for j:=1to m do
a[i,j]:=random(100)-50;
for i:=1 to n do
begin
for j:=1 to m do
write (' ',a[i,j]:3);
writeln;
end;
for i:=1 to m do
begin
for b:=1 to n-1 do
for j:=1 to m do
if a[j,b]>a[j,b+1] then
begin
t:=a[j,b];
a[j,b]:=a[j,b+1];
a[j,b+1]:=t;
end;
end;
writeln;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
write (' ',a[i,j]:3);
writeln;
end;
readln;
end.


М
теги....
мисс_граффити

volvo
Вот "сквозная сортировка по столбцам": Сквозная сортировка

Для строк надо чуть-чуть изменить...

Переезжаем в "Задачи"
What_Ever
идо этого я додумалась... даже работает более того!(это меня шокировала больше всего) но всю отсортировать не получается. хотя ясно, что там что-то простое должно быть. а может, я просто с бегинами и ендами перепутала, как обычно glare.gif smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.