Program menentukan status menggunakan umur

Berikut merupakan Program untuk menentukan status menggunakan umur menggunakan statement IF.

• SOURCE CODE

Program menentukan_status_menggunakan_umur;
uses crt;
var
   x : integer;
begin
clrscr;
     write('Masukkan umur anda : ');
     readln(x);
     writeln;
     if (x < 2) then
         writeln('You ara a baby !')
          else
    if (x < 12) and (x >= 2) then
         writeln('You are a kid !')
         else
    if (x < 18) and (x >=12) then
         writeln('You are a teenager !')
         else
    if (x < 24) and (x >= 18) then
         writeln('You are a young adult !')
         else
    if (x < 40) and (x >=24) then
         writeln('You are a adult !')
         else
    if (x < 55) and (x >= 40) then
         writeln('You are middle aged !');
readkey;
end.

• PENJELASAN SOURCE CODE

Program menentukan_status_menggunakan_umur;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   x : integer;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     write('Masukkan umur anda : ');     {Cetak Masukkan umur anda : )
     readln(x);     {Baca variabel x}
     writeln;     {Cetak baris}
     if (x < 2) then     {Jika x < 2 kemudian}
          writeln('You are a baby !')     {Cetak You are a baby !}
          else     {Kalau tidak}
    if ( x < 12) and (x >= 2) then     {Jika x < 12 and x >=2 kemudian}
          writeln('You are a kid !')     {Cetak You are a kid !}
          else     {Kalau tidak}
    if (x < 18) and (x >= 12) then     {Jika x < 18 and x >= 12 kemudain}
          writeln('You are a teenager !')     {Cetak You are a teenager !}
          else     {Kalau tidak}
   if ( x < 24) and (x >= 18) then     {Jika x < 24) and (x >= 17 kemudian}
          writeln('You are a young adult !')     {Cetak You are a young adult !}
          else     {Kalau tidak}
   if (x < 40) and ( x >= 24) then     {Jika x < 40 dan x >= 24 kemudian}
          writeln('You are a adult !')    {Cetak You are a adult !}
          else     {Kalau tidak}
   if (x < 55) and (x >= 40) then     {Jika x < 55 dan x >= 40 kemudian}
          writeln('You are middle aged !');     {Cetak You are middle aged !}
readkey;     {Instruksi untuk menunggu}
end.     {Akhir instruksi program}

• PRINT SCREEN OUTPUT

Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa Pascal, admin telah meyediakan file Source code, Penjelasan source code, Output program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.

• Title Program            : Menentukan status menggunakan umur
• Source Code .pdf       : .:_Download_:.
• Flowchart .png          : .:_Download_:.
• Program .pas             : .:_Download_:.
• Password                   : kamuspascal.blogspot.com

Jika anda tidak tahu bagaimana cara mendownload file-file di atas klik Disini, untuk mempelajarinya.