stack -pascal

konsep stack

 

dengan record sbb :

type  tipestack=record;

data :array[1..makstack] of integer;

top: integer;

end;

proses yang ada :

1. inisialisasi

* S.top:=0;

2. push

cek penuh tidak

*S.top:=S.top+1;

*S.data[S.top]:=x

3.pop

cek kosong tidak

*x:=S.data[S.top]

*S.top:=S.top-1

4.KOsong

if(S.top=0) then kosong:= true else kosong:=false;

5.Penuh

penuh:=(top:=makStack) dst..