Malam ini aku akan membahas wacana kegiatan billing pascal dimana tarif per jam dari billing dari Rp. 3000 dan sehabis itu tarif akan bertambah secara otomatis sebesar Rp. 1500 per menit eksklusif saja cek codingnya.
Program Billing_warnet;
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
begin
harga := sisamenit div 15 *1500 + 3000*sisajam;
writeln(‘Tarif Anda Bermain Adalah Rp. ‘,harga);
end;
readln;
End.
output dari kegiatan yakni sebagai berikut
kalau anda malas mengetik dan ingin eksklusif mencoba kegiatan ini ataupun sekedar menambah koleksi kegiatan pascal anda, silahkan download file kegiatan ini yang sudah aku kompilasi.
Download Program Pascal Billing Warnet Sederhana
Penjelasan :
kegiatan akan mengubah setiap angka yang diinput dalam satua detik kemudian mencari jamtotal dalam satuan detik selanjutnya kegiatan akan mengeksekusi isyarat perhitungan dimana usang jam bermain yaitu jam = jamtotal div 3600, sisamenit = jamtotal mod 3600 div 60, sisadetik = jamtotal mod 3600 mod 60 kemudian dilanjutkan dalam penyeleksian kondisi kalau jumenit = 0 maka tarif Rp.0 ,jika jumenit < 60 maka tarif Rp. 3000 dan kalau keduanya tidak memenuhhi kondisi maka dilanjutkan ke kondisi jumenit > 60 maka akan masuk dalam rumus perhitungan harga = sisamenit div 15 *1500 + 3000*sisajam sehingga diperoleh tarif bermain.
Demikian yang dapat kami share kepada sobat source code aplikasi pada kesempatan ini, semoga dapat bermanfaat dan bisa menjadi referensi pemrograman bagi anda. Jangan lupa like
Fan Page kami, dan
SUBSCRIBE Channel Youtube kami untuk dapatkan update source code aplikasi terbaru.