PROGRAM RESERVASI PULSA ONLINE

Pseudocode

Progam Reservasi_pulsa_online_kelompok_38

{Progam mengenai reservasi pulsa online oleh kelompok 38}

Input:

Nama,nohp,pulsa5=6000,pulsa10=11000,pulsa20=21000,pulsa50=51000,pulsa100=99000,jum1,jum2,jum3,jum4,jum5,total

Declaration

Nama,nohp,norek :string

pulsa5=6000,pulsa10=11000,pulsa20=21000,pulsa50=51000,pulsa100=99000,jum1,jum2,jum3,jum4,jum5,total :int

Description

Println(“----------------------------------------“);

Println(“|RESERVASI|”);

Println(|PULSA ONLINE|”);

Println(“|KELOMPOK38|”);

Println(“----------------------------------------“);

Println(“HARGA PULSA);

Println(“PULSA 5 RIBU=6000”);

Println(“PULSA 10 RIBU=11000”);

Println(“PULSA 20 RIBU=21000”);

Println(“PULSA 50 RIBU=51000”);

Println(“PULSA 100 RIBU=99000”);

Println(“----------------------------------------“);

Println(““);

Writeln(“Nama pemesan pulsa :”);

Read(nama);

Writeln(“Masukkan Nomor HP anda “);

Read(nohp);

Writeln(“Masukkan Nomor rekening anda “);

Read(norek);

Println(“----------------------------------------“);

Println(“PILIH jumlah pulsa yang ingin anda beli”);

Writeln(“PULSA  5000 :”);

Read(jum1);

Writeln(“PULSA 10000 “);

Read(jum2);

Writeln(“PULSA 20000 “);

Read(jum3);

Writeln(“PULSA 50000 “);

Read(jum4);

Writeln(“PULSA 100000 “);

Read(jum5);

Println(“”);

Total=(jum1*pulsa5)+(jum2*pulsa10)+(jum3*pulsa20)+(jum4*pulsa50)+(jum5*pulsa100);

Read(total);

Println(“----------------------------------------“);

Println(“TERIMA KASIH TELAH MEMBELI PULSA ONLINE DI KELOMPOK 38”);

Println(“”)

Println(“DATA PEMBELIAN PULSA ONLINE: ”);

Println(“Nama : ”+nama);

Println(“No.HP : ”+nohp);

Println(“Pulsa yang anda beli : ”);

Println(“Pulsa  5rb : ”+jum1);

Println(“Pulsa 10rb : ”+jum2);

Println(“Pulsa 20rb : ”+jum3);

Println(“Pulsa 50rb : ”+jum4);

Println(“Pulsa 100rb : ”+jum5);

Println(“----------------------------------------“);

Println(“TOTAL PEMBAYARAN : “+total);

Println(“PEMBAYARAN MAKSIMAL  1X24 JAM KE REK BCA 012345678 a/n Ke138);

Println(“PULSA TIDAK AKAN DITRANSFER JIKA BATAS PEMBAYARAN DILANGGAR);

End

FLOWCHART

 LISTING PROGRAM

 HASIL PROGRAM DARI LISTING DIATAS