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

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

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

> нужно дорешать задачу на сортировку
AlexSt
сообщение 20.05.2007 6:37
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 38
Пол: Мужской
Реальное имя: Алексей

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


Дан двумерный массив целых чисел, содержащий n строк и m столбцов. Упорядочить массив по возрастанию элементов k-го столбца.

program sort_n29;
var a:array[1..100,1..100] of integer;
    i,j,n,k,m,j1,l,min,b:integer;
begin readln(n,k);
      for i:=1 to n do
      for j:=1 to k do
            readln(a[i,j])
      readln(j1);
      for i:=n downto 1 do
          begin min:=a[i,j1];
                for l:=1 to i-1 do
                if min>a[i,j1] then
                   begin for m:=1 to n do
                         begin b:=a[m,j1];
                               a[m,j]:=a[m,j];
                         min:=a[i,j1];

Что делать делать дальше?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 2)
MAXXX
сообщение 20.05.2007 9:57
Сообщение #2


В поисках Занаду
*

Группа: Пользователи
Сообщений: 17
Пол: Мужской
Реальное имя: Андрей Максай

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


Ты чегото нето вообще пишешь. к-номер столбца, а не размер таблицы, в первом цикле должны быть м и н.
Что такое джейл?Или у тебя н-н,м-к,а к соответоствует джейл? Воодщем, непонятно.Водщем я бы порекомендовал писать так:
Код

Var n,m,k,i,j:Integer;
      a:array[1..100,1..100] of Integer;
Procedure swap(i,j:Integer);
Var w,k:Integer;
begin
For k:=1 to m do
begin
w:=a[i,k];
a[i,k]:=a[j,k];
a[j,k]:=w;
end;
end;
{Menyaet mestani 2 stroki i i j}
begin
Readln(n,m);
For i:=1 to n do
For j:=1 to m do
Read(a[i,j]);
Readln(k);
For i:=1 to n-1 do
For j:=i+1 to n do
If a[i,k]>a[j,k] then Swap(i,j);  
For i:=1 to n do
begin
For j:=1 to m do
Write(a[i,j],' ');
Writeln;
end;
end.

Была использована сортировка пузырьком

Сообщение отредактировано: MAXXX - 20.05.2007 9:59
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
AlexSt
сообщение 20.05.2007 19:01
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 38
Пол: Мужской
Реальное имя: Алексей

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


MAXXX, СПАСИБО всё работает!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 

- Текстовая версия 28.07.2025 1:51
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"