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

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

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

Автор: amator_roma 17.06.2008 23:12

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

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


Автор: compiler 17.06.2008 23:18

Цитата(amator_roma @ 17.06.2008 19:12) *
Використовуючи цикл repeat написати прогу яка вимагае вводу пароля .якщо пароль правильний то заповнюе весь екран.
Используя цикл repeat написать программу, которая требует ввода пароля. Если пароль правильный, то заполняет весь экран.

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

Автор: FreeD 18.06.2008 15:37

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

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

Добавлено через 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.