viết chương trình nhập vào 1 tên đăng nhập+1 mật khẩu để thoát khỏi CT nếu nhập sai thì nhập lại
tk=vnqt343
mk=123456789
0 bình luận về “viết chương trình nhập vào 1 tên đăng nhập+1 mật khẩu để thoát khỏi CT nếu nhập sai thì nhập lại tk=vnqt343 mk=123456789”
program password; uses crt; var tk, mk: string; begin repeat clrscr; textcolor (white); writeln (‘Dang nhap de thoat khoi chuong trinh’); write (‘nhap ten tai khoan: ‘); readln (tk); write (‘nhap mat khau: ‘); readln (mk); if (tk=’vnqt343′) and (mk=’123456789′) then exit; if (tk<>’vnqt343′) or (mk<>’123456789′) then textcolor (lightred); writeln (‘ten tai khoan hoac mat khau bi sai. vui long dang nhap lai’); readln; until (tk=’vnqt343′) and (mk=’123456789′); readln; end.
program password;
uses crt;
var tk, mk: string;
begin
repeat
clrscr;
textcolor (white);
writeln (‘Dang nhap de thoat khoi chuong trinh’);
write (‘nhap ten tai khoan: ‘); readln (tk);
write (‘nhap mat khau: ‘); readln (mk);
if (tk=’vnqt343′) and (mk=’123456789′) then
exit;
if (tk<>’vnqt343′) or (mk<>’123456789′) then
textcolor (lightred);
writeln (‘ten tai khoan hoac mat khau bi sai. vui long dang nhap lai’);
readln;
until (tk=’vnqt343′) and (mk=’123456789′);
readln;
end.