Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang konversi detik ke jam.
Program Konversi_Detik_ke_Jam;
Uses Wincrt;
Var
hh,mm,ss,Total_Detik:longint;
Begin
Write ('Total Detik= ');readln (Total_Detik);
hh:=Total_detik div 3600;
mm:=(Total_detik mod 3600) div 60;
ss:=(Total_detik mod 3600) mod 60;
Writeln ('Waktu dalam Jam adalah ',hh,(' jam, '),mm,(' menit, '),ss,(' detik.'));
End.
Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang konversi detik ke jam.
Program Konversi_Detik_ke_Jam;
Uses Wincrt;
Type Jam = record
hh:longint;
mm:longint;
ss:longint;
end;
Var
J:Jam;
Total_Detik:longint;
Begin
Write ('Total Detik= ');readln (Total_Detik);
J.hh:=Total_detik div 3600;
J.mm:=(Total_detik mod 3600) div 60;
J.ss:=(Total_detik mod 3600) mod 60;
Writeln ('Waktu dalam Jam adalah ',J.hh,(' jam, '),J.mm,(' menit, '),J.ss,(' detik'));
End.
Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang konversi jam ke detik.
Program Konversi_Jam_ke_Detik;
Uses Wincrt;
Var
hh,mm,ss,Total_Detik:longint;
Begin
Write ('Jam = ');readln (hh);
Write ('Menit= ');readln (mm);
Write ('Detik= ');readln (ss);
Total_Detik:=(hh*3600)+(mm*60)+ss;
Writeln ('Waktu dalam detik adalah ',Total_Detik);
End.
Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang konversi jam ke detik.
Program Konversi_Jam_ke_Detik;
Uses Wincrt;
Type Jam = record
hh:longint;
mm:longint;
ss:longint;
End;
Var
J:Jam;
Total_Detik:longint;
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 ('Waktu dalam detik adalah ',Total_Detik);
End.
Rabu, 09 Desember 2009
Tugas Pemrograman Komputer 1
16.28
belajaronline
No comments
0 komentar:
Posting Komentar