Стеки как извлечь элементы???? (Delphi)

[Hylim1991]

Здравствуйте!!! Подскажите мне пожалуйста процедуру или функция для извлечения элементов стека по одному!?!?!??! можно еще и очереди, но самое важное это стек!!!

Заранее спасибо за понимание и помощь!!!!1

[Человек_Борща]

ВАЩИ НАРОБОТКИЭ!!!!!!!?????1111

[Hylim1991]

type
  //Указатель на  стека.
  ukaz = ^stek;
  //Элемент  или стека.
  stek = record
    Data : Integer;
    PNext : ukaz;
  end;

function iz_steka(var St1, PElem : ukaz) : Boolean;
begin
  Result := False;
  if St1.Pnext <> nil then
  begin
  PElem := St1;
  St1 := PElem^.PNext;
  Result := True;
  end;
end;

вот такие у меня наработки
скажите хоть правильно написано???
Почему я функцию использую? Для того чтобы в дальнейшем использовать эту функцию в цикле с предусловием, для извлечения элементов из стека и занесения их в очередь, проблема в том что это работает но не правильно...элементы очереди постоянны равны нулям

[Miha85193]

ну во первых var St1, PElem : ukaz, это я думаю лишнее).

function iz_steka(var St1, PElem : ukaz) : Boolean;

Может нужно во так?:

function iz_steka(St1, PElem : ukaz) : Boolean;

и где у вас память выделяется под эти структуры, тоже не ясно...

может быть, что St1 <> nil, но память под него не выделена...

[Hylim1991]

посмотрите пожалуйста ошибки мои, почему у меня элементы очереди нулям равны!!! буду очень признателен!!! только одно запрещено менять процедуры формирования стека и очереди!

[Stilet]

while iz_steka(Stack, PElem) do begin

А где условие завершения цикла ввода?

[Hylim1991]

условие завершения цикла ввода находиться в процедуре Form_Stack, и выглядит так while x<>0 do, пока х не равно нулю у меня происходит рекурсивный вызов процедуры Add_Stack ((формирование стека)...