Algoritma Mengkonversi Tahun, Bulan dan Hari - Tugas Soal No.4 Halaman 110

Algoritma Mengkonversi Tahun, Bulan dan Hari - Tugas Soal No.4 Halaman 110
Soal :

Sebuah proyek dikerjakan selama x hari. tulislah algoritma untuk mengkonversi berapa tahun, berapa bulan, dan berapa hari proyek tersebut dikerjakan. asumsikan:1 tahun=365 hari, 1 bulan=30 hari. keluaran (tahun,bulan,hari) ditampilkan ke piranti keluaran.

Source Code :

PROGRAM Soal_Halaman_110_nomor_4_Konversi_Hari;
USES CRT;
VAR
   tahun       : INTEGER;
   bulan       : INTEGER;
   Hari        : INTEGER;
   jumlah_hari : INTEGER;
   sisa_hari   : INTEGER;

BEGIN
   WRITE('Jumlah Hari = '); READLN(jumlah_hari);
   WRITELN('---------------------');
   tahun      := jumlah_hari DIV 365;
   sisa_hari  := jumlah_hari MOD 365;
   bulan      := sisa_hari DIV 30;
   hari       := sisa_hari MOD 30;
   WRITELN('Hasil Konversi : ');
   WRITELN(tahun ,' Tahun');
   WRITELN(bulan ,' Bulan');
   WRITELN(hari ,' Hari');

  READLN;
END.

Tampilan program ketika di jalankan :

Algoritma Mengkonversi Tahun, Bulan dan Hari - Tugas Soal No.4 Halaman 110