Berikut sintaks program konversi waktu:
program Konversi_Waktu;
uses crt;
var a, b, c:integer;
h, m, s:real;
begin
clrscr;
write('Program Konversi Waktu');readln;
write('**********************');readln;
write('Masukkan nilai detik : '); readln(a);
h:=a div 3600;
b:=a mod 3600;
m:=b div 60;
c:=b mod 60;
s:=c;
writeln(h:0:0, ' jam ',m:0:0, ' menit ',s:0:0, ' detik');
readln;
end.
Selamat mencoba.
ada ngga yg Konveri waktu jika (jam 10 wib=11wita=12wit, jam 11wib=12wita=13wit)
BalasHapusBagian
Hapuswrite('Masukkan nilai detik : '); readln(a);
h:=a div 3600;
b:=a mod 3600;
m:=b div 60;
c:=b mod 60;
s:=c;
writeln(h:0:0, ' jam ',m:0:0, ' menit ',s:0:0, ' detik');
readln;
diganti dengan
write('Masukkan waktu (jam,WIB): '); [bagian "Masukkan waktu (jam,WIB)" bisa diganti sesuai kebutuhan]
readln(a);
h:=a+1;
b:=h+1;
writeln(h:0:0, ' jam (WITA)',b:0:0, ' jam (WIT)');
readln;
Semoga bisa membantu