INDONESIANWARE - Pada Artikel yang anda baca kali ini dengan judul Konversi Hari ke Tahun Bulan Hari di Turbo Pascal, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Turbo Pascal, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Konversi Hari ke Tahun Bulan Hari di Turbo Pascal
link : Konversi Hari ke Tahun Bulan Hari di Turbo Pascal

Konversi Hari ke Tahun Bulan Hari di Turbo Pascal

Setelah beberapa hari yang lalu saya sempat memposting tentang Konversi Suhu di Turbo Pascal
kali ini saya akan memposting tentang Konversi Hari ke Tahun Bulan Hari di Turbo Pascal

jadi misalkan kita menginputkan 390 hari maka akan muncul text bertuliskan 1 tahun  1 bulan 10 hari
oke langsung saja

Langkah - langkah Konversi Hari ke Tahun Bulan Hari di Turbo Pascal

1. Buka program turbo pascal yang anda punya

2. Ketikan Script dibawah ini

program konversihari;
uses crt;
var
 hari,jhari,jbulan,jtahun,sisa:integer;
begin
 clrscr;
 writeln('======================');
 writeln('Tutorial Koding');
 writeln('=====================');
 writeln('');
 write('Masukan Jumlah Hari : ');readln(hari);
 jtahun:=hari div 365;
 sisa:=hari div 365;
 jbulan:=sisa div 31;
 jhari:=sisa mod 31;
 if (jhari=0) then
 begin
  jhari:=sisa;
 end;
 writeln('Hasil Konversi : ',jtahun,' Tahun ',jbulan,' Bulan ',jhari,' Hari ');
 readln;
end.
 

3. Jalankan program tersebut dengan menekan CTRL+F5

Sekian dari saya, semoga bermanfaat

Sekianlah artikel Konversi Hari ke Tahun Bulan Hari di Turbo Pascal kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Konversi Hari ke Tahun Bulan Hari di Turbo Pascal dengan alamat link https://ware-id.blogspot.com/2014/03/konversi-hari-ke-tahun-bulan-hari-di.html