прога з паролем, вообще полний ноль Опции

[amator_roma]

Використовуючи цикл repeat написати прогу яка вимагае вводу пароля .якщо пароль правильний то заповнюе весь екран.

М

Пиши на Русском языке.

Сообщение отредактировано: klem4 - 17.06.2008 19:45

[compiler]

Використовуючи цикл repeat написати прогу яка вимагае вводу пароля .якщо пароль правильний то заповнюе весь екран.

Используя цикл repeat написать программу, которая требует ввода пароля. Если пароль правильный, то заполняет весь экран.

В чем проблема?

[FreeD]

то заполняет весь экран

Чем заполняет?

Добавлено через 14 мин.

Program Password;
Uses crt;
Const
  Pass='Pascal';
Var
  EnterPass:string;
  fl:boolean;
Begin
  fl:=false;
  repeat
    clrscr;
    write('Enter Password: ');
    readln(EnterPass);
    clrscr;
    If EnterPass=Pass then
      Begin
        writeln('Access Resolved'); {Вместо этой строчки можно вставить какое-то заполнение}
        readln;
        fl:=true;
      End
      else
      Begin
        writeln('Access Locked');
        writeln('Try again');
        readln;
      end;
  until fl;
End.