отсортировать матрицу по заданному столбцу |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
отсортировать матрицу по заданному столбцу |
magicmagic |
27.11.2014 0:30
Сообщение
#1
|
Группа: Пользователи Сообщений: 1 Пол: Мужской Репутация: 0 |
Помогите решить сию проблему написал программу сортировки матрицы по заданному столбцу с использованием двойного динамического массива, выдает ошибку exitcode=201 не пойму почему. Помогите.
Код var i,j,n,t,m:integer; a:array of array of real; k:real; begin Write('Введите размерность матрицы '); readln(n);readln(m); SetLength(a,n,m); for i:=0 to n-1 do for j:=0 to m-1 do readln (a[i,j]); readln(t); for i:=0 to n-2 do for j:=0 to n-i do if a[j,t]>a[j+1,t] then begin k:=a[j,t]; a[j,t]:=a[j+1,t]; a[j+1,t]:=k; end; writeln ('отсортированный массив '); for i := 1 to n do begin for j:=1 to n do write(a[i,j],' '); writeln; end; readln; end. Сообщение отредактировано: magicmagic - 27.11.2014 0:31 |
Федосеев Павел |
27.11.2014 21:29
Сообщение
#2
|
Бывалый Группа: Пользователи Сообщений: 298 Пол: Мужской Реальное имя: Федосеев Павел Репутация: 8 |
Если выполнять пошагово, то ошибка 201 возникнет при сортировке, в момент, когда i=0, j=n-1 и при сравнении в строке
if a[j,t]>a[j+1,t] then begin будет обращение к несуществующему элементу a[n, t]. Лучше организуй циклы так for i := 0 to n - 1 do for j := 0 to n - 2 - i do И кроме этого, при обмене ты ограничиваешься обменом элементов, а не строки. Сообщение отредактировано: Федосеев Павел - 27.11.2014 21:57 |
Текстовая версия | 22.09.2024 21:40 |