Program Billing Pascal
Uses crt;
var
jam1,menit1,detik1,jam2,menit2,detik2,detik3 : integer ;
jam3,jam4,jamtotal,jumenit,sisajam,sisamenit,sisadetik,harga : longint ;
begin
clrscr;
writeln(‘- – – – – – – – – – – – – – – – ‘);
writeln(‘- – -Program Billing Warnet- – -‘);
writeln(‘- – – – – – – – – – – – – – – – ‘);
writeln(‘ Cyber Billing New Version ‘);
writeln(‘= = = = = = = = = = = = = = = = ‘);
writeln(‘ Tarif Termurah Rp.3000/Jam ‘);
writeln(‘= = = = = = = = == = = = = == = ‘);
writeln(‘ Tarif Bertambah 1500/15 menit ‘);
writeln(‘ Jika Lewat dari 1 Jam ‘ );
writeln;
writeln;
writeln(‘Jam Yang Diinput Berkisar Antara 00 Sampai 23’);
writeln;
writeln(‘Menit & Detik Yang Diinput Berkisar 0 Sampai 59’);
writeln;
writeln;
write(‘Masukkan Jam Login ( Jam Mulai ) : ‘); readln(jam1);
write(‘Masukkan Menit Login ( Menit Mulai ) : ‘); readln(menit1);
write(‘Masukkan Detik Login ( Detik Mulai ) : ‘); readln(detik1);
writeln;
write(‘Masukkan Jam Logout ( Jam Berhenti ) : ‘); readln(jam2);
write(‘Masukkan Menit Logout ( Menit Berhenti ) : ‘); readln(menit2);
write(‘Masukkan Detik Logout ( Detik Berhenti ) : ‘); readln(detik2);
jam3 := jam1*3600+menit1*60+detik1;
jam4 := jam2*3600+menit2*60+detik2;
jamtotal := jam4-jam3;
jumenit := jamtotal div 60;
sisajam := jamtotal div 3600;
sisamenit := jamtotal mod 3600 div 60;
sisadetik := jamtotal mod 3600 mod 60;
writeln;
writeln(‘Lama Anda Bermain Adalah ‘,sisajam,’ Jam ‘,sisamenit,’ Menit ‘,sisadetik,’ Detik ‘);
writeln;
if jumenit = 0 then writeln(‘Tarif Bermain Anda Rp. 0 ‘)
else if jumenit <= 60 then writeln(‘Tarif Bermain Anda Rp. 3000 ‘)
else if jumenit > 60 then
harga := sisamenit div 15 *1500 + 3000*sisajam;
writeln(‘Tarif Anda Bermain Adalah Rp. ‘,harga);
readln;
Program Billing Pascal |
Download Program Pascal Billing Warnet Sederhana
Penjelasan :