Reservasi Tiket Theme Park

Program untuk melakukan proses reservasi tiket masuk wahana hiburan TI Studios, dengan program ini pengguna menginput data diri dan juga jumlah tiket yang diinginkan. Hasil yang muncul adalah harga tiket yang harus dibayar beserta nomor reservasinya.


Flowchart

Pseudocode

Algoritma reservasi_tiket

{ Program untuk melakukan proses reservasi tiket masuk wahana hiburan TI Studios, dengan program ini pengguna menginput data diri dan juga jumlah tiket yang diinginkan. Hasil yang muncul adalah harga tiket yang harus dibayar beserta nomor reservasinya.}

Deklarasi

nama, no_book, no_identitas, nomor_telepon,  tanggal_datang, jenis_bayar =String

dewasa, anak, balita = int

total = double

Deskripsi

Begin

            Write ("Nama :");

            Read (nama);

            Write ("Nomor Identitas :");

            Read (no_identitas);

            Write ("Nomor Handphone (12 digit) :");

            Read (nomor_telepon);

            Write ("Reservasi untuk tanggal (ddmmyyyy) :");

            Read (tanggal_datang);

Writeln ("Jenis Pembayaran (Pilih satu)  ");

            Write ("ATM/ e-Banking/ Debit/ e-Money   :");

            Read (jenis_bayar);

            Write ("Jumlah tiket dewasa (diatas 13 tahun) :");

            Read (dewasa);

            Write ("jumlah tiket anak-anak (5 - 13 tahun) :");

            Read (anak);

            Write ("jumlah tiket balita (dibawah 5 tahun)     :");

            Read (balita);

no_book = nama(0,2), no_identitas(0,4), tanggal_datang(0,2), nomor_telepon(9,12);

            total ß (balita*20000) + (anak*60000) + (dewasa*100000) ;

            if (total > 250000)

            do (total ß (total *0.9));

Writeln ("Nama : " , nama);

            Writeln ("Nomor Reservasi  : " ,  no_book);

            Writeln ("Nomor Identitas : " ,  no_identitas);

            Writeln ("Nomor Handphone : " , nomor_telepon);

            Writeln ("Reservasi untuk tanggal : " , tanggal_datang);

            Writeln ("Jenis Pembayaran : " , jenis_bayar);

            Writeln ("Jumlah tiket dewasa (diatas 13 tahun) : " , dewasa);

            Writeln ("jumlah tiket anak-anak (5 - 13 tahun) : " , anak);

            Writeln ("jumlah tiket balita (dibawah 5 tahun) : " , balita);

            Writeln ("Total Pembayaran : " , total);

End;

Tampilan Console

tampilan setelah mengisi data