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
Console diatas akan muncul jika Anda memilih menu nomer 1 dan submenu nomer 1
Tidak ada komentar:
Posting Komentar