Kelompok Lima Anti Gaptek: Program Provider Pulsa

A. Program Provider Pulsa
A1. Deskripsi program
Program ini merupakan program selayaknya provider pulsa selayaknya kita sedang mengecek pulsa di *xxx#. Didalam program ini terdiri dari menu utama dan sub-sub menu seperti informasi pulsa, layanan m-banking dan layanan pembelian internet. Pembuatan program ini juga mengasah kemampuan kami dalam membuat listing dan menerapkan struktur kontrol di Java.

A2. Algoritma
A2.1. Pseudocode

Algoritma provider_pulsa

{Membuat sistem provider Pulsa}

Deklarasi

bank1, bank2, norek, pil1, pil2, pil3 = char

saldo : int <- 3000000

pulsa : int <- 100000

sisa1 : double <- 0

sisa2 = double

nominal : int <- 0

kode : int <- 808

Deskripsi

Begin

Writeln (“Kode Provider Anda adalah 808”)

Writeln (“Masukkan kode :”)

read (kode)

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

While (kode ! = 808)

Writeln (“Main Menu”)

Writeln (“1. Informasi Kartu”)

Writeln (“2. Layanan”)

Writeln (“Masukkan pilihan :”)

Read (pil1)

If (pil1 equals ("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 equals ("2"))

Writeln (“Silahkan pilih layanan dibawah ini”)

Writeln (“1. m-Banking”)

Writeln (“2. Internet”)

Writeln (“Layanan yang dipilih :”)

Read (pil2)

If (pil2 equals ("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 equals("1"))

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

sisa2 = pulsa – 25000

Writeln ("Sisa pulsa Anda adalah " + sisa2)

Else if

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

sisa2 = pulsa – 50000