PROGRAM TUMPUKAN

{Contoh program Tumpukan Contoh 4}

Program pop_push;

uses wincrt;

const elemen = 255; {batas maximum karakter}

type s255 = string [elemen];

tumpukan = record

isi : s255;

atas: 0..elemen;

end;

var T       : tumpukan;

    w       : char;

    kalimat : s255;

    atas    : 0..elemen;

    i,j                 :integer;

procedure awal (var T : tumpukan);

begin

T. Atas := 0;

end;

procedure push (var T : tumpukan;X : char);

begin

T.Atas := T.Atas+1;

T.Isi[T.Atas] :=X;

end;

function pop (var T : tumpukan) :char;

begin

pop := T.Isi[T. Atas];

T.atas := T.atas-1;

end;

begin {program utuama}

clrscr;

{melakukan proses push}

writeln ('Masukan Kalimat');

read(kalimat);

writeln;

for i := 1 to length (kalimat) do

push (T, kalimat [i]);

write ('Elemen yang di push : ',kalimat);

Writeln;

readln;

{melakukan proses pop}

for i:= 1 to length (kalimat) do

push (t, kalimat [i]);

writeln;

writeln ('hasil akhrir push dibaca dengan pop : ');

{menampilkan hasil proses pop}

for j := 1 to length (kalimat) do

begin

w := pop (T);

write(w);

end;

readln;

end.