Algoritma Program SPBU Menggunakan Pascal [PDF]

Citation preview

1. Output Program



2. Deskripsi Program Program ini berjudul SPBU ilkom mania, bertujuan memudahkan penggunaan perhitungan biaya pemakaian bbm sesuai dengan pilihan yang ada. Program memiliki 4 menu, menu pertama melakukan pengisian bbm berdasarkan banyak uang yang dimasukkan, pada menu kedua melakukan pengisian berdasarkan jumlah volume bbm, menu ketiga mengisi secara manual sesuai kebutuhan, dan menu terakhir untuk keluar. Pengisian bbm berdasarkan jumlah prosesnya yaitu jumlah uang yang dimasukkan dibagi dengan harga dasar dalam satu liter yaitu Rp. 6500, sedangkan berdasarkan volume biaya pengisian bbm dihitung dari per 0.01 Liter yaitu senilai Rp. 65, dan untuk manual penggabungan metode dari 2 cara sebelumnya. 3. Source Code Algoritma program ada didalam source code uses crt; var harga,vol,i:real; pmenu:char; uang:longint; label awal; procedure menu; begin //Bersihkan layar clrscr; writeln('SPBU ILKOM MANIA':50); writeln('1. SPBU berdasarkan Jumlah Uang'); writeln('2. SPBU berdasarkan Jumlah perliter');



writeln('3. SPBU pengisian Manual'); writeln('0. Keluar'); write ('Pilih Menu : '); //masukan pilihan menu read(pmenu); end; procedure buang; begin //Bersihkan layar clrscr; writeln('SPBU ILKOM MANIA':50); writeln('Hitung Premium berdasarkan jumlah Uang'); write('Masukan Uang : Rp. '); //masukan uang readln(uang); write('Volume



: ');



//inisiasi variable i=0 i:=0; //proses hitung kondisi akhir perulangan vol:=uang/6500; repeat //beri jeda perulangan 100ms delay(100); //menampilkan proses pengisian premium volume perliter gotoxy(15,4);write(i:2:2,' L'); //increment berfungsi untuk keluar dari kondisi perulangan i:=i+0.01; //kondisi perulangan until i>vol; write('Tekan tombol enter untuk kembali ke menu awal'); readln; end; procedure volume; begin clrscr; writeln('SPBU ILKOM MANIA':50); writeln('Hitung biaya premium berdasarkan volume'); write ('Masukan Jumlah Liter : '); //masukan jumlah volume yang ingin diisi dalam satuan liter readln(vol); //inisiasi variable i=0 i:=0; repeat //beri waktu jeda perulangan delay(100); //increment berfungsi untuk keluar dari kondisi perulangan i:=i+0.01;



//hitung harga premium tiap 0.01 Liter harga:=6500*i; //menampilkan proses pengisian premium volume perliter beserta harga gotoxy(1,4);write('Volume gotoxy(1,5);write('Total



: ',i:2:2,' L'); : Rp. ',round(harga));



gotoxy(20,5); //kondisi perulangan until i>vol; gotoxy(1,6);write('Tekan tombol enter untuk kembali ke menu awal'); readln; end; procedure manual; begin //bersihkan layar clrscr; //inisiasi variable i dan harga yaitu 0 i:=0; harga:=0; writeln('SPBU ILKOM MANIA':50); writeln('Tekan dan tahan tombol enter untuk mengisi premium'); //kondisi jika tombol enter ditekan maka lakukan pengisian if readkey=#13 then begin repeat //increment indeks perulangan i:=i+0.01; //penghitungan harga premium tiap 0.01 Liter harga:=65+harga; //menampilkan proses pengisian premium beserta harga gotoxy(1,3);write ('Volume : ',i:1:2,' L'); gotoxy(11,3);write(':'); gotoxy(1,4);writeln('Total



: Rp. ',round(harga));



writeln('Tekan tombol backspace untuk berhenti'); gotoxy(14,4); //kondisi berakhir perulangan jika ditekan tombol backspace until readkey=#8; end; gotoxy(1,6);write('Tekan tombol enter untuk kembali ke menu awal'); readln; readln; end; begin repeat //penanda tempat awal awal: //memanggil procedure menu menu;



{jika pmenu=1 lakukan jika bukan maka pmenu=2 lakukan jika bukan maka pmenu=3 lakukan jika bukan maka pmenu=0 keluar program jika tidak kembali ke awal } if pmenu='1' then begin buang; goto awal; end else if pmenu='2' then begin volume; goto awal; end else if pmenu='3' then begin manual; goto awal; end else if pmenu='0' then else begin write('Pilihan tidak sesuai dengan menu yang ada'); readln; readln; end; //kondisi akhir perulangan memilih menu until (pmenu>='0') and (pmenu