"Program Login" Menggunakan Pascal

Setelah lama ga ketemu Pascal. Penulis iseng-iseng nyobain untuk ngoprek-ngoprek lagi program Pascal. Dan sesuai dugaan, banyak materi dan kode-kode yang penulis udah lupa dari pascal :p

Kali ini penulis nyoba bikin program (tepatnya sebagian kecil program :p) untuk sistem login. Ya, cuma program iseng-iseng aja sih, ga memiliki nilai guna pada dasarnya, tapi lumayan buat yang masih baru-baru mau mencoba pemrograman Pascal :)

Prinsip kerja program ini simple (seperti sistem login pada umumnya, namun dengan keamanan yang sangat rendah, maklum amatir ^^v). Pertama, pengguna menginputkan data username dan passwordnya, lalu program akan memverifikasikannya, jika benar maka pengguna akan dibawa ke layar berikutnya.

Namun jika salah, maka pengguna memiliki kesempatan 2 kali untuk mengulang menginputkan datanya.

Untuk memberikan kesempatan bagi pengguna untuk menginputkan data hanya 3 kali saja maka kita akan menggunakan loop for-to-do

     for i:=1 to 3 do

     begin

       Your code here

     end;

Pertama penulis menginisialisasi 2 variabel untuk username dan password

user:= 'gentra';

pass:= 'code';

Kedua variabel tersebut dimisalkan sebagai database username dan passwordnya. Setelah itu program akan meminta pengguna untuk menginputkan data username dan passwordnya

          writeln('Please login with your account');

          writeln('==============================');

          writeln;

          write('Username : ');readln(u);

          write('Password : ');readln(p);

Kemudian program akan memverifikasinya pada kode berikut

          if user=u then

          begin

               if p=pass then

               begin

                    x:= 1;

                    break;

               end;

          end;

Jika username ataupun password yang diinputkan salah, maka program akan menjalankan kode berikut yang memberitahukan bahwa inputannya salah

          clrscr;

          writeln('Username or password didnt match');

          writeln;

Namun, jika inputan data benar, maka program akan meloncat keluar dari loop for-to-do tersebut, dan mengeksekusi kode berikut

        writeln('Welcome back, ',user,'!');

Untuk source lengkap dari program dapat di-download disini
http://www.mediafire.com/?88aa8kx6wobgwe2

Berikut Kode Lengkap dari Program

program login;

uses crt;

var

   user,pass,u,p:string;

   x,i:integer;

begin

     clrscr;

     user:= 'gentra';

     pass:= 'code';

     x:=0;

     for i:=1 to 3 do

     begin

          writeln('Please login with your account');

          writeln('==============================');

          writeln;

          write('Username : ');readln(u);

          write('Password : ');readln(p);

          if user=u then

          begin

               if p=pass then

               begin

                    x:= 1;

                    break;

               end;

          end;

          clrscr;

          writeln('Username or password didnt match');

          writeln;

     end;

     clrscr;

     if x=0 then

        writeln('Sorry, your account has been blocked now')

     else if x=1 then

        writeln('Welcome back, ',user,'!');

     readln;

end.