Turbo Pascal

Oke. hari ini saya akan posting sara membuat perogram balik nama menggunakan bahasa program pascal. ini adalah contoh programnya :

program balik_nama;

USES CRT;

const pw = 'asking ';

var

   pass : string;

   c : char;

   i : integer;

begin

     clrscr;

     while(i < 2) do

     begin

          write('Masukkan Password : ');

          while(c <> ' ') do

          begin

               c := readkey;write('*');

               pass := pass + c;

          end;

          writeln;

          if pass = pw then

          begin

               writeln('Benar');

               i := 3;

          end

          else

          begin

               writeln('Password yang anda masukan salah, silahkan coba lagi!');

               i := i + 1;

               pass := '';

               c := '*';

          end;

     end;

     readln;

end.

cukup sampai disini dulu. tunggu postingan yang lainya lagi.

note: misal ada kekurangan bisa dikomentar dibawah.

Penulis : Unknown ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel Turbo Pascal ini dipublish oleh Unknown pada hari Senin, 28 Desember 2015. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan Turbo Pascal