Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите написать маленькую прогу
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
ASD_9
22.05.2007 0:45
Пароль я сам сделал, а вот что бы вместо цифр появлялись * не могу
nikita182
22.05.2007 0:59
прогу в студию!
Sto
22.05.2007 1:01
Uses
   Crt;
Var
   ch : Char;
   pass : String;
Begin
   ClrScr;
   Write('Enter Password  -> ');
   ch := ReadKey;
   While ch <> #13 Do
   Begin
      Write('*');
      ch := ReadKey;
      pass := pass + ch;
   End;
   WriteLn;
   Write(pass);
   ReadKey;
End.

Ввод осущ. до нажатия клавиши Enter
nikita182
22.05.2007 1:06



  Write(pass);



нужно в этот момент выводить '*' ?
ASD_9
22.05.2007 1:07
БОЛЬШОЕ СПАСИБО !!! good.gif
nikita182
22.05.2007 1:08
хм..я вообще-то спросил..
Sto
22.05.2007 1:09
Цитата(nikita182 @ 21.05.2007 21:06) *


  Write(pass);



нужно в этот момент выводить '*' ?

Я непонял вопрос.
nikita182
22.05.2007 1:11
косяк упорол, сорри..
мисс_граффити
22.05.2007 4:07
Только у тебя первый символ не идет в пароль...
Вводишь 1234 (****) - выводится 234
   Write('Enter Password  -> ');
   ch := ReadKey; {вот здесь надо заменить на ch:='1', например. или пользоваться циклом с постусловием}
Sto
22.05.2007 13:39
Цитата(мисс_граффити @ 22.05.2007 0:07) *

Только у тебя первый символ не идет в пароль...
Вводишь 1234 (****) - выводится 234
   Write('Enter Password  -> ');
   ch := ReadKey; {вот здесь надо заменить на ch:='1', например. или пользоваться циклом с постусловием}


Точно, не заметил....
Ну тогда вот так нужно сделать
Uses
   Crt;
Var
   ch : Char;
   pass : String;
Begin
   ClrScr;
   Write('Enter Password  -> ');
   ch := ReadKey;
   While ch <> #13 Do
   Begin
      pass := pass + ch;
      Write('*');
      ch := ReadKey;
   End;
   WriteLn;
   Write(pass);
   ReadKey;
End.

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