please see my code :
there are something wrong?how i can check if stack is empty??
NB : isi = content of stack
atas = top of stack
tumpukan is stack
function POP (var T : Tumpukan) : integer;
begin
POP := T.Isi[T.Atas];
T.Atas := dec[T.Atas];
end;
anyhelp will be appreciated..
thanks guys