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

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Сортировка ненулевых элементов.

Автор: Dexoid 5.11.2007 4:43

Такая вот задачка вроде простенькая а что то не выходит совсем. Нужно отсортировать ненулевые элементы в массиве по убыванию. То есть если у нас есть массив: 5 4 4 6 2 4 1 2 0 0 0 2 3 6 1 , то программа должна отсортировать отдельно элементы стоящие до нулей и после, оставив нули на своём месте. (6 5 4 4 4 2 1 0 0 0 6 3 2 1 ) , вся проблема для меня найтиномера этих нулевых элементов, чтоб начать сортировку следующей части массива с нужного символа. Может быть можно ещё как нибудь сделать? Прошу помощи.

Автор: Tan 5.11.2007 4:47

http://forum.pascal.net.ru/index.php?showtopic=3065 - ознакомься, по идее должно пролить свет.

Автор: Dexoid 5.11.2007 5:58

Код
Const
  n = 8;

Type
  TType = Integer;
  arrType = Array[1 .. n] Of TType;

Const
  a: arrType =
       (57, 55, 0, 0, 94, 18, 6, 67);
var i:integer;

Procedure Insert(Var source, sorted: arrType);
  Var
    i, j,l: Integer;
    x: TType;
    label bash;
  Begin
    move(source, sorted, SizeOf(arrType));
l:=1;
bash:    For i := l To n do
      Begin
        x := sorted[i];
        j := Pred(i);
        if x=0 then begin l:=l+1;goto bash;end;
        While x < sorted[j] Do
          Begin
            sorted[Succ(j)] := sorted[j]; Dec(j);
          End;
        sorted[Succ(j)] := x;
      End;
      for i:=1 to n do writeln(sorted[i]);
  End;

Var
  b: arrType;

Begin
  Insert(a, b);
End.

На большее меня не хватает)) а искуственные выходы из циклов не люблю. А по другому не знаю как. Так то вроде работает.

Автор: klem4 5.11.2007 15:19

ты результаты своей программы видел ? поставь первой строчкой {$R+}

Автор: volvo 5.11.2007 19:57

Dexoid, а ты точно правильно интерпретировал условие? Вполне могло быть и так:
исходный массив:
<5 4 4 6 2 4 1 2 0 0 0 2 3 6 1>
результат:
<6 6 5 4 4 4 3 2 0 0 0 2 2 1 1>
(то есть, нули-то остались на местах, а все остальные элементы не обращая внимания на нулевые отсортировали по невозрастанию).