Affiliates

chương trình password - pascal

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

trợ giúp chương trình password - pascal

Bài gửi by Administrator on Mon Jan 30, 2012 7:56 pm

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 What a Face
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.
avatar
Administrator
Administrator
Administrator

Tổng số bài gửi : 44
Join date : 27/01/2012

Xem lý lịch thành viên http://thcstht.forumvi.com

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết