Quiz Perulangan

A. Pseudocode

Pseusocode Game_Pengulangan

Algoritma Game_TTI

{membuat system game pengulangan}

Deklarasi

ans1, ans2, ans3, ans4, ans5, play = char

a, b, c, d, e = Int

point = double

play :char <- “ya”

Deskripsi

Begin

Do

Writeln ("1. Apa warna gedung lama Teknik Industri UNDIP : ")

Read (ans1)

if (ans1.equalsIgnoreCase("pink"))

a <- 1

else

a <- 0

Writeln ("2. Ada berapa aslab DSS angkatan 2012 : ")

Read (ans2)

if (ans2.equalsIgnoreCase("2"))

b <- 1

else

b <- 0

Writeln ("3. ada berapa jumlah lab. yang ada di Teknik Industri UNDIP : ")

Read (ans3)

if (ans3.equalsIgnoreCase("6"))

c <- 1

else

c <- 0

Writeln ("4. Siapa komting 2013 *5 karakter* : ")

Read (ans4)

if (ans4.equalsIgnoreCase("brian"))

d <- 1

else

d <- 0

Writeln ("5. Siapa ketua Jurusan Teknik Industri UNDIP saat ini *5 karakter* ")

Read (ans5)

if (ans5.equalsIgnoreCase("nanik"))

e <- 1

else

e <- 0

Writeln ("POINT")

point <- a+b+c+d+e

if (point > 3)

Writeln (“ Muncul Gambar Love”)

Writeln ("Main lagi? ")

play <- ok.nextLine

else

Writeln (“Muncul Tulisan Game Over”)

Writeln ("Main lagi? ");

play <- ok.nextLine ();}

while (play.equalsIgnoreCase("Ya"))

End

2. Flowchart

C. Screenshot Console

Console diatas akan muncul jika Anda menjawab dengan benar lebih dari 3 soal

Console diatas akan muncul jika Anda menjawab pertanyaan dengan benar kurang dari 3

Provider Pulsa

A. Pseudocode

Algoritma Provider_Pulsa

{Membuat sistem layanan m-banking dan penjualan kuota internet untuk memudahkan konsumen}

Deklarasi

bank1, bank2, norek = char

saldo : int <- 3000000

pulsa : int <- 100000

sisa1 : double <- 0

sisa2 : double <- 0

nominal : int <- 0

kode : int <- 808

pil1, pil2, pil3 = byte

Deskripsi

Begin

Writeln (“Kode Provider Anda adalah 808”)

Writeln (“Masukkan kode :”)

read (kode)

if (kode! ß 808)

Writeln (“Kode yang Anda masukkan salah, ulangi input kode!”)

Else

Writeln (“Main Menu”)

Writeln (“1. Informasi Kartu”)

Writeln (“2. Layanan”)

Writeln (“Masukkan pilihan :”)

Read (pil1)

If (pil1==1)

Writeln (“Informasi kartu Anda adalah :”)

Writeln (“Saldo : Rp. 100.000,-”)

Writeln (“Kuota Internet              : 1250 MB”)

Writeln (“Kuota SMS : 25 SMS”)

Writeln (“Masa aktif kartu berlaku hingga 3 Februari 2015”)

Writeln (“Terimakasih”)

Else if (pil1==2)

Writeln (“Silahkan pilih layanan dibawah ini”)

Writeln (“1. m-Banking”)

Writeln (“2. Internet”)

Writeln (“Layanan yang dipilih :”)

Read (pil2)

If (pil2==1)

Writeln (“Bank Anda :”)

Read (bank1)

Writeln (“Bank Tujuan :”)

Read (bank2)

Writeln (“No Rekening :”)

Read (norek)

Writeln (“Nominal :”)

Read (nominal)

If (saldo < nominal)

Writeln (“Maaf, proses transfer tidak dapat dilakukan karena saldo Anda kurang”)

Else

Sisa1 <- saldo - nominal

Writeln (“Transfer sukses! Anda telah mentransfer sejumlah ", nominal, " ke bank ", bank2, ". Saldo rekening Anda saat ini adalah ", sisa1, " rupiah”)

else

Writeln (“1. 500 MB : 250000”)

Writeln (“2. 1 GB : 500000”)

Writeln (“Layanan yang dipilih :”)

Read (Pil3)

If (pil3==1)

Writeln (“Pembelian kuota internet sukses! Total kuota internet Anda adalah 1750 MB”)

Else

Writeln (“Pembelian kuota internet sukses! Total kuota internet Anda adalah 2250 MB”)

END

2. Flowchart

 3. Screenshot Console

 Gambar diatas adalah tampilan console yang muncul jika memilih menu nomer 1

 Console diatas akan muncul jika Anda memilih menu nomer 1 dan submenu nomer 1

  Console diatas akan muncul jika Anda memilih menu nomer 1 dan submenu nomer 2 

Program Kalkulator Fisika

B.   Kalkulator Fisika

B1. Deskripsi Program

                Progaram ini merupakan sebuah program kalkulator fisika. Seperti yang kita ketahui, kalkulator merupakan suatu alat yang digunakan untuk mempermudah oprasi perhitungan. Kalkulator yang biasa kita jumpai seperti kalkulator yang digunakan untuk oprasi hitung penjumlahan, pengurangan, perkalian dan lainnya. Program kalkulator fisika ini juga memiliki fungsi yang sama akan tetapi dengan rumus yang telah dibuat. Seperti program untuk menghitung total hambatan, program ini hanya digunakan untuk menghitung total hambatan karena telah mengcangkup rumus-rumus perhitungan besar total hambatan. Program ini sangat mudah untuk digunakan, dengan hanya menginputkan data yang dibutuhkan akan langsung menampilkan hasil perhitungannya. Diharapkan program ini dapat membantu untuk menyelesaikan suatu masalah dan mempermudah user dalam perhitungan.

 B2. Algoritma

       a. Pseudocode

Algoritma Total_Hambatan

{membuat sistem kalkulator fisika rumus total hambatan digunakan untuk menghitung besar total hambatan}

Deklarasi

jenis_rangkaian, A, B =  char

R1, R2, R3, ans = double

Deskripsi                                                                                       

Begin

Writeln (“Jenis Rangkaian ”)

Writeln (“A. Seri”)

Writeln (“B. Paralel”)

Writeln (“Masukkan jenis rangkaian”)

Jenis_rangkaian ß

A ß “Seri”

B ß “Paralel”

Writeln (“R1    :  ”)

Read (R1)

Writeln (“R2    :  ”)

Read (R2)

Writeln (“R3    :  ”)

Read (R3)

If (jenis_rangkaian. Equals (“A”))

Ans ß R1+R2+R3

Writeln (“Dengan hambatan ”, R1 “,” , R2 “dan” ,R3, “disusun secara SERI, total habatan yang dimiliki rangkaian tersebut adalah”, ans “ohm”)

Else if (jenis_rangkaian. Equals (“B”))

Ans ß 1/R1 + 1/R2 + 1/R3

Writeln (“Dengan hambatan ”, R1 “,” , R2 “dan” ,R3, “disusun secara PARALEL, total habatan yang dimiliki rangkaian tersebut adalah”, ans “ohm”)

Else

Writeln (“Maaf, anda salah input. Pastikan kembali anda menginput A atau B, lalu  kembali Run program”)

End

    b. Flowchart

B3. Screenshot Console

B4. Cara Penggunaan Program

                   Program ini begitu mudah untuk digunakan. Hanya dengan pengguna menginputkan data yang dibutuhkan dimulai dari jenis rangkaian dan besar hambatannya. Lalu program akan mengkalkulasi hambatan totalnya.

Program Reservasi Rental Mobil

      A. Reservasi Rental Mobil

   

      A.1 Deskripsi Program

             Di era modern ini, penggunaan computer sudah semakin luas, terutama di sector-sektor usaha. Dalam sebuah usaha rental mobil, diperlukan suatu program yang mampu menyimpan data-data klien yang meminjam mobil kepada pihak rental. Kali ini, kami mencoba membuat program tersebut demi memudahkan pihak pengusaha rental dalam menyimpan data-data klien dan mobilnya. Selain memudahkan dalam penyimpanan data, program ini juga membantu dalam masalh perhitungan total biaya yang harus dibayar oleh klien dan menghitung kembali yang harus dibayarkan oleh pegusaha jika klien mereka membayar dengan uang lebih. Dibandingkan dengan pendataan yang masih menggunakan bon berupa kertas yang masih ditulis secara manual, pendataan seperti itu rawan akan kehilangan data yang sudah dibuat. Oleh karenanya, kami membuat program seperti ini agar dapat memajukan industry rental mobil.

