Konversi Jam Ke Detik dengan Pascal

Bahasa Pemrograman Turbo Pascal sampai saat ini merupakan bahasa pemrograman yang masih populer dikalangan pendidikan, nah bagi anda yang baru belajar bahasa pemrograman pascal berikut sedikit trik program untuk Konversi Jam Ke Detik dengan Pascal, untuk implementasi kode program anda bisa menggunakan Lazarus, Turbo Pascal, atau Free Pascal berikut source code Konversi Jam Ke Detik dengan Pascal:

  
Program Konversi_Jam_ke_Detik;
{Dibaca jam-menit-detik (hh:mm:ss)}
{Konversilah jam-menit-detik ke dalam total detik}
{Code Written by Dede Kurniadi}
(*Deklarasi*)
type Jam=record
          hh:longint; {jam}
          mm:longint; {menit}
          ss:longint; {detik}
         end;

var
J : Jam;
Total_detik : longint;

(*Deskripsi*)
Begin
 write ('Jam    = '); readln (J.hh);
 write ('Menit  = '); readln (J.mm);
 write ('Detik  = '); readln (J.ss);
 total_detik:= (J.hh*3600) + (J.mm*60) + J.ss;
 writeln ('Total detik = ', total_detik);
 Readln;
end.

Selamat Mencoba :D

Konversi Jam Ke Detik dengan Pascal 100%out of 100% based on 5 ratings. 5 user reviews.