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

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

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.

Cilla Lee-Jenkins: Future Author Extraordinaire, The Twits, Jacked Up (Birmingham Rebels, #3), Pachinko, The Virgins, I Could Pee on This And Other Poems by Cats, Blizzard, Hooray for Fish!, The Art of Peace, Head Start, The Red Pyramid (Kane Chronicles, #1), Bonded by Blood, Round Robin (Elm Creek Quilts, #2), Food Swings: 125 Recipes to Enjoy Your Life of Virtue and Vice, On Tyranny: Twenty Lessons from the Twentieth Century, The Master Will Appear, A New Jersey Love Story: Troy & Camilla, Turbulence (Kennedy Stern #5), The Hating Game