program pascal input data mahasiswa

  Buat program sederhana menggunakan metode pemilihan untuk menampilkan keterangan umur di mana:

Umur	Keterangan
0-5	Balita
6-13	Anak-Anak
14-25	Remaja
26-40	Dewasa
Ø  41	Orang Tua

Dengan memasukan nama, nim, program studi, tahun lahir. Maka akan ditampilkan umur dan keterangan umur

Layoutnya :

Nama                           : Andi

Nim                             : 21015199     

Program Studi : Sistem Informasi

Tahun Lahir                 : 1981

Umur                           : 29

Keterangan                  : Dewasa

jawab :

  uses crt;

  var nama, nim,programstudi,ket: string ;

      tahunlahir, umur : integer;

  begin

  clrscr;

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

   write('NIM          : '); readln(nim);

   write('Program Studi: '); readln(programstudi);

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

   umur:= 2010-tahunlahir;

      writeln;

   writeln('Umur: ', umur);

   if umur <=5 then ket:='balita'

   else if umur <=13 then ket:='anak-anak'

   else if umur <=25 then ket:='remaja'

   else if umur <=40 then ket:='dewasa'

   else ket:='orang tua';

   writeln('Keterangan: ',ket);

   readln;

  end.