Program Login;
Uses crt;
Var
nama,pwd,angka : string;
Begin
Clrscr;
angka :='123';
Gotoxy(25,10); Writeln('======================');
Gotoxy(25,11); Writeln(' L O G I N ');
Gotoxy(25,12); Writeln('======================');
Gotoxy(25,13); Write ('Nama : ');
Gotoxy(25,14); Write ('Password : ');
Gotoxy(25,15); Writeln('======================');
Gotoxy(37,13); Readln(nama);
IF nama='Admin' THEN
Begin
Gotoxy(37,14); Readln(pwd);
IF pwd = concat(nama,angka) THEN
Begin
Gotoxy(35,16); Writeln('Terima Kasih');
End
Else
Begin
Gotoxy(25,16);
Writeln('Masukkan Nama dan Password Anda');
Gotoxy(25,17);
Writeln('dengan benar');
End
End
Else
Begin
Gotoxy(37,13); Writeln('Ulangi Lagi');
Readln;
End;
Readln;
End.
Related Posts :
- Back to Home »
- Lab. Algoritma dan Pemrograman »
- Contoh Program Login Pascal

Posting Komentar