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)

Komentar

Postingan populer dari blog ini

Cara Membuat Halaman Login Hotspot Berbeda pada 1 Mikrotik

UltraISO Premium Edition v9.5.3

Arti OSAKMJ