Program_ReservasiJersey
Deklarasi
nama, nomor_hp,
jersey_yang_dipesan, ukuran : String
grade_a, grade_aa, grade_aaa,
replica, original, jumlah_a, jumlah_aa, jumlah_aaa, jumlah_replika,
jumlah_original : Integer
diskon, harga_setelah_diskon, total_harga, uang_yang_dibayarkan, kembalian : Double
Integer :
grade_A : 100000
grade_aa :
150000
grade_aaa :
200000
replika :
500000
original :
700000
Deskripsi
Start
WriteLn
(“Nama :”) ;
Read
(“nama”) ;
WriteLn
(“Nomor HP :”) ;
Read
(“nomor_hp”) ;
WriteLn
(“Jersey yang dipesan :”) ;
Read
(“jersey_yang_dipesan”) ;
WriteLn
(“Ukuran :”) ;
Read
(“ukuran”) ;
PrintLn
(“Berikut merupakan hasil data yang telah anda isi sesuai data diatas :”);
PrintLn
(“Nama :”,nama,”)
;
PrintLn
(“Nomor HP :”,nomor_hp,”)
;
PrintLn
(“Jersey yang dipesan :”,jersey_yang_dipesan,”)
;
PrintLn
(“Ukuran :”,ukuran,”) ;
PrintLn
(“Berikut list harga jersey berdasarkan kualitas :”) ;
Print (“Silahkan memasukan data pesanan anda :”);
WriteLn (“Grade A”);
Read (“jumlah_a”) ;
WriteLn (“Grade AA”);
Read (“jumlah_aa”) ;
WriteLn (“Grade AAA”);
Read (“jumlah_aa”) ;
WriteLn (“Replika”);
Read (“jumlah_replika”) ;
WriteLn (“Original”);
Read (“jumlah_original”) ;
total_harga
= (jumlah_a*grade_a) + (jumlah_aa*grade_aa) + (jumlah_aaa*grade_aaa) +
(jumlah_replika*replika) + (jumlah_original*original) ;
PrintLn
(“Total harga yang harus dibayarkan : Rp “,total_harga,”) ;
diskon = total_harga*diskon
PrintLn ("Diskon : Rp ",diskon,") ;
harga_setelah_diskon = total_harga - diskon
PrintLn ("Harga setelah diskon : ".harga_setelah_diskon,") ;
WriteLn
(“Uang yang dibayarkan : Rp “) ;
Read
(“uang_yang_dibayarkan”) ;
kembalian
= uang_yang_dibayarkan-total_harga ;
PrintLn
(“Kembalian : Rp “,kembalian,”) ;
PrintLn (“Nama :”,nama,”) ;
PrintLn (“Nomor HP :”,nomor_hp,”) ;
PrintLn (“Jersey yang dipesan :”,jersey_yang_dipesan,”) ;
PrintLn (“Ukuran :”,ukuran,”) ;
PrintLn (“Harga setelah diskon : Rp “,total_harga,”) ;
PrintLn ("Diskon : Rp ",diskon,") ;
PrintLn ("Harga setelah diskon : ".harga_setelah_diskon,") ;
PrintLn (“Kembalian : Rp “,kembalian,”) ;
End
Tidak ada komentar:
Posting Komentar