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 '+':