PASCAL : CONTOH PROGRAM HITUNG UMUR

Listing Program : 

program htg_umur;
uses crt;
var nama: string;
    th_L, umur: integer;
const th_skr:integer=2010;

begin
clrscr;
writeln('    PROGRAM HITUNG UMUR');
writeln('---------------------------');
write('Masukkan nama anda      : '); readln(nama);
write('Masukkan Tahun kelahiran: '); readln(th_L);
  umur:= th_skr - th_L;
writeln('Umur anda sekarang      : ',umur);
readln;
end.

Jangan lupa tinggalkan pesan berupa saran dan kritik yang bermanfaat untuk blog  ini. Untuk teman-teman yang hendak mencopy artikel ini untuk dipasang pada blog atau web-nya, dengan sangat diharapkan untuk mencantumkan Link keblog ini sebagai sumber artikel sekaligus sebagai backlink untuk blog ini. Terima kasih untuk pengertian dan kerjasamanya, mari berkembang bersama.