Program Billing Pascal

Malam ini saya akan membahas tentang program billing pascal dimana tarif per jam dari billing dari Rp. 3000 dan setelah itu tarif akan bertambah secara otomatis sebesar Rp. 1500 per menit langsung 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 program adalah sebagai berikut 

jika anda malas mengetik dan ingin langsung mencoba program ini ataupun sekedar menambah koleksi program pascal anda, silahkan download file program ini yang sudah saya kompilasi.

Download Program Pascal Billing Warnet Sederhana 

Penjelasan :

program akan mengubah setiap angka yang diinput dalam satua detik lalu mencari jamtotal dalam satuan detik selanjutnya program akan mengeksekusi instruksi perhitungan dimana lama jam bermain yaitu jam = jamtotal div 3600, sisamenit = jamtotal mod 3600 div 60, sisadetik = jamtotal mod 3600 mod 60 lalu dilanjutkan dalam penyeleksian kondisi jika jumenit = 0 maka tarif Rp.0 ,jika jumenit < 60 maka tarif Rp. 3000 dan jika 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.