Pseudocode, Flowchart, Console Program ReservasI Pulsa Online

Pseudocode

Progam Reservasi_pulsa_online_kelompok_38

{ Progam mengenai reservasi pulsa online oleh kelompok 38 }

Input: nama,nohp,norek,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

Begin

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

Writeln("|RESERVASI|");

Writeln("|PULSA ONLINE|");

Writeln("|KELOMPOK38|");

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

Writeln("                HARGA PULSA             ");

Writeln("           PULSA 5 RIBU=6000            ");

Writeln("           PULSA 10 RIBU=11000          ");

Writeln("           PULSA 20 RIBU=21000          ");  

Writeln("           PULSA 50 RIBU=51000          ");

Writeln("           PULSA 100 RIBU=99000         ");

Writeln("----------------------------------------");

Writeln("");

Writeln("Nama Pemesan pulsa :");

Read (nama);

Writeln("Masukkan Nomor HP anda :");

Read (nohp);

Writeln("Masukkan Nomer rekening anda :");

Read (norek);

Writeln("----------------------------------------");

Writeln("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);

Writeln("");

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

read(total);

Writeln("----------------------------------------");

Writeln("TERIMAKASIH TELAH MEMBELI PULSA ONLINE DI KELOMPOK38");

Writeln("");

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 1x24JAM KE REK BCA 012345678 a/n Kel38");

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

End

FLOWCHART

SCREENSHOT 2 CONSOLE PROGRAM :

 SCREENSHOT 2 CONSOLE PROGRAM :