A.2 Algroritma

       a.  Pseudocode

      Berikut kami tampilkan pseudocode dari program yang kami buat:

Algoritma Rental_Mobil

{membuat sistem kasir reservasi pada rental mobil untuk peminjaman mobil dan pembayaran}

Deklarasi

harga_mobil, nama, no_ktp, jenis_kelamin, umur, pekerjaan, no_tlp, alamat_asal, alamat_tujuan, tanggal_peminjaman =  char

lama_peminjaman, n1, n2, n3, n4, n5 = byte

pajak, total, kembali, harga_sewa = double

jenis_mobil1 : int <- 1500000

jenis_mobil2 : int <- 1000000

jenis_mobil3 : int <- 700000

jenis_mobil4 : int <- 500000

jenis_mobil5 : int <- 450000

bayar  = Int

Deskripsi                                                                                       

Begin

Writeln ("--Jenis dan harga mobil yang dapat disewa-- ")

Writeln ("1. Alphard   = 1500000")

Writeln (“2. BMW       = 1000000”)

Writeln (“3. Jazz      = 700000”)

Writeln (“4. Xenia     = 500000”)

Writeln (“5. APV       = 450000”)

Writeln (“--IDENTITAS--”)

Writeln (“Masukkan Nama            :”)

Read (nama)

Writeln (“Masukkan No KTP          :”)

Read (no_ktp)

Writeln (“Masukkan Jenis Kelamin   :”)

Read (jenis_kelamin)

Writeln (“Masukkan Umur            :”)

Read (umur)

Writeln (“Masukkan Pekerjaan       :”)

Read (pekerjaan)

Writeln (“Masukkan No Tlp.         :”)

Read (no_tlp)

Writeln (“--DATA PERJALANAN--”)

Writeln (“Masukkan Alamat Asal     :”)

Read (alamat_asal)

Writeln (“Masukkan Alamat Tujuan   :”)

Read (alamat_tujuan)

Writeln (“Masukkan Tanggal Peminjaman    :”)

Read (tanggal_peminjaman)

Writeln (“Masukkan Lama Peminjaman :”)

Read (lama_peminjaman)

Writeln (“--Jenis Mobil--”)

Writeln (“Alphard                  :”)

Read (n1)

Writeln (“BMW                      :”)

Read (n2)

Writeln (“Jazz                     :”)

Read (n3)

Writeln (“Xenia                    :”)

Read (n4)

Writeln (“APV                      :”)

Read (n5)

harga_sewa <- ((jenis_mobil1 x n1) + (jenis_mobil2 x n2) + (jenis_mobil3 x n3)

+ (jenis_mobil4 x n4) + (jenis_mobil5 x n5)) x lama_peminjaman

