Dasar Pemograman, Program Menghitung Usia

Program Menghitung Usia

Program ini akan memproses perhitungan usia anda, awalnya program meminta inputan berupa tanggal, bulan dan tahun sekarang, kemudian meminta inputan lagi untuk tanggal lahir lengkap anda, hingga outputnya berupa usia anda.

Baiklah untuk lebih jelas, silahkan di coba saja...

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  nama : string ; bln, tgl, thn : integer ; m, d, y : integer ;

  usia, ln, hr : integer ; menu : char ;

begin

  menu := 'y';

  while menu = 'y' do

  begin

    writeln ('Masukan Tanggal, Bulan dan Tahun Sekarang : ');

    write ('Tanggal (angka) : '); readln (tgl);

    write ('Bulan (angka)   : '); readln (bln);

    write ('Tahun           : '); readln (thn);

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

    writeln ('        Masukkan Data Lahir                 ') ;

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

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

    write ('Tanggal Lahir :'); readln (d);

    write ('Bulan Lahir :'); readln (m) ;

    write ('Tahun Lahir : '); readln (y);

    writeln ;

    usia := thn - y ; ln := bln -m ; hr := tgl - d ;

    writeln (nama, ' Usia anda sekarang, ',usia, ' tahun, ',ln,' bulan, ',

    hr,' hari') ;

    writeln ('di coba lagi ? [y/t]'); readln (menu) ;

    readln ;

  end;

end.