Program Menghitung X Hari

--------------------------------------------------------------------------------------------------------------------------
program Menghitung_x_hari;
{I.S. : user memasukan sejumlah hari (JmlHari)}
{F.S. : menampilkan Tahun, Bulan dan Hari}
uses crt;
var
   JmlHari,Tahun,Bulan,Hari,Sisa : integer;
begin
   //memasukan Hari
   writeln('memasukan Hari');
   writeln('==============');
   write('JmlHari : '); readln(JmlHari);
   Tahun :=JmlHari div 365;
   Sisa :=JmlHari mod 365;
   Bulan :=Sisa div 30;
   Hari :=sisa mod 30;

   //menampilkan Hasil Perhitungan
   writeln('');
   writeln('menampilkan Hasil Perhitungan');
   writeln('===============================');
   writeln(JmlHari,' Hari = ',Tahun,' Tahun , ',Bulan,' Bulan , ',Hari,' Hari');
   readln

end.
--------------------------------------------------------------------------------------------------------------------------

Download Scriptnya :

catatan :

hargailah tulisan orang lain, jika anda mengcopy-paste harap cantumkan link sumber.