Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.05.2010, 22:55   #1
bandit_andrei
 
Регистрация: 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.


Вопрос: Как исправить код чтобы сортировка проходила верно. При сортировке по данному алгоритму максимальный элемент столбца саменяетсо на НУЛЬ.

Заранее благодарен!
bandit_andrei вне форума Ответить с цитированием
Старый 01.06.2010, 20:21   #2
bandit_andrei
 
Регистрация: 31.05.2010
Сообщений: 3
По умолчанию

НЕ ГУСТО тут с помошью...
bandit_andrei вне форума Ответить с цитированием
Старый 05.06.2010, 21:22   #3
bandit_andrei
 
Регистрация: 31.05.2010
Сообщений: 3
По умолчанию

СПАСИБО помогли на другом форуме
bandit_andrei вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сортировать список 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