Contoh Program INFIX Ke POSTFIX

NOTASI INFIX KE POSTFIX DANGAN BAHASA PEMROGRAMAN PASCAL

Langsung aja tanpa bahasa basinih Coding Programnya:

{********************************************
* notasi infix menjadi notasi postfix  ******
*********************************************}
program KONVERSI_INFIX_KE_POSTFIX;

uses crt;

const Max_Elemen = 255;

type S255 = string[Max_Elemen];
Tumpukan = record
Rinci : S255;
Atas : 0..Max_Elemen
end;

var Infix : S255; {* notasi infix *}
Lagi : char;

{********************************************
* Fungsi untuk menentukan valensi operator *
********************************************}
function VALENSI (Tanda_Op : char) : integer;

begin
case Tanda_Op of
'$' : VALENSI := 3; {* pangkat *}
'*', '/' : VALENSI := 2; {* kali atau bagi *}
'+', '-' : VALENSI := 1; {* plus atau minus *}
'(' : VALENSI := 0 {* kurung buka *}
end
end; {* fungsi VALENSI *}

{************************************************
* Prosedur memasukkan elemen ke dalam tumpukan *
************************************************}
procedure PUSH (var T : Tumpukan; Elemen : char);

begin
T.Atas := T.Atas + 1;
T.Rinci[T.Atas] := Elemen
end; { *** prosedur PUSH *** }
{***********************************************
* Fungsi untuk mengambil elemen dari tumpukan *
*********************************************** }
function POP (var T : Tumpukan) : char;

begin
POP := T.Rinci[T.Atas];
T.Atas := T.Atas - 1
end; { *** fungsi POP *** }

{*************************************
* Prosedur untuk melalukan konversi *
* dan mencetak hasil *
*************************************}
procedure KONVERSI_CETAK (Infix : S255);

var I : integer;
Operator : set of char;
Temp, Kar : char;
T : Tumpukan;
Test : boolean;

begin
{* Himpunan operator yang diijinkan *}
Operator := ['$']+['*']+['/']+['+']+['-'];

{* Melakukan konversi *}
for I := 1 to length(Infix) do
begin
Kar := Infix[I];

{* Kurung buka. Push ke dalam tumpukan *}
if Kar = '(' then PUSH(T, Kar)

{* Kurung tutup. Pop semua elemen tumpukan *
* dan dicetak, sampai elemen atas tumpukan *
* adalah kurung buka. Pop juga elemen ini *
* tetapi tidak perlu ditulis. *}
else if Kar = ')' then
begin
while T.Rinci[T.Atas] <> '(' do
write(POP(T):2);
Temp := POP(T)
end

{* Operator. Test valensinya terhadap *
* valensi elemen atas tumpukan. Jika *
* valensinya lebih kecil, pop elemen atas *
* tumpukan sampai valensi elemen atas *
* tumpukan lebih kecil. Push operator ini *}

else if Kar in Operator then
begin
while (T.Atas <> 0) and (VALENSI(Kar) <= VALENSI(T.Rinci[T.Atas])) do
write(POP(T):2);
PUSH(T, Kar)
end

{* Operand. Langsung dicetak. *}
else if Kar <> ' ' then
write(Kar:2)
end;

if T.Atas <> 0 then
{* Tumpukan masih isi. Pop semua elemen *
* yang masih ada dalam tumpukan *}
repeat
write(POP(T):2)
until T.Atas = 0;
end; { *** prosedur KONVERSI_CETAK *** }

{************************
*  coding Program utama *
*************************}
begin
clrscr;
gotoxy (18,1);
writeln('-----------------------------------------');
gotoxy (18,2);
writeln('| MENGUBAH NOTASI INFIX MENJADI POSTFIX |');
gotoxy (18,3);
writeln('|*******DENGAN MEMANFAATKAN STACK*******|');
gotoxy (18,4);
writeln('-----------------------------------------');
writeln;
repeat

{* Notasi infix yang akan dikonversikan *}
gotoxy (23,5);
write('Masukkan ungkapan infix = ');
readln(Infix);
gotoxy (23,7) ;
write('Ungkapan postfix        = ');

{* Melakukan konversi dan mencetak hasil *}
KONVERSI_CETAK (Infix);

writeln; writeln;
write('Akan mencoba lagi? Y(a)/T(idak): ');
readln(Lagi);
writeln
until not (Lagi in ['Y', 'y'])
end. {* program utama *}

Nih Output_nya:

STACK

STACK

            Stack secara bahasa dapat diartikan sebagai tumpakan yang dan jika diakaitkan dengan struktur data yang organisasi atau strukturnya bersifat tumpukan atau menyerupai tumpukan. Stack dalam struktu data/dalam organisasi data adalah suatu bentuk khusus dari linier list, dengan operasi penyisipan danpenghapusan dibatasi hanya pada satu sisinya, yaitu puncak stack (TOP). Elemen stack yang teratas dinotasikan sebagai TOP. Sedangkan jumlah elemen dalam Stack dapat dinotasikan., misalnya Stack S dengan S = [S1, denagn NOEL S dan NOEL S menghasilkan nilai integer, misalnya untuk Stack S = [S1,S2,S3,…,St] maka NOEL (S)=t S2,S3,…,St] maka TOP S nya adalah St. 

Operasi  Stack :

• Inisialisasi Stack : Pada mulanya isi top dengan -1, karena array dalam bahasa C dimulai dari 0, yang berarti bahwa data stack adalah KOSONG!. Top Of Stack akan selalu bergerak hingga mencapai MAX of STACK yang menyebabkan stack PENUH.

• Push (Insert, Masuk, Simpan, Tulis): Digunakan untuk menambah item pada stack pada tumpukan paling atas.

•  Pop (Delete, Keluar, Ambil, Baca, Hapus): Digunakan untuk mengambil item pada stack pada tumpukan paling atas dengan indeks yang disimpan pada variable top.

•  Clear: Digunakan untuk mengosongkan stack

• IsEmpty: Fungsi yang digunakan untuk mengecek apakah stack sudah kosong. Dengan cara memeriksa top of stack, jika masih -1 maka berarti data Stack masih kosong.

• IsFull: Digunakan untuk mengecek apakah stack sudah penuh. Dengan cara memeriksa top of stack, jika sudah sama dengan MAX_STACK-1 maka full, jika belum (masih lebih kecil dari MAX_STACK-1) maka belum full

Kesimpulan  temtang Stack:

1.  Mekanisme penyimpanan nilai secara LIFO (Last in First Out)
2. Bekarja seperti tumpukan
3. Stack harus diberi nama sebagai indentifikasi
4. Cara mengaksesnya adalah dangan melakukan Push Pop