Program mengecek password

Berikut merupakan Program untuk Mengecek password menggunakan bahasa Pascal dengan menggunakan statement IF.

• SOURCE CODE

Program mengecek_password;
uses crt;
var
   n : string;
begin
clrscr;
     write('masukkan password : ');
     readln(n);
     writeln;
     if n='unipa' then
       writeln('password benar')
           else
       writeln('password salah');
readkey;
end.

• PENJELASAN SOURCE CODE

Program mengecek_password;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   n : string;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     write('masukkan password : ');     {Cetak masukkan password}
     readln(n);     {Baca variabel n}
     writeln;     {Menyisipkan Baris}
     if n ='unipa' then     {Jika n = unipa kemudian}
        writeln('password benar')     {Cetak password benar}
           else     {Kalau tidak}
        writeln('password salah);     {Cetak password salah}
readkey;     {Instruksi untuk menunggu}
end.     {Akhir instruksi program}

• PRINT SCREEN OUTPUT

Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa Pascal, admin telah menyediakan 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           : Mengecek password
• Source Code .pdf      : .:_Download_:.
• Flowchart .png         : .:_Download_:.
• Program .pas            : .:_Download_:.
• Password                  : kamuspascal.blogspot.com

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