Viết chương trình kiểm tra mật khẩu với dữ liệu đầu vào là 1 chuỗi có công dụng như sau: Kiểm tra xem chuỗi đầu vào có phải là mật khẩu mạnh hay không, nếu có trả về True, nếu không trả về False Mật khẩu mạnh là mật khẩu phải có ít nhất 1 chữ hoa, 1 chữ thường, 1 số và 1 ký tự đặc biệt pascal

Ở đây mình sẽ kiểm tra xem có bao nhiêu số, hoa, thường, kí tự đặc biệt. Nếu có tất cả thì TRUE còn thiếu 1 trong các thành phần trên thì là FALSE.

 Kí tự đặc biệt mình sẽ xác định là các kí tự khác ngoài a → z; A→Z; 0→9

Code

Program mkmanh;
var pass:string;
a: boolean;
s,t,h,k,i:longint;
BEGIN
Readln(pass);
s:=0; t:=0; h:=0; k:=0;
For i := 1 to length(pass) do
begin
If pass[i] in ['0'..'9'] then s:=s+1;
If pass[i] in ['a'..'z'] then t:=t+1;
If pass[i] in ['A'..'Z'] then h:=h+1;
If not(pass[i] in ['a'..'z','A'..'Z','0'..'9']) then k:=k+1;
end;
If (s>0) and (t>0) and (h>0) and (k>0) then a:= true else a:=false;
Write(a);
Readln;
END.