задача про сортировки, ..переполнение стэка Опции

[zzq]

Народ, помогите пажалуста прогу сделать(TP7)..
1. объясните почему при сортировке массива включением и быстрым методами у меня переполняется стэк, как это исправить??
2. а в двоичном поиске пишет, что элемент находится на нулевой позиции..

З.ы. Паскаль начал изучать совсем недавно, поэтому сложные алгоритмы подробно(по возможности) опишите..
Свои версии проги кидайте на мыло: <...> ..Заранее спасибо!!
З.з.ы. Господа модераторы, не серчайте и не судите строго, если что не так..

Это по-твоему форум или доска объявлений? Правила читал?

Сообщение отредактировано: volvo - 12.12.2005 18:05

[volvo]

Не в стеке дело...

У тебя просто процедура быстрой сортировки (я пока только ее проверил) не совсем корректно написана, и зацикливается... Вот тебе пример НЕзацикливающейся процедуры Quick:

Procedure Quick(Var sorted: mas;
          min, max: integer);

  Function Incr(Var x: Integer): Integer;
    Begin Inc(x); Incr := x End;
  Function Decr(Var x: Integer): Integer;
    Begin Dec(x); Decr := x End;

  Procedure SwapIndex(i, j: Integer);
    Var T: Integer;
    Begin
      T := sorted[i]; sorted[i] := sorted[j]; sorted[j] := T;
    End;

  Var
    i: Integer;

  Procedure qSort(pLow, pHigh: Integer);
    Var
      iHi, iLo: Integer;
      T: Integer;
    Begin
      If pLow < pHigh Then
        Begin
          iLo := pLow;
          iHi := pHigh + 1;
          T := sorted[pLow];

          While True Do
            Begin
              While sorted[Incr(iLo)] < T Do ;
              While sorted[Decr(iHi)] > T Do ;

              If iLo < iHi Then
                SwapIndex(iLo, iHi)
              Else Break
            End;

          SwapIndex(pLow, iHi);
          qSort(pLow, iHi - 1);
          qSort(iHi + 1, pHigh);
        End;
    End;

  Begin
    qSort(min, max);
  End;

Подставь ее вместо своей и будет тебе счастье...

Чуть позже посмотрю и остальные методы...

P.S. Читай Правила Форума (пункт 1.12)