IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Опять Паскаль, вопрос!!!!
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Женский
Реальное имя: Софья

Репутация: -  0  +


Как можно сделать метод "пузырька" для двухмерной матрицы?! помогите, я замучилась писать эту прогу по ночам!!!!


--------------------
Мир- пораждение моего сознания и я верчу им, как мужчиной :-)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 4)
сообщение
Сообщение #2


Гость






Уточни, как должна производиться сортировка? Каждая строка (или столбец) отдельно, или "сквозная" (сортировать ВСЕ элементы матрицы)?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 3
Пол: Женский
Реальное имя: Софья

Репутация: -  0  +


сквозная. сортировать все элементы. вот вортировка по строкам, что делать дальше не знаю! надо запихать в 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.


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



--------------------
Мир- пораждение моего сознания и я верчу им, как мужчиной :-)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






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

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

Переезжаем в "Задачи"
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





Группа: Пользователи
Сообщений: 3
Пол: Женский
Реальное имя: Софья

Репутация: -  0  +


идо этого я додумалась... даже работает более того!(это меня шокировала больше всего) но всю отсортировать не получается. хотя ясно, что там что-то простое должно быть. а может, я просто с бегинами и ендами перепутала, как обычно glare.gif smile.gif


--------------------
Мир- пораждение моего сознания и я верчу им, как мужчиной :-)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 3:36
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name