Jumat, 07 Desember 2012

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

Posted by afri zulkarnain Jumat, Desember 07, 2012 , under | No comments


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 :

Poskan Komentar

Silahkan tinggalkan komentar anda tentang tulisan ini...

Popular Posts

Popular Posts