Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите плз с сортировкой матрицы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
-Dimon-
Помогите пожалуйста отсортировать матрицу в заданом диапазоне индексов.
мисс_граффити
как отсортировать?
по строкам, столбцам, отдельным элементам? по убыванию, возрастанию? что сравнивать - суммы, произведения, наибольшие/наименьшие элементы?
телепаты на новогодних каникулах.
Dimon-fx

Сортировать по строкам, по убыванию, методом обмена, чтобы все елементы сортировались в заданом диапазоне индексов. Ввести диапазон и по этому диапазону оно должно сортировать.
мисс_граффити
напечатай по-человечески задание! как тебе его дали, дословно.
или приведи пример: что на входе, что получится на выходе.

З.Ы. обменных сортировок много. можно пользоваться любой?
Dimon-fx
Ниче что по украински?

Відсортувати одновимірний масив за спаданням методом обміну.
Всі елементи масива, що знаходяться в заданому діапазоні індексів.
volvo
Ниче, если я на Lisp-е тебе программу приведу? Или на Forth-е?

P.S.
Цитата
одновимірний масив
как-то не вяжется с
Цитата
Помогите плз с сортировкой матрицы
Dimon-fx
mega_chok.gif
мисс_граффити
volvo, эт я виновата. Попросила дословно smile.gif
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:=1 to n do
begin
ar[i]:=random(10);
write(ar[i],' ');
end;
writeln;
writeln('vvedite granicy');
readln(nachalo);
readln(konec);
For i := nachalo To konec Do
For j := konec DownTo i+1 Do
If ar[Pred(j)] < ar[j] Then
Begin
T := ar[Pred(j)];
ar[Pred(j)] := ar[j];
ar[j] := T
End;
for i:=1 to n do
write(ar[i],' ');
End.

Допиши сам проверку, чтобы nachalo<konec
nachalo,konec<n
nachalo,konec>1

Dimon-fx
ОК! СПАСИБО большое мисс_граффити!!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.