Friday, 7 December 2012


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... (^_^)

0 komentar:

Post a Comment

Silahkan tinggalkan komentar anda tentang tulisan ini...

Mutiara Hati

"Maha Suci Allah yang menjadikan di langit gugusan bintang-bintang dan Dia juga menjadikan padanya matahari dan bulan yang bersinar" (QS. Al-Furqan 25 : 61)

Your System

IP

Popular Posts