Penghitungan Biaya Parkir dalam Turbo Pascal

Setelah mengetahui dan memahami pengertian dan sistematika pada algoritma dan turbo pascal, sedikit apresiasi dari program tersebut adalah contoh bagaimana cara penghitungan biaya parkir menggunakan program tubo pascal.

            Berikut merupakan contoh penghitungan biaya parkir menggunakan turbo pascal:

uses crt;
var
jam1 , menit1, detik1 : integer ;

jam2 , menit2, detik2 : integer ;
jam3, menit3, detik3 : integer ;
total1, total2, total : integer;
pilih : char ;
tarif1 , tarif2, bayar : integer;

begin;
writeln('Pilih Jenis kendaraan : ') ;
writeln('1. MOBIL');
writeln('2. MOTOR');
write('Pilihan Anda : '); readln(pilih);

clrscr;

writeln('Masukkan waktu masuk') ;
write('Jam : '); readln(jam1); write(' Menit '); readln(menit1); write(' Detik '); readln(detik1);
writeln('Masukkan waktu keluar');
write('Jam : '); readln(jam2); write(' Menit '); readln(menit2); write(' Detik '); readln(detik2);

if (pilih = '1') then
begin
tarif1 := 2000;
tarif2 := 1000;
end
else
begin
if (pilih = '2') then
begin
tarif1 := 1000;
tarif2 := 500 ;
end;
end;
total1 := jam1*3600 + menit1*60 + detik1 ;
total2 := jam2*3600 + menit2*60 + detik2 ;
total := total2 - total1 ;

jam3 := total div 3600 ;
menit3 := (total mod 3600) div 60 ;
detik3 := (total mod 3600) mod 60 ;

if ((menit3 > 0) or (detik3 > 0)) then
begin
jam3 := jam3 + 1;
menit3 := 0 ;
detik3 := 0 ;
end ;

if (jam3 <= 2) then
begin
bayar := tarif1 * jam3 ;
end
else
begin
bayar := tarif1*2 + tarif2*(jam3 - 2) ;
end ;

writeln('Waktu masuk : ',jam1,':',menit1,':',detik1);
writeln('Waktu keluar : ',jam2,':',menit2,':',detik2);
writeln;
writeln('Durasi : ',jam3,':',menit3,':',detik3);
writeln('Bayar : Rp.',bayar) ;

readln;
end.

Silahkan di coba Gan.. ... :D