Cara Membuat Program Menghitung Umur dalam Pascal

Kali ini kami akan membahas, bagaimana cara menghitung umur dalam pascal. hmmm🤔.....Langsung to the point aja ya. kalian bisa menggunakan aplikasi free pascal atau turbo pascal, terserah kalian mau menggunakan yang mana.

Berikut program yang akan kami bahas. Kita samakan script dibawah ini dan kalian tinggal edit untuk definisi umur, nama kelas, dan nomer. 

program Menghitung_Umur;
uses crt;
var
  TL,Umur:integer;
begin
  clrscr;
  writeln('PROGRAM MENGHITUNG UMUR');
  writeln('=========================');
  writeln('Nama     : Wijaya Setiaji');
  writeln('No       : 30');
  writeln('Kelas    : X RPL');
  writeln('=========================');
 
  writeln('Tahun Lahir : 2002');
  Readln(TL);
  Umur:=2020-TL;
  writeln('==========================');
  writeln('Umur anda adalah = ',Umur);
 
  readln;
end.

Catatan : pada writeln('===='); itu hanya pembatas saja 

Nah jika kalian sudah coba atau programnya sama dan kalian bingung gimana nuntasinnya seperti gambar dibawah ini: 

Berikut solusinya, Kalian tinggal tulis ulang pada pascal. Formatnya tidak harus sama tinggal kalian isi data yang sesuai dengan kalian, misal namanya ganti nama kalian.

program Menghitung_Umur;
uses crt;
var
  TL,Umur:integer;
begin
  clrscr;
  writeln('PROGRAM MENGHITUNG UMUR');
  writeln('=========================');
  writeln('Nama     : Wijaya Setiaji');
  writeln('No       : 30');
  writeln('Kelas    : X RPL');
  writeln('=========================');
 
  writeln('Tahun Lahir : 2002');
  TL:=2002;
  Umur:=2020-TL;
  writeln('==========================');
  writeln('Umur anda adalah = ',Umur);
 
  readln;
end.

Berikut hasilnya jika format kalian sama diatas:

Nah jika kalian melihat hasilnya perbedannya beda kan. Sekian dulu Cara menghitung umur dengan pascal. Sampai jumpa pada postingan berikutnya.