Program Konversi Detik dalam Bahasa Pascal dan C++

Bahasa Pascal

Program Konversi_Detik;

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

type Jam = record

                    j,m,d:integer;

                    end;

var

        J:Jam;

        totaldetik,sisa:integer;

begin

        write('masukkan total detik : ');readln(totaldetik);

        J.j:=totaldetik div 3600;

        sisa:=totaldetik mod 3600;

        J.m:=sisa div 60;

        J.d:=sisa mod 60;

        writeln(J.j,' : ',J.m,' : ',J.d);

end.

Program Konversi_Detik dalam Bahasa C++

#include <iostream>

using namespace std;

int main() {

                struct jam {

                                int j, m, d;

                }J;

                int totaldetik,sisa;

               

                cout<<"masukkan total detik : ";cin>>totaldetik;

                J.j=totaldetik/3600;

                sisa=totaldetik%3600;

                J.m=sisa/60;

                J.d=sisa%60;

                cout<<J.j<<" : "<<J.m<<" : "<<J.d;

               

                return 0;

}