Паскаль: программа с запрашиваемым пароля

[Антон Кирилин]

Друзья не могли бы вы мне помочь с написанием программы которая запрашивает пароль (например четырёхзначное число)до тех пор пока он не будет правильно введён. Заранее спасибо.

[Hacker19_90]

Repeat
  clrscr;
  WriteLn ('Введите пароль: ');
  ReadLn (pas);
until pas = '1234';

[Антон Кирилин]

спасибо за оперативность)

у меня почему то не получается запустить, он не распознаёт "clrscr"

[Hacker19_90]

uses
   crt;

[s-andriano]

Сообщение от Антон Кирилин

у меня почему то не получается запустить, он не распознаёт "clrscr"

Выкиньте этот оператор из текста и впредь никогда его в своих программах не используйте - дурной тон.

[temaps]

Сообщение от s-andriano

Выкиньте этот оператор из текста и впредь никогда его в своих программах не используйте - дурной тон.

Как интересно. А альтернативу предложите?

[ViktorR]

На мой взгляд, да и не только, пароль не должен светиться на экране.
Я бы пошел таким путем:

Uses Crt;
...
function Password(): string;
var ch: char;
    pas : string;
begin
  pas := '';
  repeat
     if KeyPressed() then begin
        ch := ReadKey();
        if ch = #0 then
           ch := ReadKey();
        if Ord(ch) = 13 then
           Break;
        write('*');
        pas := pas + ch;
     end;
  until false;
  Password := pas;
end;

и затем вызывал эту функцию:

pas := Password();

и выполнял сравнение, см. код от Hacker19_90.
вместо

readln(pas);

Как-то так ...

[s-andriano]

Сообщение от temaps

Как интересно. А альтернативу предложите?

Я же написал - выкинуть. Консольная программа не должна без очень серьезной причины уничтожать вывод программ, которые были запущены до нее.
Есть такой принцип - не ломай то, что построено не тобой. И нарушение этого принципа - дурной тон.

[temaps]

Сообщение от s-andriano

Я же написал - выкинуть. Консольная программа не должна без очень серьезной причины уничтожать вывод программ, которые были запущены до нее.
Есть такой принцип - не ломай то, что построено не тобой. И нарушение этого принципа - дурной тон.

Понятно. ТС, не слушай его. Если тебе нужно очистить экран, то пользуйся спокойно. Дурной тон всякие типа граммарнаци находят везде, где не лень.

[s-andriano]

Правильно.
Если нужно очистить фон - пользуйся.
Только сперва подумай, действительно ли тебе в данном конкретном случае требуется эта очистка.
В приведенном примере программа без очистки совсем не теряет своей функциональности, поэтому очистка не нужна. Следовательно, все ненужное и вредное - убрать.