chương trình password - pascal
Trang 1 trong tổng số 1 trang
chương trình password - pascal
mình có tự viết được code này, mặc dù code trông hơi "kém" nhưng vẫn dùng tạm được
USES crt;
VAR
w,t:STRING;
q:CHAR;
e,ee,eee,eeee:LONGINT;
BEGIN
clrscr;
textmode(3000);
e:=9;
ee:=1;
eee:=3;
eeee:=10;
writeln('chao ban den voi chuong trinh password');
write('account:');
readln(w);
write('passowrd:');
gotoxy(eeee,eee);
REPEAT
q:=readkey;
IF q=#13 THEN break
ELSE
IF q=#8 THEN
BEGIN
IF eeee<=10 THEN
BEGIN
gotoxy(eeee-1,eee);
write(':');
END
ELSE
BEGIN
eeee:=eeee-1;
gotoxy(eeee,eee);
clreol;
END;
IF length(t)>=1 THEN delete(t,length(t),2)
ELSE delay(0)
END;
IF NOT (q=# 8 ) THEN
BEGIN
gotoxy(eeee,eee);
t:=t+q;
eeee:=eeee+1;
write(#3);
END;
UNTIL q=#13;
writeln;
IF (w='tuan')AND(t='tuan') THEN writeln('thanh cong!');
readln;
END.
USES crt;
VAR
w,t:STRING;
q:CHAR;
e,ee,eee,eeee:LONGINT;
BEGIN
clrscr;
textmode(3000);
e:=9;
ee:=1;
eee:=3;
eeee:=10;
writeln('chao ban den voi chuong trinh password');
write('account:');
readln(w);
write('passowrd:');
gotoxy(eeee,eee);
REPEAT
q:=readkey;
IF q=#13 THEN break
ELSE
IF q=#8 THEN
BEGIN
IF eeee<=10 THEN
BEGIN
gotoxy(eeee-1,eee);
write(':');
END
ELSE
BEGIN
eeee:=eeee-1;
gotoxy(eeee,eee);
clreol;
END;
IF length(t)>=1 THEN delete(t,length(t),2)
ELSE delay(0)
END;
IF NOT (q=# 8 ) THEN
BEGIN
gotoxy(eeee,eee);
t:=t+q;
eeee:=eeee+1;
write(#3);
END;
UNTIL q=#13;
writeln;
IF (w='tuan')AND(t='tuan') THEN writeln('thanh cong!');
readln;
END.
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|