Viết chương trình Pascal tạo mật khẩu và yêu cầu người dùng nhập mật khẩu đó, nếu nhập sai thì đến lần thứ 5 sẽ ngưng, khi nhập lần thứ 3 yêu cầu người dùng muốn đổi mật khẩu không, nếu đổi thì lấy mật khẩu vừa đổi làm mật khẩu đăng nhập và cũng nhập đúng 5 lần là ngưng, không có tùy chọn đổi mật khẩu
đề nâng cao cho mấy bạn cày điểm nè =))
Viết chương trình Pascal tạo mật khẩu và yêu cầu người dùng nhập mật khẩu đó, nếu nhập sai thì đến lần thứ 5 sẽ ngưng, khi nhập lần thứ 3 yêu cầu ngườ
By Arya
program mkhau;
uses crt;
var pass: string;
d:byte;
procedure doi;
var s3: string;
begin
clrscr;
write(‘nhap pass moi: ‘);
readln(s3);
pass:=s3;
d:=0;
end;
procedure kt;
var s, s2: string;
begin
repeat
begin
if d=3 then
begin
writeln(‘doi mat khau?’);
writeln(‘”yes” or “no”‘);
readln(s2);
if s2=’yes’ then doi;
end;
if d=5 then exit;
write(‘nhap mat khau: ‘);
readln(s);
inc(d);
end
until s=pass;
end;
begin
clrscr;
write(‘tao pass: ‘); readln(pass);
d:=0; kt;
readln;
end.
{GM Kiet}
program mat_khau;
uses crt;
var s,st,doi:string;
d,i:byte;
begin
clrscr;
write(‘Nhap mat khau dung: ‘); readln(s);
clrscr;
d:=0;
while d<5 do
begin
write(‘Nhap mat khau: ‘); readln(st);
clrscr;
if s=st then
begin
write(‘Mat khau dung’);
d:=5;
end
else
begin
d:=d+1;
if d=3 then
begin
write(‘Ban co muon tao lai mat khau khong(c=co)’);
readln(doi);
end;
if doi=’c’ then
begin
d:=0;
write(‘Nhap mat khau moi: ‘); readln(s);
clrscr;
end;
end;
end;
readln;
end.