Program Menghitung_Diskon; ( Algoritma dan Pemograman )

Program Menghitung_Diskon;
uses crt;
var
  kode_barang, nama_barang       : string;
  harga_satuan, harga_total      : longint;
  jumlah_barang                  : byte;
  diskon, total_bayar            : real;

begin
  {data masukan oleh user}
  window(1,1,80,25);textbackground(MAGENTA);clrscr;
  textcolor(WHITE);
  writeln('Data Masukan Penjualan Barang');
  writeln('=============================');
  write('Kode Barang   : ');readln(kode_barang);
  write('Nama Barang   : ');readln(nama_barang);
  write('Harga Satuan  : ');readln(harga_satuan);
  write('Jumlah Beli   : ');readln(jumlah_barang);
  writeln;


  {menghitung harga total}
  harga_total    := harga_satuan*jumlah_barang;

  {menentukan diskon}
  diskon         := 0;                         {Inisialisasi diskon}
  if (jumlah_barang >= 5)
    then
        diskon   := 0.075*harga_total;
  {menghitung total yang harus dibayar}
  total_bayar    :=harga_total - diskon;

  {tampilan keluaran}
  clrscr;
  writeln('Data Keluaran Penjualan Barang');
  writeln('==============================');
  writeln('Kode Barang     : ',kode_barang);
  writeln('Nama Barang     : ',nama_barang);
  writeln('Jumlah Barang   : ',jumlah_barang, 'buah');
  writeln('Harga Satuan    : Rp.',harga_satuan:7);
  writeln('Diskon          : Rp. ',diskon:9:2);
  writeln('Total Bayar     : Rp. ',total_bayar:9:2);

  readln;
end.