Thursday, November 17, 2011

PROGRAM INPUT PASSWORD MENGGUNAKAN BAHASA PEMROGRAMAN PASCAL

PROGRAM PASSWORD;
USES CRT;
VAR
     X  :INTEGER;
    PW:STRING;
BEGIN
CLRSCR;
     X:=3;
     WHILE X>=1 DO BEGIN
     WRITE('INPUT PASSWORD :');           
     READLN(PW);
          IF (PW <> 'SEMANGAT') AND (X>=2) THEN
          WRITELN('PASSWORD YANG ANDA MASUKKAN SALAH, KESEMPATAN TINGGAL',' ',X-1,'LAGI');
          IF (PW <> 'SEMANGAT') AND (X=1) THEN
          WRITE('INVALID PASSWORD');
          IF PW='SEMANGAT' THEN BEGIN
          WRITE('PASSWORD BENAR, ANDA DAPAT LOGIN');
     X:=0;
     END;
     X:=X-1;
     END;
READLN;
END.

Categories:

http://www.resepkuekeringku.com/2014/11/resep-donat-empuk-ala-dunkin-donut.html http://www.resepkuekeringku.com/2015/03/resep-kue-cubit-coklat-enak-dan-sederhana.html http://www.resepkuekeringku.com/2014/10/resep-donat-kentang-empuk-lembut-dan-enak.html http://www.resepkuekeringku.com/2014/07/resep-es-krim-goreng-coklat-kriuk-mudah-dan-sederhana-dengan-saus-strawberry.html http://www.resepkuekeringku.com/2014/06/resep-kue-es-krim-goreng-enak-dan-mudah.html http://www.resepkuekeringku.com/2014/09/resep-bolu-karamel-panggang-sarang-semut-lembut.html

Copyright © Catatan Anis Syarifah | Powered by Anis Syarifah