Rabu, 10 November 2010

15. BUAT PROGRAM SEDERHANA MENGGUNAKAN METODE PEMILIHAN UNTUK MENAMPILKAN UMUR DIMANA DENGAN MEMASUKAN NAMA, NIM, PROGRAM STUDI, TAHUN LAHIR. MAKA AKAN DI TAMPILKAN UMUR DAN KETERANGAN UMUR.

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.

Tidak ada komentar:

Posting Komentar