|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.05.2010, 22:55 | #1 |
Регистрация: 31.05.2010
Сообщений: 3
|
Сортировать нечётные столбцы....
Задание: Отсортировать нечётные столбцы массива по возрастанию.
Решение: : uses crt; label a1; var a:array[1..50,1..50] of integer; m,n,i,j,k,tmp:integer; v,o: text; f: boolean; begin clrscr; randomize; writeln('Vvedite razmery matricy:'); write(' Kolichestvo strok m='); repeat readln(m); until m in [1..50]; write(' Kolichestvo stolbcov n='); repeat readln(n); until n in [1..50]; writeln; Assign(v,'in.txt'); Assign(o,'ou.txt'); rewrite(v); rewrite(o); for j:=1 to m do begin for i:=1 to n do begin a[i,j]:=random(100); write(v, a[i,j]:7); end; writeln(v, ' '); end; writeln; reset(v); for j:=1 to m do for i:=1 to n do begin read(v, a[i,j]); end; for i:=1 to n do begin if odd(i) then begin repeat f:=false; for j:=1 to m do begin if (a[i,j+1]<a[i,j]) then begin f:=true; tmp:=a[i,j]; a[i,j]:=a[i,j+1]; a[i,j+1]:=tmp; end; end; until not f; end; end; for j:=1 to m do begin for i:=1 to n do begin write(o, a[i,j]:7); end; writeln(o, ' '); end; close(v); close(o); readln end. Вопрос: Как исправить код чтобы сортировка проходила верно. При сортировке по данному алгоритму максимальный элемент столбца саменяетсо на НУЛЬ. Заранее благодарен! |
01.06.2010, 20:21 | #2 |
Регистрация: 31.05.2010
Сообщений: 3
|
НЕ ГУСТО тут с помошью...
|
05.06.2010, 21:22 | #3 |
Регистрация: 31.05.2010
Сообщений: 3
|
СПАСИБО помогли на другом форуме
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сортировать список | Vladsgs | Microsoft Office Excel | 4 | 18.05.2010 08:39 |
Сортировать список пузырьковым методом | Lunatik | Помощь студентам | 3 | 13.05.2009 13:30 |
сортировать по фамилии два листа | Kotik123 | Microsoft Office Excel | 2 | 23.04.2009 18:52 |
Сортировать результаты вычислений | Jana | Microsoft Office Excel | 2 | 03.11.2008 08:36 |
Сортировать по имени | Манжосов Денис :) | Помощь студентам | 2 | 25.04.2008 10:12 |