Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menghitung umur seseorang.


Program Menghitung_Umur_Seseorang;

Uses Wincrt;

Type Tahun = record

yy:longint;

mm:longint;

dd:longint;

end;

Var

T1,T2:Tahun;

Total_Hari,Umur_Tahun,Umur_Bulan,Umur_Hari:longint;

Begin

Writeln ('Masukkan Tanggal Sekarang:');

Write ('Tanggal=');read (T1.dd);

Write ('Bulan =');read (T1.mm);

Write ('Tahun =');read (T1.yy);

Writeln ('Masukkan Tanggal Lahir:');

Write ('Tanggal=');read (T2.dd);

Write ('Bulan =');read (T2.mm);

Write ('Tahun =');read (T2.yy);

Total_Hari:=(T1.yy-T2.yy)*365+(T1.mm-T2.mm)*30+(T1.dd-T2.dd);

Umur_Tahun:=Total_Hari div 365;

Umur_Bulan:=(Total_Hari mod 365) div 30;

Umur_Hari:=(Total_Hari mod 365) mod 30;

Writeln ('Umur Anda Sekarang adalah ',(Umur_Tahun),(' tahun,'),(Umur_Bulan),(' bulan,'),(Umur_Hari),(' Hari.'));

End.




Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang menghitung umur seseorang.


Program Menghitung_Umur_Seseorang;

Uses Wincrt;

Var

yy1,yy2,mm1,mm2,dd1,dd2,Total_Hari,Umur_Tahun,Umur_Bulan,Umur_Hari:longint;

Begin

Writeln ('Masukkan Tanggal Sekarang:');

Write ('Tanggal=');read (dd1);

Write ('Bulan =');read (mm1);

Write ('Tahun =');read (yy1);

Writeln ('Masukkan Tanggal Lahir:');

Write ('Tanggal=');read (dd2);

Write ('Bulan =');read (mm2);

Write ('Tahun =');read (yy2);

Total_Hari:=(yy1-yy2)*365+(mm1-mm2)*30+(dd1-dd2);

Umur_Tahun:=Total_Hari div 365;

Umur_Bulan:=(Total_Hari mod 365) div 30;

Umur_Hari:=(Total_Hari mod 365) mod 30;

Writeln ('Umur Anda Sekarang adalah ',(Umur_Tahun),(' tahun,'),(Umur_Bulan),(' bulan,'),(Umur_Hari),(' hari.'));

End.

Posted in: pascal,umur