Trung hoc co so To Hien Thanh - Dan Phuong - Ha Noi
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Affiliates

chương trình password - pascal

Go down

chương trình password - pascal Empty chương trình password - pascal

Bài gửi by Administrator 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.
Administrator
Administrator
Administrator
Administrator

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

https://thcstht.forumvi.com

Về Đầu Trang Go down

Về Đầu Trang

- Similar topics

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