3 ALGORITMA SEDERHANA PENGHITUNGAN BIAYA WARNET

Program Warnet
{menghitung biaaya yang haru dibayar oleh seorang penyewa warnet}.Masukkan adalah waktu awal dan waktu selesai internet (hh:mm:ss)
.keluaran adalah lama dan biaya internet/jam = Rp 3000,- kelebihan waktu/menit=Rp50,- /detik=Rp10,-}

DEKLARASI
const BiayaPerJam : 3000{Biaya PerJam}
const BiayaPerMenit : 50{Biaya kelebihan waktu PerMenit}
const BiayaPerDetik : 10{Biaya kelebihan waktu PerDetik}
biaya=(j3.hh*BiayaPerjam) + (j3.mm*BiayaPerMenit) + (j3.ss*BiayaPerDetik)

Type jam : record < hh : integer, {0..23}
                    mm : integer, {0..59}
ss : integer, {0..59}
>
j1: Jam{ Jam masuk}
j2: Jam{ Jam keluar}
j3: Jam{ Selisih j1 dengan j2}
TotalDetik1, TotalDetik2, TotalDetik3 : integer
sisa : integer{peubah bantu untuk menamping sisa pembagian}
durasi : integer
biaya : real

ALGORITMA
read (j1.hh, j1.mm, j1.ss){Jam masuk}
read (j2.hh, j2.mm, j2.ss){Jam Keluar}

TotalDetik1 <- {j1.hh*BiayaPerJam) + (j1.mm*BiayaPerMenit) + j1.ss
TotalDetik2 <- {j2.hh*BiayaPerJam) + (j2*BiayaPerMenit) + j2.ss

durasi <- TotalDetik2 - TotalDetik1 {Mencari Selisih Detik}

j3.hh <- SelisihDeik div 3600
sisa <- SelisihDetik mod 3600
j3.mm <- sisa div 60
j3.ss <- sisa mod 60
write(j3.hh,j3.mm,j3.ss,biaya)