Algoritma Konversi Detik

Program Konversi_Detik

{Dibaca sebuah jam dalam detik tampilkan dalam bentuk jam, menit, detik}

Deklarasi :

type Jam : record   < j : integer, m : integer, d : integer >

        J:Jam

        totaldetik, sisa : integer

Algoritma :

        read(totaldetik)

        J.j ? totaldetik div 3600

        sisa ? totaldetik mod 3600

        J.m ? sisa div 60

        J.d ? sisa mod 60

        write(J.j, J.m, J.d)