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
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è =))
Lời giải 1 :
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.
Thảo luận
Lời giải 2 :
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}
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247