PSEUDOCODE PROGRAM MESIN KASIR

Algoritma Mesin_kasir

{untuk mempermudah perhitungan belanja dengan input kode barang}

Deklarasi

kasir          : string

spasi          : string

tanggal       : string

nama1        : string

nama2        : string

nama3        : string

kode1        : short

kode2        : short

kode3        : short

no             : integer

hrgsatuan1 : integer

hrgsatuan2 : integer

hrgsatuan3 : integer

hrg1          : integer

hrg2          : integer

hrg3          : integer

jumlah1     : integer

jumlah2     : integer

jumlah3     : integer

total          : integer

tunai         : integer

kembali     : integer

Deskripsi

writeln("SELAMAT DATANG DI")

writeln("TOKO ALAT TULIS GRAMEDIA ")

writeln ("No.      Kode Barang     Nama Barang     Harga Satuan ")

writeln("1.          001         Buku Tulis            Rp 2.500,- ")

writeln("2.          002         Buku Gambar    Rp 4.000,- ")

writeln("3.          404         Pensil                    Rp 2.000,- ")

writeln("4.          405         Pulpen                  Rp 3.500,- ")

writeln("5.          406         Penghapus         Rp 1.500,- ")

writeln("6.          407         Penggaris            Rp 3.000,- ")

writeln("7.          302         Tempat Pensil   Rp 5.000,- ")

write("Masukkan No : ")

read(no)

read(spasi)

write("Masukkan Kasir : ")

read(kasir)

write("Masukkan Tanggal : ")

read(tanggal)

