Program pop_push;
Uses crt;
Const elemen = 225; {batas maksmimum karakter}
Type s255 = string [elemen];
Tumpukan = record
Isi : s255;
Atas : 0 ..elemen;
End;
Var t : tumpukan;
W , tambah : char;
Kalimat:s255;
I,j : integer;
Procedure awalan(var 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 utama}
clrscr;
{melakukan proses push}
writeln('Masukkan kalimat = ');
read(kalimat);
for i:=1 to length(kalimat) do
push(t, kalimat[i]);
writeln('Elemen yang di-push = ',kalimat);
readln;
{proses tambah kata}
writeln('Masukkan kata tambahan');readln(tambah);
{melakukan proses pop}
for i:=1 to length(kalimat) do
push(t,kalimat[i]);
writeln;
writeln('Hasil akhir push dibaca dengan pop + kata tambahan : ');
write(tambah);
{menampilkan hasil proses pop}
for j:= 1 to length(kalimat) do
begin
w:=pop(t);
write(w);
end;
readln;
end.
