Pseudocode Tugas Provider
Header:
Program: Paket_Internet_Provider_Empati
{Memilih Paket Internet di Provider Empati}
Declaration:
kode, Pulsa, harga11, harga12, harga21, harga22, harga31, harga32, harga4, Pilihan0, Pilihan1, Pilihan2, Pilihan3, Pilihan4, Pilihan11, Pilihan21, Pilihan31, Pilihan41, sisapulsa11,sisapulsa12, sisapulsa21, sisapulsa22, sisapulsa31, sisapulsa32, sisapulsa4 :integer
Deskripsi:
Begin
Println" Selamat Datang di Paket Internet Murah EMPATI"
Println" Provider Empati, Jagoannya Internetan Cepat dan Murah"
Write “Masukkan kode :”
Read kode
If kode≠999 {
Println “Maaf, Kode yang Anda Masukkan Salah”}
else
if kode= 999 {
Println" Provider Empati, Jagoannya Internetan Cepat dan Murah"}
Writeln"Pulsa Anda Sebesar Rp."+ Pulsa);
Println"Berikut ini adalah Paket Internet Berdasarkan Masa Aktif :”
Println"(1). Paket Harian "
Println"(2). Paket Mingguan"
Println"(3). Paket Bulanan"
Println"(4). Paket Weekend"
Write"Masukkan Pilihan Anda :"
Read Pilihan0
if (Pilihan0>=5)
Println "Maaf, Pilihan Anda Salah”
switch (Pilihan0) {
case 1:
Println"Berikut ini adalah Pilihan Paket Internet Harian:"
Println”(1). Paket Anak Muda (BBM, Whatsapp, Line, Facebook, Twitter, Path, Instagram"
Println"(2). Paket Orang Sibuk (Internet Lengkap)"
Println”(0).Keluar”
Write “Masukkan Pilihan Anda :"
Read Pilihan1
if (Pilihan1>=3)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan1==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
if (Pilihan1 == 1) {
Println"Paket Anak Muda Harian"
Println"Anda Dapat Menikmati BBM, Whatsapp, Line, Facebook, Twitter, Path, Instagram Sepuasnya"
Println"Masa Aktif Paket 24 Jam"
Writeln"Paket ini Berharga Sebesar Rp."+ harga11
Println"(1). Aktifkan"
Println"(0). Keluar"
Write"Masukkan Pilihan Anda :"
Read Pilihan11
if (Pilihan11>=2)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan11 == 1 && Pulsa >= harga11) {
Println"Selamat, Paket Anak Muda Harian dapat Anda Nikmati hingga 24 Jam kedepan"
sisapulsa11 = Pulsa-harga11;
Writeln("Sisa Pulsa Anda Sebesar Rp."+sisapulsa11);}
if (Pilihan11 == 1 && Pulsa<harga11) {
Println"Maaf, Pulsa Anda Tidak Mencukupi."
if (Pilihan11==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
}}
if (Pilihan1 == 2) {
Println"Paket Orang Sibuk Harian"
Println"Anda Dapat Menikmati Internet Sepuasnya"
Println"Masa Aktif Paket 24 Jam"
Writeln"Paket ini Berharga Sebesar Rp."+ harga12
Println"(1). Aktifkan"
Println”(0). Keluar”
Write "Masukkan Pilihan Anda :"
Read Pilihan 11
if (Pilihan11>=2)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan11 == 1 && Pulsa >= harga12) {
Println"Selamat, Paket Orang Sibuk Harian dapat Anda Nikmati hingga 24 Jam kedepan"
sisapulsa12 = Pulsa-harga12;
Writeln("Sisa Pulsa Anda Sebesar Rp."+sisapulsa12);}
if (Pilihan11 == 1 && Pulsa<harga12) {
Println"Maaf, Pulsa Anda Tidak Mencukupi."
if (Pilihan11==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
}}
break;
case 2 :
Println"Berikut ini adalah Pilihan Paket Internet Mingguan:"
Println"(1). Paket Anak Muda (BBM, Whatsapp, Line, Facebook, Twitter, Path, Instagram"
Println"(2). Paket Orang Sibuk (Internet Lengkap))"
Println”(0).Keluar”
Write"Masukkan Pilihan Anda :”
Read Pilihan2
if (Pilihan2>=3)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan2==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
if (Pilihan2 == 1) {
Println"Paket Anak Muda Harian"
Println"Anda Dapat Menikmati BBM, Whatsapp, Line, Facebook, Twitter, Path, Instagram Sepuasnya"
Println"Masa Aktif Paket 24 Jam"
Writeln"Paket ini Berharga Sebesar Rp."+ harga21
Println"(1). Aktifkan”;
Println"(0). Keluar"
Write"Masukkan Pilihan Anda :"
Read Pilihan 21
if (Pilihan21>=2)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan21 == 1 && Pulsa >= harga21) {
Println"Selamat, Paket Anak Muda Mingguan dapat Anda Nikmati hingga 7x24 Jam kedepan"
Sisapulsa21 = Pulsa-harga21;
Writeln("Sisa Pulsa Anda Sebesar Rp."+sisapulsa21);}
if (Pilihan21 == 1 && Pulsa<harga21) {
Println"Maaf, Pulsa Anda Tidak Mencukupi."
if (Pilihan21==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
}
if (Pilihan2 == 2) {
Println"Paket Orang Sibuk Mingguan"
Println"Anda Dapat Menikmati Internet Sepuasnya"
Println"Masa Aktif Paket 24 Jam”
Writeln"Paket ini Berharga Sebesar Rp."+ harga22
Println"(1). Aktifkan"
Println”(0).Keluar”
Write"Masukkan Pilihan Anda :"
Read Pilihan 21
if (Pilihan21>=2)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan21 == 1 && Pulsa >= harga22) {
Println"Selamat, Paket Orang Sibuk Mingguan dapat Anda Nikmati hingga 7x24 Jam kedepan"
Sisapulsa22 = Pulsa-harga22;
Writeln("Sisa Pulsa Anda Sebesar Rp."+sisapulsa22);}
if (Pilihan21 == 1 && Pulsa < harga22) {
Println"Maaf, Pulsa Anda Tidak Mencukupi."
if (Pilihan21==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
}}
break;
case 3 :
Println"Berikut ini adalah Pilihan Paket Internet Bulanan:"
Println"(1). Paket Anak Muda (BBM, Whatsapp, Line, Facebook, Twitter, Path, Instagram"
Println"(2). Paket Orang Sibuk (Internet Lengkap))"
Println”(0). Keluar”
Write"Masukkan Pilihan Anda :"
Read Pilihan3
if (Pilihan3>=3)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan3==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
if (Pilihan3 == 1) {
Println"Paket Anak Muda Harian"
Println"Anda Dapat Menikmati BBM, Whatsapp, Line, Facebook, Twitter, Path, Instagram Sepuasnya"
Println"Masa Aktif Paket 30 Hari"
Writeln"Paket ini Berharga Sebesar Rp."+ harga31
Println"(1). Aktifkan"
Println"(0). Keluar"
Write"Masukkan Pilihan Anda :"
Read Pilihan31
if (Pilihan31>=2)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan31 == 1 && Pulsa >= harga31) {
Println"Permintaan Anda Telah Diproses"
Println"Selamat, Paket Anak Muda Mingguan dapat Anda Nikmati hingga 30 Hari kedepan"
Sisapulsa31 = Pulsa-harga31;
Writeln("Sisa Pulsa Anda Sebesar Rp."+sisapulsa31);}
if (Pilihan31 == 1 && Pulsa<harga31) {
Println"Maaf, Pulsa Anda Tidak Mencukupi."
if (Pilihan31==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
}}
if (Pilihan3 == 2) {
Println"Paket Orang Sibuk Mingguan"
Println"Anda Dapat Menikmati Internet Sepuasnya";
Println"Masa Aktif Paket 30 Hari";
Writeln"Paket ini Berharga Sebesar Rp."+ harga32);
Println"(1). Aktifkan"
Println”(0).Keluar”
Write"Masukkan Pilihan Anda :"
Read Pilihan 31
if (Pilihan31>=2)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan31 == 1 && Pulsa >= harga32) {
Println"Selamat, Paket Orang Sibuk Bulanan dapat Anda Nikmati hingga 30 Hari kedepan"
Sisapulsa32 = Pulsa-harga32;
Writeln("Sisa Pulsa Anda Sebesar Rp."+sisapulsa32);}
if (Pilihan31 == 1 && Pulsa <harga32) {
Println"Maaf, Pulsa Anda Tidak Mencukupi."
if (Pilihan32==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
}}
break;
case 4 :
Println"Berikut ini adalah Pilihan Paket Internet Weekend:"
Println"(1). Paket Skype Sabtu-Minggu"
Println”(0). Keluar”
Write"Masukkan Pilihan Anda :"
Read Pilihan4
if (Pilihan4>=2)
Println "Maaf, Pilihan Anda Salah”
if (Pilihan4==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
if (Pilihan4 == 1) {
Println"Paket Skype Sabtu-Minggu"
Println"Anda Dapat Menikmati Skype Sepuasnya"
Println"Masa Aktif Paket Sabtu 00:00 - Minggu 24:00"
Writeln"Paket ini Berharga Sebesar Rp."+ harga4
Println"(1). Aktifkan"
Println”(0). Keluar”
Write"Masukkan Pilihan Anda :"
Read Pilihan41
if (Pilihan41>=2)
Println "Maaf, Pilihan Anda Salah”
If Pilihan41 == 1 && Pulsa >= harga4) {
Println"Selamat, Paket Skype Sabtu-Minggu dapat Anda Nikmati pada Sabtu 00:00 hinga Minggu 24:00"
Sisapulsa4 = Pulsa-harga4;
Writeln("Sisa Pulsa Anda Sebesar Rp."+sisapulsa4);}
If Pilihan41 == 1 && Pulsa< harga4) {
Println"Maaf, Pulsa Anda Tidak Mencukupi."
if (Pilihan41==0){
Println("Terimakasih Telah mengunjungi Pilihan Paket Internet Empati");}
}}
}}}
End
Berikut adalah flowchart dari Provider Pulsa
Berikut adalah flowchart dari Provider Pulsa
Berikut adalah screenshot dari console program
Tidak ada komentar:
Posting Komentar