Script Program Pembayaran Barang di Toko

Program Pembayaran ini berfungsi untuk menghitung total belanja pelanggan di sebuah toko, sehingga mempermudah dan mempercepat proses pembayaran di kasir. Program dibuat menggunakan bahasa pemrograman Pascal.

Program BARANG;
Uses Crt;
Var
   nKode, nHrg, nTotal, Total,Kembali, nJmlh, nbyr, nkembali : real;
   Nama,pilih,Thank : Char;
   I : integer;
Begin
   For I:= 1 To 11 Do
   Begin
       Sound(262); Delay(300);
       Sound(294); Delay(300);
       Sound(330); Delay(300);
       Sound(350); Delay(300);
       Sound(392); Delay(300);
       Sound(440); Delay(300);
       Sound(494); Delay(300);
       Sound(526); Delay(500);
       NoSound; Delay(10);
       Sound(526); Delay(300);
       Sound(494); Delay(300);
       Sound(440); Delay(300);
       Sound(392); Delay(300);
       Sound(350); Delay(300);
       Sound(330); Delay(300);
       Sound(294); Delay(300);
       Sound(262); Delay(300);
    End;
    NoSound;

   pilih := 'y';
   while pilih = 'y' Do
   begin
      clrscr;
      gotoxy(32,2); write ('TOKO SUCCESS FOREVER');
      gotoxy(32,3); write ('====================');


      gotoxy(4,5); write ('Kode Barang     = ');readln(nKode);
      gotoxy(4,6); write ('Nama Barang     = ');readln(Nama);
      gotoxy(4,7); write ('Harga           = ');readln(nHrg);
      gotoxy(4,8); write ('Jumlah Beli     = ');readln(nJmlh);
      Total := nHrg * nJmlh;
      gotoxy(4,11); write ('Total           = ',Total:9:2);
      gotoxy(4,12); write ('Uang Bayar      =    ');readln(nbyr);
      Kembali := nbyr - total;
      gotoxy(4,13); write ('Yang Kembali    = ',Kembali:9:2);
      gotoxy (45,16); write('Mau Proses Lagi ? [Y/T] ');read(pilih);
      clrscr;
      gotoxy (32,12); write('----THANK YOU---- ');read(Thank);

      readln;
   end;
end.