Помощь - Поиск - Пользователи - Календарь
Полная версия: прога з паролем
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
amator_roma
Використовуючи цикл repeat написати прогу яка вимагае вводу пароля .якщо пароль правильний то заповнюе весь екран. wink.gif

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

compiler
Цитата(amator_roma @ 17.06.2008 19:12) *
Використовуючи цикл 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.

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