while(status=true){

write("Masukkan Kode Barang : ")

read(kode1)

if((kode1!=001)&&(kode1!=002)&&(kode1!=404)&&(kode1!=405)&&(kode1!=406)&&(kode1!=407)&&(kode1!=302))

writeln("Anda Salah Memasukkan Kode")

status=true

endif

else if(kode1==001)

nama1 = "Buku Tulis"

hrgsatuan1 = 2500

write("Masukkan Jumlah Barang : ")

read(jumlah1)

hrg1 = hrgsatuan1*jumlah1

status=false;break

endif

else if(kode1==002)

nama1 = "Buku Gambar"

hrgsatuan1 = 4000

write("Masukkan Jumlah Barang : ")

read(jumlah1)

hrg1 = hrgsatuan1*jumlah1

status=false;break

endif

else if(kode1==404)

nama1 = "Pensil"

hrgsatuan1 = 2000

write("Masukkan Jumlah Barang : ")

read(jumlah1)

hrg1 = hrgsatuan1*jumlah1

status=false;break

endif

else if(kode1==405)

nama1 = "Pulpen"

hrgsatuan1 = 3500

write("Masukkan Jumlah Barang : ")

read(jumlah1)

hrg1 = hrgsatuan1*jumlah1

status=false;break

endif

else if(kode1==406)

nama1 = "Penghapus"

hrgsatuan1 = 1500

write("Masukkan Jumlah Barang : ")

read(jumlah1)

hrg1 = hrgsatuan1*jumlah1

status=false;break

endif

else if(kode1==407)

nama1 = "Penggaris"

hrgsatuan1 = 3000

write("Masukkan Jumlah Barang : ")

read(jumlah1)

hrg1 = hrgsatuan1*jumlah1

status=false;break

endif

else if(kode1==302)

nama1 = "Tempat Pensil"

hrgsatuan1 = 5000

write("Masukkan Jumlah Barang : ")

read(jumlah1)

hrg1 = hrgsatuan1*jumlah1

status=false;break

endif

endwhile

while(status=true){

write("Masukkan Kode Barang : ")

read(kode2)

if((kode2!=001)&&(kode2!=002)&&(kode2!=404)&&(kode2!=405)&&(kode2!=406)&&(kode2!=407)&&(kode2!=302))

writeln("Anda Salah Memasukkan Kode")

status=true

endif

else if(kode2==001)

nama2 = "Buku Tulis"

hrgsatuan2 = 2500

write("Masukkan Jumlah Barang : ")

read(jumlah2)

hrg2 = hrgsatuan2*jumlah2

status=false;break

endif

else if(kode2==002)

nama2 = "Buku Gambar"

hrgsatuan2 = 4000

write("Masukkan Jumlah Barang : ")

read(jumlah2)

hrg2 = hrgsatuan2*jumlah2

status=false;break

endif

else if(kode2==404)

nama2 = "Pensil"

hrgsatuan2 = 2000

write("Masukkan Jumlah Barang : ")

read(jumlah2)

hrg2 = hrgsatuan2*jumlah2

status=false;break

endif

else if(kode2==405)

nama2 = "Pulpen"

hrgsatuan2 = 3500

write("Masukkan Jumlah Barang : ")

read(jumlah2)

hrg2 = hrgsatuan2*jumlah2

status=false;break

endif

else if(kode2==406)

nama2 = "Penghapus"

hrgsatuan2 = 1500

write("Masukkan Jumlah Barang : ")

read(jumlah2)

hrg2 = hrgsatuan2*jumlah2

status=false;break

endif

else if(kode2==407)

nama2 = "Penggaris"

hrgsatuan2 = 3000

write("Masukkan Jumlah Barang : ")

read(jumlah2)

hrg2 = hrgsatuan2*jumlah2

status=false;break

endif

else if(kode2==302)

nama2 = "Tempat Pensil"

hrgsatuan2 = 5000

write("Masukkan Jumlah Barang : ")

read(jumlah2)

hrg2 = hrgsatuan2*jumlah2

status=false;break

endif

endwhile

while(status=true){

write("Masukkan Kode Barang : ")

read(kode3)

if((kode3!=001)&&(kode3!=002)&&(kode3!=404)&&(kode3!=405)&&(kode3!=406)&&(kode3!=407)&&(kode3!=302))

writeln("Anda Salah Memasukkan Kode")

status=true

endif

else if(kode3==001)

nama3 = "Buku Tulis"

hrgsatuan3 = 2500

write("Masukkan Jumlah Barang : ")

read(jumlah3)

hrg3 = hrgsatuan3*jumlah3

status=false;break

endif

else if(kode3==002)

nama3 = "Buku Gambar"

hrgsatuan3 = 4000

write("Masukkan Jumlah Barang : ")

read(jumlah3)

hrg3 = hrgsatuan3*jumlah3

status=false;break

endif

else if(kode3==404)

nama3 = "Pensil"

hrgsatuan3 = 2000

write("Masukkan Jumlah Barang : ")

read(jumlah3)

hrg3 = hrgsatuan3*jumlah3

status=false;break

endif

else if(kode3==405)

nama3 = "Pulpen"

hrgsatuan3 = 3500

write("Masukkan Jumlah Barang : ")

read(jumlah3)

hrg3 = hrgsatuan3*jumlah3

status=false;break

endif

else if(kode3==406)

nama3 = "Penghapus"

hrgsatuan3 = 1500

write("Masukkan Jumlah Barang : ")

read(jumlah3)

hrg3 = hrgsatuan3*jumlah3

status=false;break

endif

else if(kode3==407)

nama3 = "Penggaris"

hrgsatuan3 = 3000

write("Masukkan Jumlah Barang : ")

read(jumlah3)

hrg3 = hrgsatuan3*jumlah3

status=false;break

endif

else if(kode3==302)

nama3 = "Tempat Pensil"

hrgsatuan3 = 5000

write("Masukkan Jumlah Barang : ")

read(jumlah3)

hrg3 = hrgsatuan3*jumlah3

status=false;break

endif

endwhile

total = hrg1+hrg2+hrg3

writeln("Total Bayar : " +total )

write("Masukkan Nilai Tunai : ")

read(tunai)

read(spasi)

kembali = tunai-total

if(kembali<=0){

           writeln("Maaf, Anda Perlu Menambahkan Nilai Tunai sebesar "+kembali)

           write("Masukkan Nilai Tunai Tambahan : ")

           read(uangtambah)

           tunai = tunai+uangtambah

           kembali = tunai-total

endif

writeln("TOKO ALAT TULIS GRAMEDIA")

writeln("Jalan Pandanaran Simpang Lima")

writeln("SEMARANG")

writeln("No.     : " +no)

writeln("Kasir   : " +kasir.toUpperCase())

writeln("Tanggal : " +tanggal)

writeln(nama1.toUpperCase()+"                              "+jumlah1+"      "+hrgsatuan1+"                                "+hrg1)

writeln(nama2.toUpperCase()+"                              "+jumlah2+"      "+hrgsatuan2+"                                "+hrg2)

writeln(nama3.toUpperCase()+"                              "+jumlah3+"      "+hrgsatuan3+"                                "+hrg3)

writeln ("HARGA JUAL = " +total)

writeln("TOTAL      = " +total)

writeln("TUNAI      = " +tunai)

writeln("KEMBALI    = " +kembali)