Program pengecekan password

Berikut merupakan Program untuk pengecekan password menggunakan bahasa Pascal dengan menggunakan statement REPEAT.

• SOURCE CODE

Program pengecekan_password;
uses crt;
var
   i : string;
   n: string;
begin
repeat
clrscr;
     write('Masukkan password  = ');readln(n);
     i := 'n';
     begin
        if n = 'nobi' then
        writeln('Password benar')
            else
        writeln('Password salah');
     end;
     write('Coba lagi ?');readln(i);
     until i = 'n';
readkey;
end.

• PENJELASAN SOURCE CODE

Program pengecekan_password;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   i : string;     {Inisiasi variabel}
   n : string;     {Inisiasi variabel}
begin     {Awal instruksi program}
repeat     {Ulang kerjakan}
clrscr;     {Membersikan layar}
     write('Masukkan password  =');     {Cetak Masukkan password}
     readln(n);     {Baca variabel n}
     i := 'n';     {Nilai variabel i = Nilai variabel n}
     begin     {Awal instruksi program}
        if n = 'nobi' then     {Jika n = nobi kemudian}
        writeln('Password benar')     {Cetak Password benar}
            else     {Kalau tidak}
        writeln('Password salah');     {Cetak Password salah}
     end;     {Akhir instruksi kondisi}
     write('Coba lagi ?');     {Cetak Coba lagi ?}
     readln(i);     {Baca variabel i}
     until i = 'n';     {Pembatasan repeat}
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           : Pengecekan password
• 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.