Hitung Umur menggunakan Pascal

Assalamulaikum wr. wb

Di Postingan ini Nisan akan share program Hitung Umur menggunakan Pascal, Program ini adalah hasil kloningan dari Program root31 dengan menggunakan java yang nisan coba coding ulang dengan menggunakan Pascal.

berikut adalah Listing Programnya :

program hitung_umur;

uses sysutils,crt;

var

thn,umur : integer;

nama : string [25];

ul : char;

year, month, day: Word;

begin

repeat

clrscr;

DecodeDate(Date,year,month,day);

writeln;

writeln(' PROGRAM HITUNG UMUR IN PASCAL ');

writeln(' By : Nisanxc0de ');

writeln(' Thanks to : Devilzc0de.org ');

writeln(' ============================== ' );

write (' Masukan Nama Anda : '); readln (nama);

write (' Masukan Tahun Lahir Anda : ') ;readln (thn);

write (Format (' Tahun Sekarang : %d',[year]));

umur := year - thn;

writeln;

writeln;

writeln(' Umur Anda ', nama , ' adalah ',umur,' tahun');

write(' Mau coba lagi ? [Y/T] : '); readln (ul);

ul := Upcase (UL);

until UL <> ('Y');

end.

Dan ini adalah Screen Shoot dari Hasil listing program di atas.

Sekian dari ane Semoga Bermanfaat,

Wassalamualaikum wr. wb.

Posted by admin

Tweet