Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Помогите написать маленькую прогу

Автор: 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.