Версия для печати темы

Автор: -Dimon- 26.12.2006 16:34

Помогите пожалуйста отсортировать матрицу в заданом диапазоне индексов.

Автор: мисс_граффити 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:=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 26.12.2006 18:35

ОК! СПАСИБО большое мисс_граффити!!!