Вопрос № 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