Writeln (“Masukkan Harga Sewa : " , harga_sewa)

pajak <- (10 x harga_sewa)/100

Writeln (“Masukkan Pajak : " , pajak )

total <- harga_sewa + pajak

Writeln (“Masukkan Total : " , total”)

kembali <- bayar - total

If (bayar < total)

Writeln (“Maaf, pembayaran yang Anda lakukan kurang dari seharusnya. Penyewaan mobil tidak dapat dilakukan. Mohon membayar kekurangannya!”)

Else

kembali <- bayar - total

Writeln ("Nama             : " , nama)

Writeln (“No KTP           : " , no_ktp)

Writeln (“No Tlp.          : " , no_tlp)

Writeln (“Alamat Asal      : " , alamat_asal)

Writeln (“Alamat Tujuan    : " , alamat_tujuan)

Writeln (“Lama Peminjaman  : " , lama_peminjaman)

Writeln (“Alphard       : “, n1)

Writeln (“BMW           : “, n2)

Writeln (“Jazz          : " , n3)

Writeln (“Xenia         : " , n4)

Writeln (“APV           : " , n5)

Writeln (“Total         : " , total)

Writeln (“Bayar         :” , bayar)

Writeln (“Kembali       :” , kembali)

End

       b.  Flowchart

     A.3 Screenshot Console

            Screenshot console diatas merupakan data-data yang dibutuhkan sebelum melakukan peminjaman. Teks yang berwarna hijau adalah inputan yang diinput oleh user.

            Screenshot diatas merupakan hasil perhitungan dengan rumus yang telah ditetapkan di listing program tersebut. Di program ini juga tersedia fitur menghitung kembalian yang akan diterima penyewa ketika Ia membayar lebih. Teks yang berwarna hijau menunjukan jumlah uang yang Ia berikan.

            Screenshot diatas adalah rekapan atas segala input yang sudah dibuat. Rekap ini yang nantinya disimpan di database si pemilik rental mobil.

A.4. Cara Penggunaan Program

            Program ini sangat mudah digunakan. Ketika user me-Run program ini, maka akan muncul daftar identitas dan data yang harus diisi. Dan user hanya tinggal mengisi identitas dan data yang diminta. Yang pada akhirnya muncul jumlah yang harus dibayarkan oleh penyewa. Ketika penyewa membayar dengan sejumlah uang, user harus menginput nominal tersebut untuk mengetahui apakah uang yang diberikan kurang, pas atau lebih. Dan program akan mengkalkulasi uang tersebut dan akan mengeluarkan beberapa kemungkinan, yaitu user harus memberi kembalian, atau proses penyewaan tidak dapat dilakukan karena uang yang diberikan penyewa kurang. Ketika semua data dan pembayaran terpenuhi, program akan mengeluarkan rekapan dari identias dan data-data yang sudah diisi. Begitulah cara penggunaan program reservasi rental mobil. 

[MODUL 2] Console Program Reservasi Rental Mobil

[MODUL 2] Console Program Kalkulator Menghitung Hambatan Total Rangkaian Seri atau Pararel

[MODUL 2] Pseudocode Program Reservasi Rental Mobil

Pseudocode Reservasi Rental Mobil

Header

Algoritma_Rental_Mobil

{membuat sistem kasir reservasi pada rental mobil}

Deklarasi

harga_mobil; nama; no_ktp; jenis_kelamin; umur; pekerjaan; no_tlp; alamat_asal; alamat_tujuan; tanggal_peminjaman =  string

lama_peminjaman; harga_sewa; jenis_mobil1 = 1500000; jenis_mobil2 = 1000000; jenis_mobil3 = 700000; jenis_mobil4 = 500000; jenis_mobil5 = 450000 = Int

n1; n2; n3; n4; n5 = Int

pajak; total; bayar; kembali = Int

Deskripsi                                                                                       

Begin

Writeln (“-----------------------------------------------------------------------------------------”)

Writeln (“*******************************************************”)

Writeln (“                          Selamat Datang di Renta Mobil Industrial                    ”)

Writeln (“                                        Silahkan isi data berikut                                ”)

Writeln (“-------------------------------------------------------------------------------------------”)

Writeln (“”)

Writeln ("--Jenis dan harga mobil yang dapat disewa-- ")

Writeln ("1. Alphard   = 1500000")

Writeln (“2. BMW       = 1000000”)

Writeln (“3. Jazz          = 700000”)

Writeln (“4. Xenia       = 500000”)

Writeln (“5. APV         = 450000”)

Writeln (“-------------------------------------------------------------------------------------------”)

Writeln (“”)

Writeln (“--IDENTITAS--”)

Writeln (“Masukkan Nama                 :”)

Read (nama)

Writeln (“Masukkan No KTP               :”)

Read (no_ktp)

Writeln (“Masukkan Jenis Kelamin    :”)

Read (jenis_kelamin)

Writeln (“Masukkan Umur                 :”)

Read (umur)

Writeln (“Masukkan Pekerjaan          :”)

Read (pekerjaan)

Writeln (“Masukkan No Tlp.               :”)

Read (no_tlp)

Writeln (“--DATA PERJALANAN--”)

Writeln (“PS. Alamat asal dan alamat tujuan ditulis lengkap!!”)

Writeln (“Masukkan Alamat Asal       :”)

Read (alamat_asal)

Writeln (“Masukkan Alamat Tujuan   :”)

Read (alamat_tujuan)

Writeln (“Masukkan Tanggal Peminjaman    :”)

Read (tanggal_peminjaman)

Writeln (“Masukkan Lama Peminjaman        :”)

Read (lama_peminjaman)

Writeln (“--Jenis Mobil--”)

Writeln (“Alphard                   :”)

Read (n1)

Writeln (“BMW                       :”)

Read (n2)

Writeln (“Jazz                          :”)

Read (n3)

Writeln (“Xenia                       :”)

Read (n4)

Writeln (“APV                         :”)

Read (n5)

Writeln (“”)

Writeln (“”)

Writeln (“-------------------------------------------------------------------------------------------”)

Writeln (“********************************************************”)

Writeln (“                                         Renta Mobil Industrial                                    ”)

Writeln (“                                  Terimakasih telah meminjam                              ”)

Writeln (“--------------------------------------------------------------------------------------------”)

Writeln ("Nama                      : " + nama.toUpperCase() )

Writeln ("No KTP                     : " + no_ktp.toUpperCase() )

Writeln ("Jenis Kelamin          : " + jenis_kelamin.toUpperCase() )

Writeln ("Umur : " + umur.toUpperCase() )

Writeln ("Pekerjaan : " + pekerjaan.toUpperCase() );

Writeln ("No Tlp. : " + no_tlp.toUpperCase() );

Writeln ("Alamat Asal : " + alamat_asal.toUpperCase())

Writeln ("Alamat Tujuan : " + alamat_tujuan.toUpperCase())

Writeln ("Lama Peminjaman : " + lama_peminjaman + " hari")

Writeln ("Alphard       : " + n1 )

Writeln ("BMW                       : " + n2 )

Writeln ("Jazz  : " + n3 )

Writeln ("Xenia           : " + n4 )

Writeln ("APV              : " + n5 )

Writeln (“-------------------------------------------------------------------------------------------”)

Writeln (“********************************************************”)

Writeln (“                                      Rental Mobil Industrial                                                  ”)

Writeln (“                                    Harga yang harus dibayar                                   ”)

Writeln (“--------------------------------------------------------------------------------------------”)

Writeln (“TOTAL PEMBAYARAN”)

harga_sewa = ((jenis_mobil1*n1) + (jenis_mobil2*n2) + (jenis_mobil3*n3)

+ (jenis_mobil4*n4) + (jenis_mobil5*n5)) * lama_peminjaman

Writeln (“Masukkan Harga Sewa : " + harga_sewa)

pajak = (10 * harga_sewa)/100

Writeln (“Masukkan Pajak : " + pajak )

total = harga_sewa + pajak

Writeln (“Masukkan Total : " + total”)

Writeln (“--------------------------------------------------------------------------------------------”)

Writeln (“********************************************************”)

Writeln (“                                      Rental Mobil Industrial                                       ”)

Writeln (“                      Jl. Keluarga TI no 14, Tembalang Semarang                     ”)

Writeln (“                                            0286 (322551)                                               ”)

Writeln (“--------------------------------------------------------------------------------------------”)

Writeln ("Nama                      : " + nama.toUpperCase())

Writeln (“No KTP                    : " + no_ktp.toUpperCase())

Writeln (“No Tlp.                    : " + no_tlp.toUpperCase())

Writeln (“Alamat Asal            : " + alamat_asal.toUpperCase())

Writeln (“Alamat Tujuan        : " + alamat_tujuan.toUpperCase())

Writeln (“Lama Peminjaman             : " + lama_peminjaman + " hari")

Writeln (“Alphard       : " + n1”)

Writeln (“BMW           : " + n2”)

Writeln (“Jazz              : " + n3”)

Writeln (“Xenia           : " + n4”)

Writeln (“APV             : " + n5”)

Writeln (“------------------------------------------------------------------------------------------------”)

Writeln (“Total            : " + total)

Writeln (“Bayar          :”)

Read (bayar)

kembali = bayar - total

Writeln (“Kembali       : " + kembali)

Writeln (“                                                Terima Kasih                                                 ”)

Writeln (“("----------------------------------------------------------------------------------------------”)

End