Pemograman Total Bayar dengan Pascal

program Menghitung_Total_Bayar;
{I.S.:user memasukkan kode barang,nama barang,harga satuan,jumlah barang}
{F.S.:menampilkan total pembayaran}
uses crt;
var
   KdBrg,NmBrg                       : string;
   Jml,Hrg,UangBayar                 : integer;
   HargaTotal,Diskon,Total,Kembalian : real;
begin
   //Membuat jendela kiri
   window(3,2,39,23);textbackground(15);clrscr;
   //Header jendela kiri
   gotoxy(7,2);textcolor(0);write('Pengisian Data Penjualan');
   gotoxy(7,3);textcolor(0);write('========================');

   //Memasukkan kode barang dan jumlah yang dibeli
   gotoxy(7,5);
   write('Kode Barang : ');readln(KdBrg);

   //Validasi kode barang
   if (KdBrg <> 'PK01') and (KdBrg <> 'pk01') and (KdBrg <> 'TS02')
      and (KdBrg <> 'ts02')
      then
      begin
         gotoxy(7,6);
         write('Kode Barang salah!');
         gotoxy(7,7);
         write('Tekan enter untuk melanjutkan!');readln;
      end
      else
      begin

   gotoxy(7,6);
   write('Jumlah Beli : ');readln(Jml);

   //Menentukan nama barang dan harga satuan
   if (KdBrg = 'PK01') or (KdBrg = 'pk01')
      then
      begin
         NmBrg := 'Pakaian';
         Hrg   := 55000;
      end
      else
      begin
         NmBrg := 'Tas';
         Hrg   := 70000;

      end;

   //Menghitung harga total
   HargaTotal := Hrg * Jml;

   //Menentukan Diskon
   if (Jml >= 5)
      then
         Diskon := 0.125 * HargaTotal
      else
         Diskon := 0;

   //Menghitung total bayar
   Total := HargaTotal - Diskon;

   //Membuat jendela kanan
   window(42,2,78,23);textbackground(15);clrscr;
   //Header jendela kanan
   gotoxy(15,2);textcolor(0);write('Pembayaran');
   gotoxy(15,3);textcolor(0);write('==========');

   //Menampilkan data penjualan
   gotoxy(5,5);
   write('Kode Barang  : ',KdBrg);
   gotoxy(5,6);
   write('Nama Barang  : ',NmBrg);
   gotoxy(5,7);
   write('Harga Satuan : Rp. ',Hrg);
   gotoxy(5,8);
   write('Jumlah Beli  : ',Jml,' buah');

   //Menampilkan harga total
   gotoxy(5,9);
   write('Harga Total  : Rp. ',HargaTotal:0:2);

   //Menampilkan diskon
   gotoxy(5,10);
   write('Diskon       : Rp. ',Diskon:0:2);
   gotoxy(5,11);
   write('____________________________-');

   //Menampilkan total bayar
   gotoxy(5,12);
   write('Total        : Rp. ',Total:0:2);

   //Memasukkan uang yang dibayar oleh pembeli
   gotoxy(5,13);
   write('Uang Bayar   : Rp. ');readln(UangBayar);

   //Menghitung uang kembalian
   Kembalian := UangBayar - Total;

   //Menampilkan uang kembalian
   gotoxy(5,14);
   write('Kembalian    : Rp. ',Kembalian:0:2);

   readln;
   end;
end.