MEMBUAT PROGRAM MEMBALIK KATA DENGAN METODE TUMPUKAN

 berikut sampel program membalik kata dengan metode tumpukan atau stack....


program membalik_kata;

uses wincrt;

const elemen = 255;

type s255 = string[elemen];

tumpukan = record

isi:s255;

atas: 0..elemen;

end;

var t: tumpukan;

    i: integer;  

    kata: s255;
    ulang : string;

procedure awalan(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

clrscr;

writeln;

awalan(t);

writeln('PROGRAM MEMBALIK KATA DENGAN METODE TUMPUKAN');

writeln('*==========================================*');

writeln;

repeat

write('ketik kata: '); readln(kata);



clrscr;

writeln('kata sebelum dibalik : ',kata);

writeln;

write('Kata setelah dibalik : ');

for i:= 1 to length(kata) do

push(t, kata[i]);

for i:= 1 to length(kata) do

write(pop(t)); writeln;

writeln;


writeln;

writeln ( ' * * * Mau Coba lagi ??? [Y / T] * * * ');readln (ulang);

writeln;

 clrscr;

until (ulang = 'T')OR (ulang = 't');

writeln ('  ^_^ TERIMA KASIH ^_^');

writeln;

writeln (' Fb    : irhamnaa latu ');

writeln (' email : irhamnaa.latu@gmail.com ');

readln;

clrscr;

end.

berikut hasil eksekusinya....

 next..