Kasir bagian 1

B.     Program Kasir

{Membuat kasir sederhana sebagai aplikasi dari Modul 2 Teknologi Informatika}

B.1 Algoritma

            B.1.1 Pseudocode

Algoritma_kasir

{Algoritma menghitung harga pembelian}

Deklarasi

Total_harga_buku_gambar, Total_harga_buku_tulis, Total_harga_pensil_rotring,  Total_harga_penghapus_pensil,  Total_harga, pembayaran, kembalian : Float

Jumlah_buku_gambar, Jumlah _buku_tulis, Jumlah _pensil_rotring,  Jumlah _penghapus_pensil :Integer

Harga_buku_gambar: integer  2500

Harga_buku_tulis: integer  1500

Haga_pensil_rotring: integer  30000

Harga_penghapus_pensil: integer  1000

Deskipsi

Begin

Writeln(“Selamat belanja, kami menjual buku gambar, buku tulis, pensil rotring dan penghapus pensil”)

Writeln(“Masukkan Jumlah Buku Gambar  = ”) ;

Read(Jumlah_buku_gambar );

Writeln(“Masukkan Jumlah Buku Tulis =”) ;

Read(Jumlah _buku_tulis);

Writeln(“Masukkan Jumlah Pensil Rotring= ”) ;

Read (Jumlah_pensil_rotring );

Writeln(“Masukkan Penghapus Pensil= ”) ;

Read(Jumlah _penghapus_pensil);

Total_harga_buku_gambarHarga_buku_gambar*Jumlah_buku_gambar;

Total_harga_buku_tulisHarga_buku_tulis*Jumlah_buku_tulis;

Total_harga_pensil_rotringHarga_pensil_rotring*Jumlah_pensil_rotring;

Total_harga_penghapus_pensilHarga_penghapus_pensil*Jumlah_penghapus_pensil;

Total_hargaTotal_harga_buku_gambar+Total_harga_buku_tulis+ Total_harga_pensil_rotring+Total_harga_penghapus_pensil;

IfTotal_harga>= 100000 Then

Total_hargaTotal_harga-10%Total_harga;

Else

Write (“Silahkan belanja lagi agar dapat diskon”)

Ifpembayaran>Total_hargaThen

KembalianPembayaran-Total_harga;

Else

Write (“Pembayaran kurang”)

End if

Writeln(“Toko Kelompok 3”) ;

Writeln(“ ---------------------------------------------------------------------------------------------”) ;

Writeln(“Barang Harga satuan Jumlah Pembelian Harga) ;

Writeln(“Buku gambar “,Harga_buku_ gambar,”   “,Jumlah_buku_gambar,”   “,Total_harga_buku_gambar);

Writeln(“Bukutulis “,Harga_buku_ tulis,”   “,Jumlah_buku_tulis,”   “,Total_harga_buku_tulis);

Writeln(“Pensil rotring“,Harga_pensil_rotring,”   “ ,Jumlah_pensil_rotring ,”   “,Total_harga_pensil_rotring);

Writeln(“Pengha puspensil“,Harga_penghapus_pensil,”   “,Jumlah_penghapu_ pensil,”   “,Total_harga_penghapus_pensil);

Writeln(Pembayaran) ;

Writeln(Kembalian) ;

Writeln(“Terima kasih atas kepercayaan anda”) ;

End