Помощь - Поиск - Пользователи - Календарь
Полная версия: Как сделать текст выходить на екран в виде звездам
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Сандо
Я пытаюсь сделать себе пароль!Но я не хочу чтоб кто-то ее читал пока я ее пишу!Я хочу сделать так чтобы когда я пишу на екране выходили звездачки,а сам текст анализировался!пожалуйста помогите!

P.S. Простите мои ошибки, но я не Руский!
SKVOZNJAK
Это тебе к модулю crt обращаться нужно  :) Считывать информацию с клавы используя конструкцию if keypressed=true then A:=readkey; а выводить информацию на экран перемещая курсор GotoXY(X,Y) {и снова goto!}
А выводить звёзды Write('*');
KRUTOY
SKVOZNJAK
да GOTO!!
Altair
Вот как:


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.


все теперь в строке s пароль
Altair
да совсем забыл после строки C:=ORD(readkey);
добавить:
write('*');

(отредактировал)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.