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;

}

Posting Komentar

0 Komentar