BLOGNGUIK

sebenernya pake case of lebih efisien, tapi gak papa...nih dulu pas ngerjain kan belum dapet bab case of. haha

cap cuuuuuzzzzz...letz eksekusi programnya!!


program tarif_parkir_by_fitri_cute;
uses crt;
{author: NOOT FITRIANA,ILMU KOMPUTER 2008, date:lali}
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.