Помогите пожалуйста отсортировать матрицу в заданом диапазоне индексов.
мисс_граффити
26.12.2006 16:49
как отсортировать? по строкам, столбцам, отдельным элементам? по убыванию, возрастанию? что сравнивать - суммы, произведения, наибольшие/наименьшие элементы? телепаты на новогодних каникулах.
Dimon-fx
26.12.2006 17:24
Сортировать по строкам, по убыванию, методом обмена, чтобы все елементы сортировались в заданом диапазоне индексов. Ввести диапазон и по этому диапазону оно должно сортировать.
мисс_граффити
26.12.2006 17:33
напечатай по-человечески задание! как тебе его дали, дословно. или приведи пример: что на входе, что получится на выходе.
З.Ы. обменных сортировок много. можно пользоваться любой?
Dimon-fx
26.12.2006 17:34
Ниче что по украински?
Відсортувати одновимірний масив за спаданням методом обміну. Всі елементи масива, що знаходяться в заданому діапазоні індексів.
volvo
26.12.2006 17:44
Ниче, если я на Lisp-е тебе программу приведу? Или на Forth-е?
P.S.
Цитата
одновимірний масив
как-то не вяжется с
Цитата
Помогите плз с сортировкой матрицы
Dimon-fx
26.12.2006 17:47
мисс_граффити
26.12.2006 18:05
volvo, эт я виновата. Попросила дословно Dimon-fx
Program Bubble;
uses crt;
const n=10;
var ar: array[1..n] of integer;
i, j, T, nachalo, konec: Integer;
Begin
clrscr;
randomize;
for i:=1to n dobegin
ar[i]:=random(10);
write(ar[i],' ');
end;
writeln;
writeln('vvedite granicy');
readln(nachalo);
readln(konec);
For i := nachalo To konec DoFor j := konec DownTo i+1DoIf ar[Pred(j)] < ar[j] ThenBegin
T := ar[Pred(j)];
ar[Pred(j)] := ar[j];
ar[j] := T
End;
for i:=1to n do
write(ar[i],' ');
End.
Допиши сам проверку, чтобы nachalo<konec nachalo,konec<n nachalo,konec>1
Dimon-fx
26.12.2006 18:35
ОК! СПАСИБО большое мисс_граффити!!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.