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