VPF::сортировка элементов матрицы - Форум программистов

igorx86

Дата 27.3.2010, 15:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 8.10.2006

Репутация: нет
Всего: нет

Доброго времени суток!

Дана матрица вида

Код

нужно чтобы было

Код

Данный код почему-то не работает

Код


for i:=0 to 4 do begin
    for k:=0 to 4 do begin
       if m[i+1,k]<m[i,k] then begin
           c:=m[i+1,k];
           m[i+1,k]:=m[i,k];
           m[i,k]:=c;
       end;
    end;
  end;

подскажите в чем может заключаться ошибка

Заранее спасибо!

Демо

Дата 27.3.2010, 16:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 7
Всего: 50

Цитата(igorx86 @ 27.3.2010, 15:03

)

подскажите в чем может заключаться ошибка

За один проход во внутреннем цикле ты же не можешь отсортировать 5 элементов.

--------------------

Grag

Дата 27.3.2010, 16:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 22.12.2007
Где: Красноярск

Репутация: нет
Всего: нет

Цитата(igorx86 @ 27.3.2010, 15:03)

Доброго времени суток!

Дана матрица вида

Код

нужно чтобы было

Код

Данный код почему-то не работает

Код


for i:=0 to 4 do begin
    for k:=0 to 4 do begin
       if m[i+1,k]<m[i,k] then begin
           c:=m[i+1,k];
           m[i+1,k]:=m[i,k];
           m[i,k]:=c;
       end;
    end;
  end;

подскажите в чем может заключаться ошибка

Заранее спасибо!

Первый цикл нужно сделать от 0 до 3, иначе в строке 3 выйдешь за границы массива.
Затем в этих циклах ты делаешь только сортировку строк, а в самой строке символы не тусуешь...

profesiachuvak

Дата 27.3.2010, 17:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 283
Регистрация: 7.11.2009
Где: Беларусь, Минск

Репутация: 1
Всего: 4

Цитата(Grag @ 27.3.2010, 16:52

)

Первый цикл нужно сделать от 0 до 3, иначе в строке 3 выйдешь за границы массива.

Почему? Это ж матрица 5*5. Цикл от 0 до 4 вполне корректен.

Добавлено через 1 минуту и 13 секунд
Хотя похоже Вы правы, он ведь там ещё 1 добавляет.

--------------------

Закон Мерфи :если есть вероятность того, что какая-нибудь неприятность может случиться, то она обязательно произойдет.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »