IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> прога з паролем, вообще полний ноль
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской
Реальное имя: roman

Репутация: -  0  +


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

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



Сообщение отредактировано: klem4 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


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

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


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +


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

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

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

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.10.2021 8:31
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name