Deskripsi Program
Program ini kami buat untuk memudahkan pemesan atau reservator tiket konser Tulus,dengan ketentuan-ketentuan yang kami buat demi kemudahan reservator dan pihak penglola tiket reservasi.
Header
Program
_Reservasi_Tiket_Konser_Tulus
Declaration
Nama,NoHp,id: Char
Jumlah1,
Jumlah2,
Jumlah3,
Jumlah4,Total,
,uang, kembali, Festival, Silver, Gold, Platinum :Int
Description
Begin
            Println              ("Selamat
datang di pemesanan tiket konser Tulus");
            Println              ("HARGA TIKET
KONSER:");
            Println              (" A.
Festival     Rp. 30.000,-        ");
            Println              (" B.
Silver        Rp. 50.000,-        ");
            Println              (" C.
Gold          Rp. 75.000,-        ");
            Println              (" D.
Platinum   Rp. 100.000,-       ");
            Println              ("Ketentuan
Pemesanan:");
            Println              ("Pemesanan
maksimal 9 tiket setiap classnya");
            Writeln             (" Masukan
nama Lengkap Reservator     : ");
            Read                (Nama)                        
            Writeln             (" Masukan
nomor HP Reservator         : ");
            Read                (NoHp)
            Writeln             (" Masukan
nomor ID(KTP/SIM) Reservator: ");
            Read                (id)
            Writeln             (" Jumlah
tiket Festival               : ");
            Read                (Jumlah1)
            If
 (Jumlah1>9)
Println              ("Maaf jumlah tiket yang anda
masukkan terlalu banyak");
            Println              ("Silahkan
mengulangi dari awal :)");
            else
            Writeln             ("Jumlah tiket Silver                 : ");
            Read                (Jumlah2);
            If (jumlah2>9);
Println              ("Maaf jumlah tiket yang anda
masukkan terlalu banyak");
            Println              ("Silahkan
mengulangi dari awal :)");
            else
            Writeln             ("Jumlah tiket Gold                   : ");
            Read                (Jumlah3);
            If (jumlah3>9);
Println              ("Maaf jumlah tiket yang anda
masukkan terlalu banyak");
            Println              ("Silahkan
mengulangi dari awal :)");
else
            Writeln             ("Jumlah tiket Platinum               : ");
            Read                (Jumlah4);
            if (jumlah4>9);
Println              ("Maaf jumlah tiket yang anda
masukkan terlalu banyak");
            Println              ("Silahkan
mengulangi dari awal :)");
            else
            Println              ("Jumlah
tiket yang Anda pesan adalah sebagai berikut:");
            Println              ("Jumlah
tiket Festival  : "+Jumlah1);
Println              ("Jumlah tiket Silver     :
"+Jumlah2);
            Println              ("Jumlah
tiket Gold       : "+Jumlah3);
            Println              ("Jumlah
tiket Platinum : "+Jumlah4);
            total
= (festival*jumlah1)+(silver*jumlah2)+(gold*jumlah3)+(platinum*jumlah4);
            Println              ("Total yang
harus anda bayar : Rp. "+ total + ",-" );
            Writeln             ("Masukan
nominal uang Anda: ");
If  (total>uang);
Println              ("Maaf nominal uang yang Anda
masukkan tidak mencukupi");
            Println              ("Silahkan
mengulangi dari awal :)");
Else
kembali=uang-total;
            Println              ("Nominal
yang Anda masukan  : Rp
"+uang+",- ");
            Println              ("Uang
kembalian Anda        : Rp
"+kembali+",- ");
            Println              ("Cetak bukti peesanan tiket di bawah ini"); 
            Println              (" Nama Reservasor       : "+Nama);
            Println              (" Nomor Hp Reservator   : "+Nohp);
            Println              (" Nomor ID Reservator   : "+id);
            Println              (" Jumlah tiket Festival : "+Jumlah1);
            Println              (" Jumlah tiket Silver   : "+Jumlah2);
            Println              (" Jumlah tiket Gold     : "+Jumlah3);
            Println              (" Jumlah tiket Platinum : "+Jumlah4);
            Println              (" Total harga tiket     : Rp. "+total+",-");
            Println              (" Anda membayar         : Rp. "+uang+",- ");
            Println              (" Uang kembalian Anda   : Rp. "+kembali+",- ");
Println              ("Terima
kasih telah memesan tiket :)");
END


 
Tidak ada komentar:
Posting Komentar