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

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

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.

The One and Only Ivan, Sleep Like a Tiger, Maybe It's You (Crisis Team #3), Heartbreak Hotel (Alex Delaware, #32), Lost Rider (Coming Home, #1), Karen's Kittycat Club (Baby-Sitters Little Sister, #4), Adult-Ish: A Journal of Grown-Up Firsts, New Canaan: An Aeon 14 Story (The Orion War #2), Seduced by the Stranger: A Napoline Royals Novel (The Napoline Royals Book 1), Shameless Submission 1, Red Panda's Candy Apples, Catch & Release (The Sloane Spadowski Series Book 3), A Picture Book of Martin Luther King, Jr., Ghost in His Eyes, The Halo Effect, Tempt The Boss, Cody and the Rules of Life, To Kill a Mockingbird, Greyhound, Boys Dancing: From School Gym to Theater Stage