Download Source Code Aplikasi

Program Billing Pascal

Saturday, November 9th, 2019 - Program Pascal
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 
Program Billing Pascal   
Program Billing Pascal
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.
Download Source Code Aplikasi
Program Billing Pascal | Ahmad Code | 4.5