Program Pascal : Stack / Tumpukan

Berikut ini adalah contoh penggunaan Stack / Tumpukan untuk membalikkan string yang diinputkan dari piranti masukan/keyboard.

{Judul Program}

program balik_kalimat;

uses wincrt;

{Deklarasi}

const elemen=255;

type S255=string[elemen];

     Tumpukan=record

                isi:S255;

                atas:integer;

              end;

var

   T:Tumpukan;

   i:integer;

   Kalimat:S255;

{Prosedur dan Fungsi}

procedure Awalan(var S:Tumpukan);

begin

     S.atas:=0;

end;

procedure PUSH(var S:Tumpukan; d:char);

begin

     if S.atas=elemen then

        write('PENUH')

     else

         begin

            S.atas:=S.atas+1;

            S.isi[S.atas]:=d;  

         end;

end;

function POP(var S:Tumpukan):char;

begin

     POP:=S.isi[S.atas];

     S.atas:=S.atas-1;

end;

{Program Utama}

begin

     clrscr;

     ...
     ...
     ...

Silahkan download program lengkap stack1.zip atau stack1.txt

Tampilan output :