Program menghitung hari

1. Program menghitung hari

program hari_bulan_tahun;
{Maulana Affan 25/10/2014 9:59}

uses crt;

var
hari, bulan, tahun, sisa1, sisa2 : integer;

begin
clrscr;
writeln (' Program Menghitung Hari');
writeln ('==================');
writeln;
write ('Tulis Jumlah Hari = ');
readln (hari);

tahun := hari div 365;
sisa1 := hari mod 365;
bulan := sisa1 div 30;
sisa2 := sisa1 mod 30;
hari := sisa2;

writeln;
writeln ('Berikut hasilnya = ', tahun, ' Tahun ');
writeln (' ', bulan, ' Bulan ');
writeln (' ', hari, ' Hari ');
writeln;
writeln ('Terima Kasih Telah Mencoba.');
readln;
end.

2. Program hari menjadi jam, menit dan detik

program hari_waktu;
{Maulana Affan 25/10/2014 10:21}

uses crt;

var
hari, jam, menit, detik : real;

begin
clrscr;
writeln ('Program Menghitung Jam, Menit dan Detik');
writeln ('=============================');
writeln;
write ('Tuliskan Jumlah Hari = ');
readln (hari);

jam := hari * 24;
menit := jam * 60;
detik := menit * 60;

writeln;
writeln ('Hasilnya adalah = ', jam:4:0, ' Jam ');
writeln (' ', menit:4:0, ' Menit ');
writeln (' ', detik:4:0, ' Detik ');
writeln;
writeln ('Bagaimana.? Keren kan.? Haha..');
writeln ('Terima Kasih Telah Mencoba.');
readln;
end.

3. Program mengkonversi detik

program konversi_waktu;
{Maulana Affan 22/10/2014 16:56}

uses crt;

var
jam, menit, detik, sisa, sisa2 : integer;

begin
clrscr;
writeln ('Program Konversi Waktu');
writeln;
writeln ('Masukkan Data');
write ('Detik = ');
readln (detik);

jam := detik div 3600;
sisa := detik mod 3600;
menit := sisa div 60;
sisa2 := sisa mod 60;
detik := sisa2;

writeln;
writeln ('Ini hasilnya = ',jam, ' Jam');
writeln (' ',menit, ' Menit');
writeln (' ',detik, ' Detik');
readln;
end.

Nama :septiani neno
kelas :regular A
nim : 201712042

Share :

Tweet

✚

Related Post