Beranda > Komputer > Program Menghitung Selisih Waktu – Pascal

Program Menghitung Selisih Waktu – Pascal


Kamu bisa menghitung selisih waktu pertama dan kedua dengan cepat. Kamu tinggal menulis jam, menit, dan detik pada waktu pertama dan kedua, maka secara otomatis kamu akan langsung mengetahui selisih kedua waktu itu.

Yang kamu perlukan dalam membuat program ini hanyalah kamu mengetahui kalau 1 menit =  60 detik dan 1 jam = 3600 detik.

Berikut kode program Menghitung Selisih Waktu dengan menggunakan Turbo Pascal Writer :

Program Menghitung_Selisih_Waktu;
Uses WinCrt;
Var j,m,d,h,j1,m1,d1,h1,hj,hm,sl,sisa,sisa1:longint;
Begin
Writeln(‘Program Menghitung Selisih Waktu’);
Writeln(‘================================’);
Writeln;
Write(‘Waktu ke-1 jam : ‘);readln(j);
Write(‘Waktu ke-1 Menit : ‘);readln(m);
Write(‘Waktu ke-1 Detik : ‘);readln(d);
Writeln(‘================================’);
Write(‘Waktu ke-2 jam : ‘);readln(j1);
Write(‘Waktu ke-2 Menit : ‘);readln(m1);
Write(‘Waktu ke-2 Detik : ‘);readln(d1);
h:=(j*3600)+(m*60)+d;
h1:=(j1*3600)+(m1*60)+d1;
sl:=h1-h;
if (sl/3600)>0 then
begin
hj:=sl div 3600;
sisa:=sl-(hj*3600);
end
else
begin
hj:=0;
sisa:=sl;
end;
if (sisa/60)>0 then
begin
hm:=sisa div 60;
sisa1:=sisa-(hm*60);
end
else
begin
hm:=0;
sisa1:=sisa;
end;
Writeln;
Writeln(‘Selisih Waktu: ‘,hj,’ jam ‘,hm,’ Menit ‘,sisa1,’ Detik’);
End.

Copy kode diatas kemudian paste di TPW milik kamu.

Program yang sudah bisa dijalankan tampilannya seperti ini

Selisih Waktu

  1. April 22, 2013 pukul 10:53 pm

    klo mencari p menit yg lalu gmn bro? misal jam 2,30menit 30 detik p menit 30 adalah 2.0.30

  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: