Script Untuk Program Pembayaran Di Infomart.
Program Pembayaran_di_InfoMart;uses wincrt;
var
nama_barang_1: string;
jumlah_barang_1:integer;
nama_barang_2:string;
jumlah_barang_2:integer;
total_harga_1:real;
total_harga_2:real;
total_belanja:real;
jumlah_uang:real;
kembali:real;
const
harga_barang_1=7800;
harga_barang_2=10000;
begin
write(‘masukkan nama barang 1 = ‘);readln(nama_barang_1);
write(‘masukkan jumlah barang 1 = ‘);readln(jumlah_barang_1);
write(‘masukkan nama barang 2 = ‘);readln(nama_barang_2);
write(‘masukkan jumlah barang 2 = ‘);readln(jumlah_barang_2);
total_harga_1:=harga_barang_1*jumlah_barang_1;
total_harga_2:=harga_barang_2*jumlah_barang_2;
total_belanja:=total_harga_1+total_harga_2;
write(‘masukkan jumlah uang = Rp ‘);readln(jumlah_uang);
kembali:=jumlah_uang-total_belanja;
clrscr;
writeln(‘Selamat Datang di Info Mart’);
writeln(‘Nama Barang 1 = ‘,nama_barang_1);
writeln(‘Harga Barang 1 = Rp ‘,harga_barang_1);
writeln(‘Jumlah Barang 1 = ‘,jumlah_barang_1,’ botol’);
writeln(‘Nama Barang 2 = ‘,nama_barang_2);
writeln(‘Harga Barang 2 = Rp ‘,harga_barang_2);
writeln(‘Jumlah Barang 2 = ‘,jumlah_barang_2,’ batang’);
writeln(‘Total Belanja = Rp ‘,total_belanja:12:2);
writeln(‘Jumlah Uang yang dibayarkan = Rp ‘,jumlah_uang:12:2);
writeln(‘Kembali = Rp ‘,kembali:12:2);
writeln(‘Terimakasih atas Kunjungannya’);
end.
- Follow us on Twitter, or subscribe to the rizqtech RSS Feed for more daily web development and articles.
Enjoy this Post!
