[Source Code Pascal] Program Konversi Waktu

Saat ini, program program pascal, mungkin sudah banyak diPosting di berbagai blog dengan tujuan utamanya untuk sekedar berbagi, atau membantu siswa TKJ mengenai hal Pemograman dasar Pascal. Saya disini juga akan berbagi Source Code Program Pascal. Dan berikut adalah salah satu program Pascal yang telah saya buat. Program ini bernama program Konversi Waktu. Mungkin Source Code seperti yang saya buat ini sudah banyak diPosting oleh banyak blog lain. Tetapi tetap saja, fungsi dari program ini akan sama, yaitu mengkonversi/mengubah waktu ke dalam bentuk satuan jam, menit, ataupun detik. dan yang saya buat adalah konversi kedalam satuan detik.

Selamat mencoba, dan selamat belajar!. Saya sarankan agar mengamati Source Code tersebut biar cepet Pinter!. 

program konversi_waktu;
{Akan mengkonversikan waktu ke dalam satuan detik.}
{Oleh: M.Yusuf Nurfajar}
uses wincrt;
var
   j,m,d,h:longint;
   u:char;
begin
   u:='y';
   while u='y' do
      begin
         clrscr;
         gotoxy(35,4);writeln('KONVERSI WAKTU');
         gotoxy(21,5);writeln('Mengkonversi Waktu Ke Dalam Satuan Detik');
         gotoxy(5,8);writeln('<!>  Masukan Satuan Jam, Menit, dan Detik :');
         gotoxy(10,10);write('Berapa Jam?   : ');readln(j);
         gotoxy(10,11);write('Berapa Menit? : ');readln(m);
         gotoxy(10,12);write('Berapa Detik? : ');readln(d);
         writeln;
         h:=(j*3600)+(m*60)+d;
         writeln('-------------------------------------------------------------------------------');
         writeln(' Berdasarkan data yang anda Masukkan,');
         writeln('   >> ',j, 'Jam-',m, 'Menit-',d, 'Detik, Sama Dengan: ',h,' Detik');
         writeln('-------------------------------------------------------------------------------');
         write('Ulangi? (y/t) : ');readln(u);
      end;
end.