uses crt;
const elemen = 255;
type s255 = string[elemen];
tumpukan = record
isi:s255;
atas: 0..elemen;
end;
var t: tumpukan;
i: integer;
kalimat: s255;
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;
(*program utama*)
begin
clrscr;
awalan(t);
writeln('Tumpukan untuk membalik kalimat');
writeln('*******************************');
writeln;
write('ketik kalimat: '); readln(kalimat);
writeln('kalimat asli: ',kalimat);
writeln;
writeln('setelah operasi push dan pop');
for i:= 1 to length(kalimat) do
push(t, kalimat[i]);
for i:= 1 to length(kalimat) do
write(pop(t));
readln;
end.
const elemen = 255;
type s255 = string[elemen];
tumpukan = record
isi:s255;
atas: 0..elemen;
end;
var t: tumpukan;
i: integer;
kalimat: s255;
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;
(*program utama*)
begin
clrscr;
awalan(t);
writeln('Tumpukan untuk membalik kalimat');
writeln('*******************************');
writeln;
write('ketik kalimat: '); readln(kalimat);
writeln('kalimat asli: ',kalimat);
writeln;
writeln('setelah operasi push dan pop');
for i:= 1 to length(kalimat) do
push(t, kalimat[i]);
for i:= 1 to length(kalimat) do
write(pop(t));
readln;
end.
0 komentar:
Posting Komentar