Program Intfix to Postfix dengan Pascal

-
Program ini adalah murni buatan saya, saya membuat program ini untuk memenuhu tugas yang diberikan oleh dosen yang mengajar mata kuliah Struktur Organisasi Data 2.

Berikut adalah tampilan dari program yang saya buat :



Berikut adalah source codenya:

uses crt;
var
intfix,sementara_out:string;
n,i,j,k,l,m,z:integer;
intfixstr,tumpukan:array[0..256] of string;
//var yang terpakai: intfix,i,j,k,l,z,m,intfixstr,tumpukan,n,sementara_out


//awal dari program
begin
//memasukkan notasi intfix
clrscr;
write ('Masukan notasi intfix = ');
readln(intfix);

//untuk memasukkan perkarakter intfix ke array tumpukan
for i:=1 to length(intfix) do intfixstr[i]:=copy(intfix,i,1);

//test
for z:=1 to length(intfix) do writeln(intfixstr[z]);

//untuk menandakan jumlah stack yang terisi
n:=0;

//memulai proses intfix ke postfix
for i:=0 to length(intfix) do
begin
  if n=0 then
    begin
    case intfixstr[i] of
   '+':
begin
tumpukan[n]:=intfixstr[i];
n:=n+1;
end;
'-':
   begin
   tumpukan[n]:=intfixstr[i]; n:=n+1;
   end;
'*':
   begin
   tumpukan[n]:=intfixstr[i]; n:=n+1;
   end;
'/':
   begin
   tumpukan[n]:=intfixstr[i]; n:=n+1;
   end;
'^':
   begin
   tumpukan[n]:=intfixstr[i]; n:=n+1;
   end;
'(':
   begin
   tumpukan[n]:=intfixstr[i]; n:=n+1;
   end;
';':
begin
writeln('tidak ada postfix yang dihasilkan');
end;
else
   sementara_out:=sementara_out+intfixstr[i];
      end;
    end
  else
    begin
    //isi else
    case intfixstr[i] of
'(':
begin
tumpukan[n]:=intfixstr[i];
n:=n+1;
end;
'+':
begin
case tumpukan[n-1] of
  '+':
  begin
  sementara_out:=sementara_out+tumpukan[n-1];
  tumpukan[n-1]:='+';
  end;
  '-':
  begin
  sementara_out:=sementara_out+tumpukan[n-1];
  tumpukan[n-1]:='+';
  end;
  '*':
  begin
  sementara_out:=sementara_out+tumpukan[n-1];
  tumpukan[n-1]:='+';
  end;
  '/':
  begin
  sementara_out:=sementara_out+tumpukan[n-1];
  tumpukan[n-1]:='+';
  end;
  '^':
  begin
  sementara_out:=sementara_out+tumpukan[n-1];
  tumpukan[n-1]:='+';
  end;
  '(':
  begin
  tumpukan[n]:='+';
  n:=n+1;
  end;
        end;
end;
'-':
begin
case tumpukan[n-1] of
  '+':
  begin
  sementara_out:=sementara_out+tumpukan[n-1];
  tumpukan[n-1]:='-';
  end;
  '-':
  begin
  sementara_out:=sementara_out+tumpukan[n-1];
  tumpukan[n-1]:='-';
  end;
  '*':
  begin
  sementara_out:=sementara_out+tumpukan[n-1];
  tumpukan[n-1]:='-';
  end;
  '/':
  begin
  sementara_out:=sementara_out+tumpukan[n-1];
  tumpukan[n-1]:='-';
  end;
  '^':
  begin
  sementara_out:=sementara_out+tumpukan[n-1];
  tumpukan[n-1]:='-';
  end;
  '(':
  begin
  tumpukan[n]:='-';
  n:=n+1;
  end;
        end;
end;
'*':
begin
case tumpukan[n-1] of
  '+':
  begin
  tumpukan[n]:='*';
  n:=n+1;
  end;
  '-':
  begin
  tumpukan[n]:='*';
  n:=n+1;
  end;
  '*':
  begin
  sementara_out:=sementara_out+tumpukan[n-1];
  tumpukan[n-1]:='*';
  end;
  '/':
  begin
  sementara_out:=sementara_out+tumpukan[n-1];
  tumpukan[n-1]:='*';
  end;
  '^':
  begin
  sementara_out:=sementara_out+tumpukan[n-1];
  tumpukan[n-1]:='*';
  end;
  '(':
  begin
  tumpukan[n]:='*';
  n:=n+1;
  end;
        end;
end;
'/':
begin
case tumpukan[n-1] of
  '+':
  begin
  tumpukan[n]:='/';
  n:=n+1;
  end;
  '-':
  begin
  tumpukan[n]:='/';
  n:=n+1;
  end;
  '*':
  begin
  sementara_out:=sementara_out+tumpukan[n-1];
  tumpukan[n-1]:='/';
  end;
  '/':
  begin
  sementara_out:=sementara_out+tumpukan[n-1];
  tumpukan[n-1]:='/';
  end;
  '^':
  begin
  sementara_out:=sementara_out+tumpukan[n-1];
  tumpukan[n-1]:='/';
  end;
  '(':
  begin
  tumpukan[n]:='/';
  n:=n+1;
  end;
        end;
