Jumat, 21 November 2014

Jurnal Modul 2 = "Kasir Reservasi Rental Bus Pariwisata"

"Kasir Reservasi Rental Bus Pariwisata"

1. Pseudocode Kasir Reservasi Rental Bus Pariwisata
 Pseudocode Informasi Reservasi Bus Pariwisata
Header

Informasi_Reservasi_Penyewaan_Bus_Pariwisata_Kelompok_33

Declaration:

nama, no telp, no identitas, alamat, tanggal sewa, jumlah bus, lama pinjam;

Description:


Header

Informasi_Reservasi_Penyewaan_Bus_Pariwisata_Kelompok_33

Declaration:

Input nama, no telp, no identitas, alamat, tanggal sewa, jumlah bbus, lama pinjam;

Description:

Begin

Writeln();

Writeln("]]]]]]]]]]]]]]]]]]]]]]][[[[[[[[[[[[[[[[[[[[[[[[[[");

Writeln("Selamat Datang di Jasa Bus Pariwisata Kelompok 33");

Writeln("]]]]]]]]]]]]]]]]]]]]]]][[[[[[[[[[[[[[[[[[[[[[[[[[");

Writeln();

Write("Nama : ");

Read(nama)

Write("No HP: ");

Read(notelp)

Write("No Identitas : ");

Read(noidentitas)

Write("Alamat : ");

Read(alamat)

Writeln("Harga Bus (satuan) : 850000");

Write("Tanggal Sewa : ");

Read(tanggalsewa)

Write("Jumlah Bus : ");

Read(jmlbus)

Write("Lama Peminjaman (hari) : ");

Read(lamapinjam)

c=hargabus*jmlbus*lamapinjam;



Writeln("Informasi Reservasi Penyewaan Bus Pariwisata Kelompok 33.");

Writeln();

Writeln("Nama                              : "+nama);

Writeln("No Indentitas                     : "+noidentitas);

Writeln("Alamat                            : "+alamat);

Writeln("No HP                      : "+notelp);

Writeln("Harga Bus/satuan                  : Rp.850.000,00");

Writeln("Harga Bus/hari                    : Rp.850.000,00");

Writeln("Jumlah Bus                        : "+jmlbus);

Writeln("Lama Peminjaman/hari              : "+lamapinjam);

Writeln("Total Harga                : Rp."+c+",00");

Writeln();

Writeln("Terimakasih telah menggunakan jasa Bus Pariwisata Kelompok 33");

End

2. Flowchart Kasir Reservasi Rental Bus Pariwisata
 
2. Flowchart Kasir Reservasi Rental Bus Pariwisata
 

Tidak ada komentar:

Posting Komentar