Pemrograman Pascal Menentukan Status Menggunakan Umur

 Program Pascal Menentukan Status Menggunakan Umur

Pada kali ini ane akan share program pascal untuk menentukan status menggunakan umur sebagai berikut:

        > 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 kids !')

                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 !');

                readln;

            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 !}

                                readln;     {Instruksi untuk menunggu}

                                end.     {Akhir instruksi program}

        > PRINT SCREEN OUTPUT