Algoritma Untuk Menghitung hari
1. Menentukan banyaknya hari pada 1 tahun Terakhir
2. Menghitung banyaknya hari pada setiap bulan yang ada
3. Memasukkan banyaknya hari dengan ketentuan sebagai berikut :
Jika jumlah hari nya 1 - 31 maka bulan Januari
Jika jumlah hari nya 32 - 59 maka bulan Februari
Jika jumlah hari nya 60 - 90 maka bulan Maret
Jika jumlah hari nya 91 -120 maka bulan April
Jika jumlah hari nya 121 - 151 maka bulan Mei
Jika jumlah hari nya 152 – 181 maka bulan Juni
Jika jumlah hari nya 182 - 212 maka bulan Juli
Jika jumlah hari nya 213 – 243 maka bulan Agustus
Jika jumlah hari nya 244 – 273 maka bulan September
Jika jumlah hari nya 274 – 304 maka bulan Oktober
Jika jumlah hari nya 305 - 334 maka bulan November
Jika jumlah hari nya 335 – 365 maka bulan Desember
Dengan source Kode sebagai berikut
Program Kalender
Uses Crt
Var
Kode : Byte;
Begin
Repeat
ClrScr;
Write ('Masukkan Kode Hari [1..365]:');
Readln(Kode);
Until (Kode in [1..365]
writeln
if kode = 1..31 Then
writeln('januari')
else
if kode = 32..59 then
writeln('februari')
else
if kode = 60..90 then
writeln('maret')
else
if kode = 91..120 then
writeln('april')
else
if kode = 121..151 then
writeln('mei')
else
if kode = 152..181 then
writeln('juni')
else
if kode = 182..212 then
writeln('juli')
else
if kode = 213..243 then
writeln('agustus')
else
if kode = 244..273 then
writeln('september')
else
if kode = 274..304 then
writeln('oktober')
else
if kode = 305..334 then
writeln('november')
else
if kode = 335..365 then
writeln('desember');
readln;
end.
Tidak ada komentar:
Posting Komentar