program warnet;
uses WinCrt;
const
biaya=20;  {per pulsa 20 rupiah}
pulsa=10;  {satu pulsa = 10 detik}

type
jam = record
hh : integer; {jam dibatasi antara pukul 0 sampai 23}
mm, ss : integer; {menit dan detik dibatasi antara 0 sampai 59}
end;

var
jam1,jam2,jam3 : jam;
detik1,detik2,detik3 : integer;
harga : real;

begin
clrscr;
write(’jam awal : ‘; readln(jam1.hh);  {catat jam awal}
write(’menit awal : ‘;readln(jam1.mm); {catat menit awal}
write(’detik awal : ‘;readln(jam1.ss); {catat detik awal}
writeln;
write(’jam akhir : ‘;readln(jam2.hh);   {catat jam akhir}
write(’menit akhir : ‘;readln(jam2.mm); {catat menit akhir}
write(’detik akhir : ‘;readln(jam2.ss); {catat detik akhir}
writeln;
{mengubah waktu ke satuan detik}
detik1:=(jam1.hh*3600)+(jam1.mm*60)+jam1.ss; {waktu awal}
detik2:=(jam2.hh*3600)+(jam2.mm*60)+jam2.ss; {waktu akhir}
detik3:=detik2-detik1;                       {mencari selisih waktu dalam detik}

{karena 30 detik pertama harganya 1000 rupiah, kita buat dengan if}
if detik3<=30 then  {30 detik pertama}
begin
writeln(’waktu anda ‘,detik3,’ detik. Anda dikenakan biaya 1000 rupiah. Terima kasih’;
end

else

begin
{mengubah detik ke format hh,mm,ss}
jam3.hh:=detik3 div 3600;
jam3.mm:=detik3 mod 3600 div 60;
jam3.ss:=detik3 mod 3600 mod 60;

{menghitung biaya}
harga:=(detik3/pulsa)*biaya;

writeln(’waktu anda : ‘,jam3.hh,’ jam ‘,jam3.mm,’ menit ‘,jam3.ss,’ detik.’;
writeln(’Anda dikenakan biaya ‘,harga:0:2,’ rupiah. Terima kasih’;
end;
end.

Posting Terkait

• Tidak ada Posting Terkait