Chương trình nhập mật khẩu và giới hạn nhập mật khẩu bằng ngôn ngữ lập trình Pascal

Chương trình mô phỏng lại các khung nhập mật khẩu như hiện nay trên Facebook, Google, Gmail,... thay bằng ngôn ngữ lập trình bậc thấp Pascal. Đây là một dạng bài tập nâng cao nhưng làm không áp dụng được trong thực tế mà để hệ thống hóa kiến thực lập trình Pascal

program nhap_mat_khau;

uses crt;

var mk,pass,n,dem,npass,opass,m,u,wr,ur,tm: integer;

tl: char;

begin

clrscr;

write('Nhap mat khau moi: '); readln(mk);

delay(500);

write('Nhap mat khau de dang nhap: '); readln(pass);

if mk=pass then writeln('Dang nhap thanh cong!')

else if mk<>pass then

repeat

dem:=dem+1;

delay(500);

write('Sai mat khau, nhap lai: '); readln(n);

if (dem=2) and (n<>mk) then

begin

delay(800);

write('Sai mat khau, ban co muon doi? Y la co, N la khong: ');

readln(tl);

end;

until (n=mk) or (dem=4) or (tl='Y') or (tl='y') or (tl='n') or (tl='N');

if (tl='y') or (tl='Y') then

begin

write('Nhap mat khau moi: '); readln(npass);

write('Nhap mat khau dang nhap: '); readln(opass);

if opass<>npass then repeat

u:=u+1;

write('Sai mat khau, nhap lai: '); readln(m);

until (m=npass) or (u=4);

if u=4 then writeln('Dang nhap that bai, ban khong the doi mat khau!');

if opass=npass then writeln('Dang nhap thanh cong!');

if m=npass then writeln('Dang nhap thanh cong!');

delay(800);

if dem=4 then writeln('Dang nhap that bai!');

if n=mk then writeln('Dang nhap thanh cong!');

end

else if (tl='n') or (tl='N') then

begin

delay(800);

write('Nhap mat khau: '); readln(wr);

if wr<>mk then

repeat

delay(800);

tm:=tm+1;

write('Sai mat khau, nhap lai: '); readln(ur);

until (wr=mk) or (tm=2);

if tm=2 then begin delay(800); writeln('Dang nhap that bai!'); end

else if wr=mk then writeln('Dang nhap thanh cong!')

else if ur=mk then writeln('Dang nhap thanh cong!');

end;

readln

end