Program Konversi Waktu di Pascal

Nah, kali ini saya ingin berbagi ilmu tentang bahasa pemrograman Pascal.
ini ada contoh program konversi waktu dengan menggunakan pascal. Pertama masuk dulu ke program pascal terus tulis coding berikut ini atau dengan notepad++ anda bisa langsung save denga extention [dot]Pas. ini source codenya, silahkan di copy aja..

Uses crt;
var j,m,d,dm,sisa,sisa1:integer;
begin
Writeln('=======================================');
Writeln('= Program Konversi Waktu =');
Writeln('=======================================');
Writeln;
Write('Masukkan Jumlah Detik : ');readln(dm);
if (dm/3600)>0 then
begin
j:=dm div 3600;
sisa:=dm-(j*3600);
end
else
begin
j:=0;
sisa:=dm;
end;
if (sisa/60)>0 then
begin
m:=sisa div 60;
sisa1:=sisa-(m*60);
end
else
begin
m:=0;
sisa1:=sisa;
end;
d:=sisa1;
Writeln;
Writeln('Hasil => ',j,' jam ',m,' menit ',d,' detik');
Readln;
end.


Nah, untuk compile dan run-nya udah pada bisa kan... tinggal CTRL+F9 aja..

Free Template Blogger collection template Hot Deals BERITA_wongANteng SEO theproperty-developer