kalapanga, извините, а Вы сможете реализовать самописный стек тот через указатели(возможно, глупый вопрос, я просто со стеком действительно слабо знаком)
1. А я смогу добавить fixedcols и fixedrows на DrawGrid?
2. Разве в таком случае у меня не будет идти от 0 до нужного кол-ва - 1? Можете, пожалуйста, объяснить этот пункт
kalapanga, насчёт стека я уточнил, любой можно, насчёт разбирали - это громко сказано, уделили 1 лекцию да и всё, можете, пожалуйста, подсказать, как можно реализовать класс TStack в данной задаче?
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 и сделать ту процедуру расстановки ферзей. Подскажите, пожалуйста, как необходимо сделать корректно это, очень надо
Я решил написать шифратор по спирали, ну по спирали я уже заполнял массив, поэтому знаю, что к чему там, я так понимаю, для дешифратора нужен ключ, вот я и не совсем понимаю, из чего он должен состоять