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

By On Thursday, April 2nd, 2015 Categories : Artikel
Advertisement

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.

Advertisement (Dibawah ini adalah Iklan)
loading...

The Burbs

North to Alaska

Beyond the Mask

Terjebak Nostalgia

Beautiful Creatures

Alien Raiders

The Spanish Apartment

Up for Love

Conspiracy Theory

This Is Progress


Grabs Books