Как переделать рекурсию под стек?

Question

[Alertoso]

procedure TForm1.BackTracking(k:integer;a:ta);
var i,j,o:integer;
Stack: array[1..8] of Integer;
po:boolean;
b:ta;
begin
if exitclick then exit;

repeat
if (K<Curlen) then
  Begin
    for i:=1 to curlen do
      b[i]:=Stack[i];
    for i:=1 to curlen do
    Begin
      po:=true;
      for j:=1 to k do
      Begin
        if Stack[j]=i then
          po:=false;
        if abs(Stack[j]-i)=abs(j-k-1) then
          po:=false
      End;
      if po then
      Begin
        b[k+1]:=i;
        Stack[o]:=b[k+1];
        inc(k);
        BackTracking(k+1,b);
      End;
    End;
  End
else
  Begin
    Inc(Co);
    Form1.Caption:=IntToStr(co);
    Form1.Draw(a);

    t:=GetTickCount;
    repeat
      Application.ProcessMessages;
    until (GetTickCount-t)>showtime;
    DrawGrid1.Repaint;
  End;
  inc(o);
Until o>curlen
End;

Comments

[kalapanga]

Вы зря продублировали вопрос. Всё что можно, Вам прошлый раз написали. Либо преподаватель некорректно поставил задачу, либо Вы его не поняли. Общайтесь с ним, выясняйте, что конкретно от Вас требуется.
Но в такой постановке, как сейчас, вопрос не имеет смысла. Совсем.

[Василий Банников]

Как переделать рекурсию под стек?

Какой смысл вы закладываете в данную формулировку вопроса?

[Alertoso]

kalapanga, для примера вот алгоритм quick sort, реализованный через стек:
Procedure QuickSort(var Arr: TMatrix; var PermutQuickSort: In-teger; ArrSize: Integer);
Var I, J, Mid, L, R: Integer;
S: Integer;
Stack: TStack;
{Arr - array for sorting
PermutQuickSort - variable for counting permutations
ArrSize - size of array
I, J - cycle counters
Mid - reference element
L, R - left and right borders
S - variable for accessing the stack
Stack - custom data structure}
Begin
PermutQuickSort:=0;
S:=1;
Stack[1,S]:=0;
Stack[2,S]:=ArrSize;
Repeat
L:=Stack[1,S];
R:=stack[2,S];
Dec(S);
Repeat
I:=L;
J:=R;
Mid:=Arr[(L+R) div 2];
Repeat
While Arr[I] < Mid do Inc(I);
While Mid < Arr[J] do Dec(J);
If I<=J then
Begin
Swap(Arr[J],Arr[J-1],PermutQuickSort);
Inc(I);
Dec(J)
End;
Until I>J;
If I Begin
Inc(S);
Stack[1,S]:=I;
Stack[2,S]:=R
End;
R:=J;
Until L>=R
Until S=0
End;
Вот мне нужно через этот самый Stack и сделать ту процедуру расстановки ферзей. Подскажите, пожалуйста, как необходимо сделать корректно это, очень надо

[Alertoso]

Василий Банников, ну, если я ничего не путаю, то хранить значения временно, а не переходить на ту же процедуру, как-то так, наверное

[Василий Банников]

Alertoso, я в код не вчитывался, но видимо от рекурсии можно избавиться и решить задачу циклом

[Alertoso]

Василий Банников, именно, избавиться через пользовательскую структуру данных(stack), вот это и надо

[Василий Банников]

Alertoso, ну вот вы и поняли задачу. Приступайте)

[Alertoso]

Василий Банников, ну я, конечно, попробую всё-таки сам...надеюсь, получится

[kalapanga]

Ну вот, уже лучше. Оказывается, не "переделать под стек", а реализовать с использованием класса TStack.
Все кто отвечал прошлый раз подумали прежде всего на так называемый "аппаратный" или "машинный" стек, с которым работает процессор. Вот и удивлялись, что тут переделывать, если рекурсия и так очень активно его использует.
Если честно, пример с QuickSort по-моему совсем неудачный. Здесь стек совсем не используется именно как стек -это раз. А главное это всё даже не скомпилируется, там гора ошибок.
В delphi кстати есть два класса TStack, определённые в разных модулях... Какой нужен?

[Alertoso]

kalapanga, я дико извиняюсь, но Вы можете, пожалуйста, сказать, что за они и какой лучше подойдёт для реализации перестановки ферзей?

[kalapanga]

Alertoso, Вы про два класса-то? Это System.Contnrs.TStack и System.Generics.Collections.TStack Если с Вас требуют какой-то использовать, скорее всего какой-то в лекциях/методичках/практиках разбирали. Его и надо использовать.
В справке можно про оба почитать. Скорее всего в этой задаче любой сгодится. Так уж вот вышло, что ни разу мне не встретилась задача, где бы потребовался этот класс. Поэтому готовых рекомендаций нет.

[Alertoso]

kalapanga, насчёт стека я уточнил, любой можно, насчёт разбирали - это громко сказано, уделили 1 лекцию да и всё, можете, пожалуйста, подсказать, как можно реализовать класс TStack в данной задаче?

[kalapanga]

Alertoso, Вы в разных вопросах много вариантов кода приводили. Выложите куда-нибудь Ваш конечный работающий вариант с рекурсией - только весь проект целиком. Ничего не обещаю, но может гляну.

[Alertoso]

kalapanga, сделаю это всё через пару часов, был бы очень признателен

[Alertoso]

kalapanga, здравствуйте, закинул на google диск это всё дело
https://drive.google.com/file/d/1sbBRSbPUn6JqLEV5m...

[Alertoso]

kalapanga, извините, а Вы сможете реализовать самописный стек тот через указатели(возможно, глупый вопрос, я просто со стеком действительно слабо знаком)

[kalapanga]

Я сдаюсь. Ну не вижу я, где в этой задаче структуру типа стек применить. Не нужен он здесь совсем.
Что-то высасывать из пальца, чтобы только фигурировало слово "стек" - не интересно.
Сорри!

[Alertoso]

kalapanga, вообще никак нельзя?(

[Alertoso]

kalapanga, я нашёл данную консольную программу со стеком, сможете, пожалуйста, совместить с моим кодом? Очень надо

[kalapanga]

Alertoso, обидно, что на самом деле такие бестолковые задания вам дают. Не хочется на них время тратить. Ну покажите, что Вы там нашли (выложите опять на диск какой). Если оно работает и там что-нибудь про стек есть...