Program Menghitung Pembelian Buku

Untuk program yang ke-1 ini admin membuat program dengan sistem percabangan yang sederhana yaitu menghitung harga pembelian buku. Untuk program PembelianBuku ini tidak memerlukan sebuah algoritma yang begitu rumit, hanya saja admin memberikan program yang dapat melatih pembaca dalam menganalisis suatu program. Untuk ketentuan dalam program ini adalah sebagai berikut :

Input       : HargaSatuanBuku dan JumlahPembelian.

Output : HargaSatuanBuku, JumlahPembelian, JumlahHarga, Diskon, TotalPembelian. 

 
Ketentuan : Untuk mendapatkan “Diskon” adalah jika JumlahPembelian > 10 maka mendapat diskon sebesar 15% dari “JumlahHarga” dan jika JumlahPembelian < 10 maka mendapat diskon sebesar 5% dari “JumlahHarga”.

Script / Coding :

{Nama Program}

program MenghitungPembelian;

uses wincrt;

{Variabel }

var

   diskon, jumlah, satuan, harga, total : real;

{Badan Program}

begin

writeln('----------Materi Percabangan-----------');

writeln;

writeln('1. Program Menghitung Pembelian Buku');

writeln('---------------------------------------');

{Input Data}

write('Harga Satuan Buku : Rp ');readln(satuan);gotoxy(25,6);writeln('pcs');

gotoxy(0,6);

write('Jumlah Pembelian  : ');readln(jumlah);

writeln('---------------------------------------');

writeln;

{Proses}

harga := satuan*jumlah;

{Pengkondisian}

if jumlah>=10 then

diskon := harga * 0.15

else

diskon := harga * 0.05;

total := harga - diskon;

{Output Data}

writeln('Harga Satuan Buku = Rp ',satuan:0:0);

writeln('Jumlah Pembelian  = '   ,jumlah:0:0,' pcs');

writeln('---------------------------------------');

writeln('Jumlah Harga      = Rp ',harga:0:0);

writeln('---------------------------------------');

writeln('Diskon            = Rp ',diskon:0:0);

writeln('---------------------------------------');

writeln('Total Pembelian   = Rp ',total:0:0);

{Pindah Baris}

writeln;

writeln('By : Hacker Impossible');

end.