Program pascal - input data mahasiswa | Uphik Lamers

Saturday, April 23, 2011

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.
Post a Comment