end;
'^':
begin
case tumpukan[n-1] of
  '+':
  begin
  tumpukan[n]:='^';
  n:=n+1;
  end;
  '-':
  begin
  tumpukan[n]:='^';
  n:=n+1;
  end;
  '*':
  begin
  tumpukan[n]:='^';
  n:=n+1;
  end;
  '/':
  begin
  tumpukan[n]:='^';
  n:=n+1;
  end;
  '(':
  begin
  tumpukan[n]:='^';
  n:=n+1;
  end;
  '^':
  begin
  sementara_out:=sementara_out+tumpukan[n-1];
  tumpukan[n-1]:='^';
  end;
        end;
end;
')':
begin
          //belum jadi, pusing, m belum kepake
          j:=n;
          for k:=n downto 0 do
            begin
            if (tumpukan[k]='(') then
              begin
              tumpukan[k]:='';
              n:=k;
              end
            else
              begin
              sementara_out:=sementara_out+tumpukan[k];
              tumpukan[k]:='';
              n:=k;
              end;
            end;



        end;
';':
begin
while n>=0 do
begin
sementara_out:=sementara_out+tumpukan[n];
n:=n-1;
end;
end;
else
sementara_out:=sementara_out+intfixstr[i]
end;
    //end isi else
    end;

end;

//output postfix di cetak
writeln('hasilnya adalah = ',sementara_out);

//akhir program
end.


Semoga artikel ini dapat berguna sebagai media pembelajaran kedepannya. Sekian!

Comments

Post a Comment

If you have question, comment on comment section below

Popular posts from this blog

Tahap pengujian pada fase pemrograman

-
Menguji Modul (Test The Module) Programmer menguji modul dengan menetapkan lingkungan yang tepat, menyediakan beberapa input, membiarkan modul langsung memproses secara logik dan mendapatkan hasilnya. Beberapa input mungkin tidak sebenarnya, terutama jika modul tersebut tidak menyediakan input yang sebenarnya. Modul seharusnya diuji dalam dua tahap, yaitu :  • Tahap Pertama disebut pengujian “White Box”. Programmer harus mengetahui isi di dalam modul dan menyediakan data pengujian, sehingga masing-masing path logical dalam program dapat dieksekusi. • Tahap Kedua atau pengujian “Black Box” dapat dilakukan. Dalam pengujian ini, programmer mengabaikan bagian dalam dari modul – data disediakan secara berurut dan dianggap seperti pemakaian sebenarnya.  Menguji Level Terendah dari Integrasi (Test The Lowest Levels Of  Integration) Jika modul utama memanggil sub-modul, programmer harus menggabungkan dan menguji semua modul secara bersama-sama. Bahkan jika programmer tidak berta
Read more

Mengenal Linux KLIXs

-
Image
  Linux KLIXs mungkin masih terasa asing untuk kalian. Ya jelas saja linux ini memang kurang populer saat ini. Linux KLIXs ini adalah atau merupakan salah satu linux turunan dari linux Mandriva.  Linux KLIXs ini biasa terdapat di dalam cd driver dari laptop Axioo. Linux KLIXs ini menggunakan interface KDE. Berikut ini adalah tampilan desktop dari Linux KLIXs ini ;     Driver pada Linux KLIXs ini sudah sangat lengkap. Bahkan sangat compatibel pada hardware - hardware keluaran di bawah tahun 2011. Tampilan KDEnya pun sangat halus di jalankan pada spesifikasi ringan. Dari segi pemakaian daya linux ini mungkin solusinya. Di Linux KLIXs ini juga sudah terdapat berbagai macam aplikasi, mulai dari game, audio editor, wine, office, dan banyak lagi.  Linux KLIXs ini sudah sangat stabil, selama saya menggunakan Linux KLIXs ini belum pernah saya mendapatkan pesan bugs. Tapi ya seperti linux - linux lainnya, pasti memiliki kekurangan dan kelebihan di bidang bugsnya hanya sa
Read more

Fungsi Next Record pada Libre Office

-
Image
Saat kita ingin mencetak/print pada kertas label dengan menggunakan Libre Office ataupun Open office akan lebih mudah saat kita menggunakan fungsi mail merge. Fungsi ini memungkinkan melakukan pengotomatisasian nama penerima, alamat ataupun informasi unik mengenaik penerima pada dokumen utama yang kita buat sebelumnya. Pada Ms.Office mungkin tidak akan kesulitan saat melakukan pemindahan record yang di panggil pada tiap bagian dokumen yang akan dibuat, namun untuk pengguna Libre Office maupun Open Office mungkin akan mengalami kesulitan. Untuk itu maka harus digunakan fungsi Next Record.  Berikut adalah cara untuk menggunakan fungsi itu; 1)  Buat rancangan dokumen 2)  Buat record pada database (View > Data Source) 3)  Lakukan drag dari judul field ke dokumen seperti biasa 4)  Untuk menggunakan Next record klik Insert > Fields > Other > pilih tab Database > lalu pilih Next record > klik insert 5)  Selesai Tapi ada catatan nih, jangan lupa untuk mele
Read more