Помогите пожалуйста нужно что бы вместо цифр '123' было ***.
Мне уже помогали но я не смог сделать.
вот прога
program parol;
uses crt;
const password:string = '123';
var y:integer;
passwordstring:string;
Procedure PasswordWindow ;
Begin
TextBackGround (Black);
TextColor (White);
ClrScr;
gotoxy(27,10);
write('ЙНННННННННННННННННННННННННН»');
gotoxy (27,12);
write('є є');
gotoxy (27,13);
write('є є');
gotoxy (27,14);
write('є є');
gotoxy(27,11);
write('є є');
gotoxy(27,15);
write('ИННННННННННННННННННННННННННј');
End;
BEGIN
clrscr;
Y := 3;
Repeat
ClrScr;
PasswordWindow;
gotoxy(34,10);
write('Введите пароль');
if (y=3) or (y=2) then
begin
gotoxy(29,14);
writeln ('У вас осталось 'y' попытки');
end;
if y=1 then
begin
gotoxy(29,14);
writeln ('у вас осталось 'y' попытка');
end;
gotoxy(36,12);
readln (passwordstring);
if passwordstring <> Password Then
Begin
TextColor (Red);
gotoxy(33,12);
Write ('непрвильно');
y:=y-1;
End;
If PasswordString = Password Then
Begin
TextColor (Green);
gotoxy(34,12);
Write ('правильно');
End;
Readkey;
Until (PasswordString = Password) Or (Y = 0);
If Y = 0 Then
exit;
end.
If Y = 0 Then
exit;
program parol;
uses crt;
const password:string = '123';
var
ch : char;
y:integer;
passwordstring:string;
Procedure PasswordWindow ;
Begin
TextBackGround (Black);
TextColor (White);
ClrScr;
gotoxy(27,10);
write('ЙНННННННННННННННННННННННННН»');
gotoxy (27,12);
write('є є');
gotoxy (27,13);
write('є є');
gotoxy (27,14);
write('є є');
gotoxy(27,11);
write('є є');
gotoxy(27,15);
write('ИННННННННННННННННННННННННННј');
End;
BEGIN
clrscr;
Y := 3;
Repeat
ClrScr;
PasswordWindow;
gotoxy(34,10);
write('вводи');
if (y=3) or (y=2) then
begin
gotoxy(29,14);
writeln ('осталось ',y,' попытки');
end;
if y=1 then
begin
gotoxy(29,14);
writeln ('осталось ',y,' попытка');
end;
gotoxy(36,12);
passwordstring := '';
ch := ReadKey;
While ch <> #13 Do
Begin
passwordstring := passwordstring + ch;
Write('*');
ch := ReadKey;
End;
if passwordstring <> Password Then
Begin
TextColor (Red);
gotoxy(33,12);
Write ('неправильно');
y:=y-1;
End;
If PasswordString = Password Then
Begin
TextColor (Green);
gotoxy(34,12);
Write ('правильно');
End;
Readkey;
Until (PasswordString = Password) Or (Y = 0);
If Y = 0 Then
exit;
end.
ch : Char;
cif : Integer;
...
writeln ('У вас осталось ,'y,' попытки');
...
writeln ('у вас осталось ',y,' попытка');
...
{Этот кусок вместо строки readln (passwordstring);}
cif := 1;
ch := ReadKey;
While cif <> 8 Do
Begin
passwordstring := passwordstring + ch;
Write('*');
ch := ReadKey;
cif := cif + 1;
End;
...
Спасибо
А можно еще так сделать что бы больше 8-ми цифр нельзя вводить
я не могу сделать здесь же нет readln(passwordstring);
Begin
passwordstring := passwordstring + ch;
if length(passwordstring) = 9 then break; {<-----добавь}
Write('*');
ch := ReadKey;
End;
Begin
passwordstring := passwordstring + ch;
if length(passwordstring) = 9 then break; {<-----добавь}
Write('*');
ch := ReadKey;
End;
хм.. у мну все норм.
что именно не получается?
Работает
program parol;
uses crt;
const password:string = '123';
var y, cif:integer;
ch : char;
passwordstring:string;
Procedure PasswordWindow ;
Begin
TextBackGround (Black);
TextColor (White);
ClrScr;
gotoxy(27,10);
write('ЙНННННННННННННННННННННННННН»');
gotoxy (27,12);
write('є є');
gotoxy (27,13);
write('є є');
gotoxy (27,14);
write('є є');
gotoxy(27,11);
write('є є');
gotoxy(27,15);
write('ИННННННННННННННННННННННННННј');
End;
BEGIN
clrscr;
Y := 3;
Repeat
ClrScr;
PasswordWindow;
gotoxy(34,10);
write('Введите пароль');
if (y=3) or (y=2) then
begin
gotoxy(29,14);
writeln ('У вас осталось ',y,' попытки');
end;
if y=1 then
begin
gotoxy(29,14);
writeln ('у вас осталось ',y,' попытка');
end;
gotoxy(36,12);
cif := 1;
ch := ReadKey;
While ch <> #13 Do
Begin
If cif <= 8 Then
begin
passwordstring := passwordstring + ch;
Write('*');
end;
ch := ReadKey;
cif := cif + 1;
End;
if passwordstring <> Password Then
Begin
TextColor (Red);
gotoxy(33,12);
Write ('непрвильно');
y:=y-1;
End;
If PasswordString = Password Then
Begin
TextColor (Green);
gotoxy(34,12);
Write ('правильно');
End;
Readkey;
Until (PasswordString = Password) Or (Y = 0);
If Y = 0 Then
exit;
end.
а обнулять кто будет!
passwordstring := '';
Сделал Большое спасибо
пожалуйста..