Program Menghitung Umur (Pascal)

Home / Pendidikan / Program Menghitung Umur (Pascal)

Program Menghitung Umur (Pascal)

Program Menghitung Umur (Pascal)

Program Menghitung Umur (Pascal)

Program Menghitung Umur (Pascal)

aduh lama g posting n ngecek blog bru di buka ternyata traffic anjlok…. 😦 karena sibuk UTS. akhirnya dapet nih bahan buat blog karena ada temen yang request… :-), saya mau bagi surce program pascal menghitung usia seseorang, jadi kita bisa melihat lama kita hidup dalam hari dan tahun. tanpa banyak omong lagi langsung aja di liat sourcna

uses crt;
var hr1,hr2,bln1,bln2,thn1,thn2,jumlah_hari,thn,bulan,hari:longint;
begin
clrscr;
writeln(‘Masukan tgl,bln,tahun sekarang : ‘);
write(‘Tanggal : ‘);read(hr1);
write(‘Bulan : ‘);read(bln1);
write(‘Tahun : ‘);read(thn1);
Writeln(‘Masukan Tanggal lahir anda :’);
write(‘Tanggal : ‘);read(hr2);
write(‘Bulan : ‘);read(bln2);
write(‘Tahun : ‘);read(thn2);
jumlah_hari:=(thn1-thn2)*365+(bln1-bln2)*30+(hr1-hr2);
thn:=jumlah_hari div 365;
bulan:=(jumlah_hari mod 365) div 30 ;
hari:=(jumlah_hari mod 365)mod 30;
writeln(‘umur anda dalam hari: ‘, (jumlah_hari),’hari, dan dihitung dalam tahun: ‘,thn,’tahun. ‘);readln(jumlah_hari,thn);
end.

semoga program nya bermanfaat buat yang butuh n lagi belajar

Sumber : https://freemattandgrace.com/