Вопрос № 69065: Всех с Новым годом!
Мне срочно нужен кусок программы на паскале.
В думерном массиве отсортировать нечётные столбцы по возрастанию и чётные по убыванию.
Помогите пожалуста, очень очень надо.
..
Вопрос № 69.065
Всех с Новым годом!
Мне срочно нужен кусок программы на паскале.
В думерном массиве отсортировать нечётные столбцы по возрастанию и чётные по убыванию.
Помогите пожалуста, очень очень надо.
Отправлен: 29.12.2006, 19:14
Вопрос задал: POSTAL (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Verena
Здравствуйте, POSTAL!
For k=1 to m do {индекс столбца}
Begin
for i:=1 to n-1 do {индексы строк}
for j:=i+1 to n do
If k mod 2=0 then
Begin
if V[i,k] < V[j,k] then {по убыванию}
Begin
tmp:= V[i,k];
V[i,k]:= V[j,k];
V[j,k]:= tmp;
End;
End else
Begin
if V[i,k] > V[j,k] then {по возрастанию}
Begin
tmp:= V[i,k];
V[i,k]:= V[j,k];
V[j,k]:= tmp;
End;
End;
End;
Удачи)
--------- Эта история - не для истории, понимаешь?
Ответ отправила: Verena (статус: 3-ий класс)
Ответ отправлен: 29.12.2006, 19:45
Отправить вопрос экспертам этой рассылки
Приложение (если необходимо):
* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.
Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.
Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.