таймер

[antonov]

помогите пожалуйста..как в этой проге сделать :

1. чтобы вместо звездочек были видны вводимые с клавиатуры символы
2. если не успел ввести пароль за определенное время то программа опять запрашивает его(дается три попытки на ввод)

uses crt,dos;
var login,password:string;
c:char;
b,ok:boolean;

procedure Getlogin;
begin
if c= #13 then begin
if login ='admin' then begin
b:=true;
writeln;
write('vvedite parol  ');
end else begin writeln;
write('ne pravilno');
readln;
halt;
end;
end;
if c in ['A'..'z'] then begin
login:=login+c;
write('*');
end;
end;
procedure GetPassword;
begin
if c=#13 then begin
if password ='start' then begin
ok:=true;
end else begin writeln;
write('ne pravilno');
readln;
halt;
end;
end;
if c in ['A'..'z'] then begin
password:=password+c;
write('*');
end;
end;

const n=15;
var mb,me,h,s,se,ss:word;

begin
GetTime(h,mb,s,ss);
se:=s;
clrscr;
writeln('vremia na vvod:  ',n,' sekynd');
b:=false;
ok:=false;
write('vvedite imia : ');
repeat
if keypressed then begin
c:=readkey;
if not b then GetLogin else GetPassword;
end;
GetTime(h,me,s,ss);
until(abs(s-se)>n) or (ok);
writeln;
if ok then
write('dobro pogalovat')
else write('vashe vremia isteklo ');
readln
end.

[Бриит]

кинь полный код покавырятся

[antonov]

Сообщение от Бриит

кинь полный код покавырятся

так это и есть полный код...как сделать видными символы разобрался...осталось сделать повтор если не успеваеш ввести пароль на время

uses crt,dos;
var login,password:string;
c:char;
b,ok:boolean;

procedure Getlogin;
begin
if c= #13 then begin
if login ='admin' then begin
b:=true;
writeln;
write('vvedite parol ');
end else begin writeln;
write('ne pravilno');
readln;
halt;
end;
end;
if c in ['A'..'z'] then begin
login:=login+c;
write(c);
end;
end;
procedure GetPassword;
begin
if c=#13 then begin
if password ='start' then begin
ok:=true;
end else begin writeln;
write('ne pravilno');
readln;
halt;
end;
end;
if c in ['A'..'z'] then begin
password:=password+c;
write(c);
end;
end;

const n=15;
var mb,me,h,s,se,ss:word;

begin
GetTime(h,mb,s,ss);
se:=s;
clrscr;
writeln('vremia na vvod: ',n,' sekynd');
b:=false;
ok:=false;
write('vvedite imia : ');
repeat
if keypressed then begin
c:=readkey;
if not b then GetLogin else GetPassword;
end;
GetTime(h,me,s,ss);
until(abs(s-se)>n) or (ok);
writeln;
if ok then
write('dobro pogalovat')
else write('vashe vremia isteklo ');
readln
end.

[Stilet]

чтобы вместо звездочек были видны вводимые с клавиатуры символы

write(с);

если не успел ввести пароль за определенное время то программа опять запрашивает его(дается три попытки на ввод)

GetTime(h,me,s,ss);
 if (abs(s-se)>n) then b:=false;
until ok;

Р.S. Ну народ пошел, тибрит и даже не понимает что тибрит...

[antonov]

GetTime(h,me,s,ss);
 if (abs(s-se)>n) then b:=false;
until ok;

так она не запрашивает заново ввод пароля...а пишет "время истекло" и закрывает прогу

[Stilet]

А ты подумай хорошенько что нужно сделать. А то получается все за тебя уже сделали, а прожевать не могем )

[antonov]

кажись процесс пошёл..спасибо))