Я пытаюсь сделать себе пароль!Но я не хочу чтоб кто-то ее читал пока я ее пишу!Я хочу сделать так чтобы когда я пишу на екране выходили звездачки,а сам текст анализировался!пожалуйста помогите!
P.S. Простите мои ошибки, но я не Руский!
Это тебе к модулю crt обращаться нужно :) Считывать информацию с клавы используя конструкцию if keypressed=true then A:=readkey; а выводить информацию на экран перемещая курсор GotoXY(X,Y) {и снова goto!}
А выводить звёзды Write('*');
SKVOZNJAK
да GOTO!!
Вот как:
uses crt;
var
s: string; {PAROL}
с : byte;
begin
repeat
c:=ord(readkey);
if c<>13 then write('*'); {здесь желательно сделать бы проверку если с есть допустимый символ... можно через множества }
s:=s+CHR( c );
until c<>13; { 13 код ENTER т.е конец ввода}
s[0]:=CHR(ORD(s[0])-1); {может так и не надо, только последний элемент нужно удалить в строке}
end.
да совсем забыл после строки C:=ORD(readkey);
добавить:
write('*');
(отредактировал)