Contoh Program Mengkonversi Hari Ke Dalam Tahun (Waktu) Menggunakan FUNGSI Pada Turbo Pascal

Berikut ini adalah program untuk mengkonversi waktu, program ini mengkonversi jumlah hari yang ditentukan oleh user kedalam bentuk tahun, bulan dan hari. Program ini menggunakan FUNGSI yang terdapat pada library pascal sendiri. Pada pascal terdapat beberapa buah fungsi, diantaranya seperti fungsi mod, fungsi div dan fungsi-fungsi lainnya.

Kode Program:

program KONVERSI_WAKTU(HARI);

var

     tahun,bulan,hari,jumlah : integer ;

begin

     write ('Masukan jumlah hari yang akan di_KONVERSIKAN_kan = ');readln(jumlah);

     tahun :=  jumlah div 365 ;

     bulan := ((jumlah mod 365)div 30);

     hari := (((jumlah mod 365) mod 30 )div 1);

     writeln ('KONVERSI dari: ',jumlah,' hari adalah = ',tahun,' tahun, ',bulan,' bulan, ',hari, ' hari');

     readln ;

end.

Hasil Program:

Semoga artikel Contoh Program Mengkonversi Hari Ke Dalam Tahun (Waktu) Menggunakan FUNGSI Pada Turbo Pascal ini bermanfaat. Selamat mencoba dan semoga berhasil... (^_^)