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

Jenis - jenis COCOMO

-
Model Jenis COCOMO Ada tiga model cocomo, diantaranya ialah: 1. Dasar Cocomo Dengan menggunakan estimasi parameter persamaan (dibedakan menurut tipe sistem yang berbeda) upaya pengembangan dan pembangunan durasi dihitung berdasarkan perkiraan DSI. Dengan rincian untuk fase ini diwujudkan dalam persentase. Dalam hubungan ini dibedakan menurut tipe sistem (organik-batch, sebagian bersambung-on-line, embedded-real-time) dan ukuran proyek (kecil, menengah, sedang, besar, sangat besar). Model COCOMO dapat diaplikasikan dalam tiga tingkatan kelas: * Proyek organik (organic mode) Adalah proyek dengan ukuran relatif kecil, dengan anggota tim yang sudah berpengalaman, dan mampu bekerja pada permintaan yang relatif fleksibel. * Proyek sedang (semi-detached mode)Merupakan proyek yang memiliki ukuran dan tingkat kerumitan yang sedang, dan tiap anggota tim memiliki tingkat keahlian yang berbeda * Proyek terintegrasi (embedded mode)Proyek yang dibangun dengan spesifikasi dan opera
Read more

Estimasi berdasarkan sejarah

-
Jalan keluar dari ketergantungan pada orang dan untuk membuat estimasi lebih khusus, yaitu anda harus mengerti tentang sejarahnya. Tulislah berapa lama masing-masing tugas dapat diselesaikan dan siapa yang bertanggung jawab atas tugas tersebut. Anda dapat membandingkan tuagas yang akan diestimasik dengan tugas yang sama yang dikerjakan lebih awal, setelah itu mulailah dengan melakukan estimasi. Hal ini dimaksudkan agar anda menjabarkan suatu proyek ke dalam beberapa tugas yang biasanya diulang dan mudah untuk dibandingkan. 
Read more