Program_ReservasiJersey
Deklarasi
nama, nomor_hp,
jersey_yang_dipesan, ukuran : String
grade_a, grade_aa, grade_aaa,
replica, original, q, w, e, r, t, total_harga, uang_yang_dibayarkan, kembalian
: Integer
Deskripsi
Start
PrintLn (“*********************************************************”)
;
PrintLn (“ WELCOME
TO “)
;
PrintLn (“ EIGHT’S SHOP “) ;
PrintLn (“ ALL
YOUR NEEDED IS HERE ”)
;
PrintLn
(“*********************************************************”) ;
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 :”) ;
PrintLn
(“A. Grade A : Rp
100000/jersey”) ;
PrintLn
(“B. Grade AA : Rp 150000/jersey”) ;
PrintLn
(“C. Grade AAA : Rp
200000/jersey”) ;
PrintLn
(“D. Replika : Rp
500000/jersey”) ;
PrintLn
(“E. Original : Rp
700000/jersey”) ;
grade_A : 100000 ;
grade_aa :
150000 ;
grade_aaa :
200000 ;
replika :
500000 ;
original :
700000 :
Print (“Silahkan memasukan data pesanan anda :”);
WriteLn (“Grade A”);
Read (“q”) ;
WriteLn (“Grade AA”);
Read (“w”) ;
WriteLn (“Grade AAA”);
Read (“e”) ;
WriteLn (“Replika”);
Read (“r”) ;
WriteLn (“Original”);
Read (“t”) ;
total_harga
= (q*grade_a) + (w*grade_aa) + (e*grade_aaa) + (r*replika) + (t*original) ;
PrintLn
(“Total harga yang harus dibayarkan : Rp “,total_harga,”) ;
WriteLn
(“Uang yang dibayarkan : Rp “) ;
Read
(“uang_yang_dibayarkan”) ;
kembalian
= uang_yang_dibayarkan-total_harga ;
PrintLn
(“Kembalian : Rp “,kembalian,”) ;
PrintLn(“********Terima
kasih telah berbelanja di Eight’s Shop***********”) ;
PrintLn(“*********Kepuasan
anda adalah kebahagiaan kami***************”) ;
End
Tidak ada komentar:
Posting Komentar