Advertisemen
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.
Advertisemen