проблема со стеком

[ruslan_k1]

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

program stak;
const size=100;
uv:integer=0;
type Tstak=array[0..size-1] of word;
var stak:Tstak;
p:word;
function push_word(rec:word):boolean;
begin
if uv<size then
begin
stak[uv]:=rec;
inc(uv);
push_word:=true;
end
else
push_word:=false;
end;

function pop_word(var rec:word):boolean;
begin
if uv>0 then
begin
uv:=uv-1;
rec:=stak[uv];
pop_word:=true;
end
else
pop_word:=false;
end;

begin
push_word(5);
pop_word(p);
writeln(p);
readln;
end.

[savva]

у тебя должно быть несколько функций,push и pop задаёшь некий параметр I который называется указателем на вершину стэка.

потом при каждом сохранении в стэк а это функция push увеличиваешь параметр I.Затем когда тебе понадобилось полностью очистить стэк,то есть вывести все данные из стэка ты прописываешь цикл for I downto 0 do pop из стэка.алгоритм должен быть таков как мне кажется.

[NiCola999]

пока счетчик не будет на нуле.

а это что?

function pop_word(var rec:word):boolean;
begin
     if uv>0 then begin
          uv:=uv-1;
          rec:=stak[uv];
          pop_word:=true;
     end
     else
          pop_word:=false;
end;

[savva]

тебе в функцию надо передать параметр uv как я понимаю.а в функции push увеличивать его и сделать push процедурой да и pop наверное тоже лучше сделать процедурой.

а цикл такой

while(uv<>0) do
begin
выталкивание
end;

rec:word -а что это?

можно так попробовать

while(uv<>0) do
begin
pop_word(p);
dec(uv);
end;

[ruslan_k1]

rec - это запись, заносимая в стек

[Gambler]

procedure ClearStack;
begin
uv:=0;
end;

стек пуст.

[savva]

гамблер,ты ставишь указатель стэка на ноль,но при этом не очищаешь память.
не хорошо с твоей стороны так делать