Program Menghitung Tagihan Telepon

Untuk program yang ke-2 ini tidak jauh berbeda dengan program sebelumnya, hanya saja ada penambahan sedikit dari input dan outputnya tapi bisa dibilang masih sederhana. Untuk ketentuan dalam program ini adalah sebagai berikut :

Input     : NamaPelanggan, Percakapan, SMS.

Output : Nama, Percakapan, SMS, Abodemen, BiayaPercakapan, BiayaSMS, PotonganPercakapan, TotalBiaya.

Ketentuan : jika Percakapan >= 30 maka mendapat potongan sebesar 5% dari BiayaPercakapan, dan jika Percakapan >= 60 maka mendapat potongan sebesar 10% dari BiayaPercakapan. Sedangkan, untuk “BiayaPercakapan = Percakapan * 1000/menit”, ”BiayaSMS = SMS * 150/sms. Abodemen sebesar Rp 25000.

Script / Coding :

{Nama Program}

program MenghitungTagihanTelepon;

uses wincrt;

{Variabel }

var

   pelanggan : string;

   cakap, sms, bcakap, tcakap, bsms, abodemen, potongan, total : real;  

{Badan Program}

begin

writeln('----------Materi Percabangan-----------');

writeln;

writeln('2. Program Menghitung Tagihan Telepon');

writeln('---------------------------------------');

{Input Data}

write('Nama Pelanggan : ');readln(pelanggan);

gotoxy(24,6);

writeln('Menit');

gotoxy(0,6);

write('Percakapan     : ');read(cakap);

gotoxy(24,7);

writeln('Kali');

gotoxy(0,7);

write('SMS            : ');read(sms);

writeln('---------------------------------------');

writeln;

{Proses}

abodemen := 25000;

bcakap := cakap * 1000;

bsms := sms * 150;

{Pengkondisian}

if cakap>=60 then

potongan := bcakap * 0.10

else if (cakap<60) and (cakap>=30) then

potongan := bcakap * 0.05;

tcakap := bcakap - potongan;                 

total := abodemen + tcakap + bsms;

{Output Data}

writeln('Nama                = Sdr/i. ',pelanggan);

writeln('Percakapan          = ',cakap:0:0);gotoxy(28,11);writeln('Menit');

writeln('Sms                 = ',sms:0:0);gotoxy(28,12);writeln('Kali');

writeln('---------------------------------------');

writeln('Abodemen            = Rp ',abodemen:0:0);

writeln('---------------------------------------');

writeln('Biaya Percakapan    = Rp ',bcakap:0:0);

writeln('Biaya SMS           = Rp ',bsms:0:0);

writeln('---------------------------------------');

writeln('Potongan Percakapan = Rp ',potongan:0:0);

writeln('---------------------------------------');

writeln('Total Biaya         = Rp ',total:0:0);

{Pindah Baris}

writeln;

writeln('By : Hacker Impossible');

end.