26 Okt 12

Huh... pusing banget ngerjain program... akhirnya setelah berhari - hari... kebiasaan, kalau besoknya mau di kumpulin, pasti malam ini bisa selesainya. Ckckck... -_-

Dan inilah hasilnya ::

input :

program urutan_nama;
uses crt;
type
temp = array [1..3] of string;
var
stack : temp;
top : byte;
elemen : string[20];
i : integer;
begin
clrscr;
top :=0;
for i := 1 to 3 do
begin
write (' ',' ',i,' ',':');
readln (stack[i]);
top := top + 1;
writeln;

end;
writeln ('________________Temp________________');
for i := 3 downto 1 do
begin
writeln;
elemen := stack[i];
top := top - 1;
write (elemen);
readln;
end;
end.

Hasil :
1 : Kaka
2 : Kiki
3 : Kuku

_____________________Temp______________________

Kuku

Kiki

Kaka

Yah... supaya gak bingung - bingung bagi yang lagi pusing sama STACK PASCAL :D

Semoga esok menyenangkan ^_^