STACK ( Tumpukan )

-à Adalah tumpulan data yang seolah-olah ada data di atas data lain.

-à Suatu metode untuk Input dan hapus di dalam memori komputer.

Konsep utama dalam STACK adalah LIFO ( Last In First Out ).

Algoritma:

1. Input/tambah data
• Jika ada input maka no stack/no tumpukan yang semula 0 akan tambah 1 demi 1 sampai maksimal tumpukan.

2. Pengambilan data

· Jika ada pengambilan data maka data dipindahkan di variabel lain contohnya temp. Dan posisi tumpukannya yang semula maksimal akan berkurang 1 demi 1 sampai posisi 0 kembali.

1. Deklarasi STACK

Type

Const

Max = 5;

Nama record = Record

Data : type data;

Top : byte;

End;

Nama_array = ARRAY [1..max] of Nama record;

Var

STACK : nama Array;

1. Operasi pada STACK

· CREATE

Membuat stack baru yang masih kosong.

Procedure create;

Begin

Stack.top:=0;

End;

· FULL

Untuk memeriksa apakah stack sudah penuh atau belum.

Fuction full:bolean;

Begin

Stack.top:=max;

End;

· PUSH

Menambah sebuah elemen ( data ) kedalam stack

Syarat: tidak bisa dilakukan jika stack sudah penuh.

Procedure push ( input:string );

Begin

If not full then

Begin

Stack.top:=stack.top;

Stack.data:=input;

End;

End;

· EMPTY

Fuction empty: bolean;

Begin

Empty:=false;

If top:=0 then empty:=true;

End;

· POP

Mengambil elemen teratas dari stack.

Syarat: Stack tidak boleh kosong.

Procedure Pop ( elemen:string );

Begin

If not empty then

Begin

Elemen:=stack.data;

Stack.top:=top – 1;

End;

End;