1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Здрасте написал прогу но почему то не работает (должна когда я ввожу не правильный пароль выдавать что он не правильный а когда правильный что правильный)
Program proverkaparolya;
Var s,pr,i:integer;
Begin
pr:=1234;
writeln('Введите пароль, у Вас 3 попытки');
for i:=1to3do
readln(s);
if s=pr then
writeln('Пароль верный')
elseif i<3then writeln('Пароль неверный, осталось попыток ',3-i);
readln;
End.
А как реализовать если пароль правильный чтоб цикл заканчивался а то даже если он правильный то не заканчивается....
А почему у тебя вообще только три попытки? И к тому же, по истечении этих трех попыток все равно выходим на выполнение программы (по всей видимости). Странно как-то это )). Я бы сделал как-то так..
writeln('введите пароль (для выхода введите пустую строку)');
repeat
readln(s);
if s = ''then exit // по пустому паролю прекращаем процесс и выходим из проги
until s = pr;
--------------------
я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой
А почему у тебя вообще только три попытки? И к тому же, по истечении этих трех попыток все равно выходим на выполнение программы (по всей видимости). Странно как-то это )). Я бы сделал как-то так..
writeln('введите пароль (для выхода введите пустую строку)');
repeat
readln(s);
if s = ''then exit // по пустому паролю прекращаем процесс и выходим из проги
until s = pr;
Да не так не пойдёт мне надо именно через цикл по параметру а то что 3 попытки да это просто так нужно для цикла по параметру вот только как сделать чтоб выход был после ввода правильного.
Код
сделал так вместо надписи 'пароль правильный' прога заканчивается (p.s спасибо это я взял из вашего кода чтобы прога заканчивалась)
Да не так не пойдёт мне надо именно через цикл по параметру а то что 3 попытки да это просто так нужно для цикла по параметру вот только как сделать чтоб выход был после ввода правильного.
По-любому тут цикл for не катит, потому что после него переменная цикла не определена. Можно, конечно, засунуть весь функционал программы в блок или в процедуру, а также использовать goto, но все это будет через задницу (особвенно последнее). Так что лучше все же repeat. Введи счетчик вот так:
n:= 3;
writeln('введите пароль (не более ',n,' раз)');
i:= 0;
repeat
inc(i);
if i>n then exit; // после n попыток выходим
readln(s);
until s = pr;
.... // дальше делаем, что надо
--------------------
я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой
По-любому тут цикл for не катит, потому что после него переменная цикла не определена. Можно, конечно, засунуть весь функционал программы в блок или в процедуру, а также использовать goto, но все это будет через задницу (особвенно последнее). Так что лучше все же repeat. Введи счетчик вот так:
n:= 3;
writeln('введите пароль (не более ',n,' раз)');
i:= 0;
repeat
inc(i);
if i>n then exit; // после n попыток выходим
readln(s);
until s = pr;
.... // дальше делаем, что надо
Я бы не стал заморачиваться с циклом по параметру если бы не задача, просто мне дали задание через этот цикл реализовать прогу про пароль)
Artem7, если без цикла с параметром (т.е., без For) все-таки не обойтись (ну, мало ли, задание такое, мало ли что) - то:
const Last = 3;
var
i : integer;
s, pass : string;
begin
pass := '1234';
for i := 1to Last dobegin
readln(s);
if (s = pass) then break
elseif i <> Last then
writeln('Пробуем еще раз. Попыток осталось: ', Last - i)
else Halt(1);
end;
writeln('Пароль верный');
end.
Насчет Exit для выхода из программ - это неправильно. Потому что Exit завершает не выполнение программы, а выполнение текущего блока. Будет это подпрограмма - завершится подпрограмма. Перенесешь ты свою проверку в функцию или процедуру и будешь потом думать, а чего это программа не завершается (это из той же серии, как при неинициализированных переменных "программой все работало - сделал процедурой - выдает неправильные результаты"). Не давай даже повода для ошибки.
Artem7, если без цикла с параметром (т.е., без For) все-таки не обойтись (ну, мало ли, задание такое, мало ли что) - то:
const Last = 3;
var
i : integer;
s, pass : string;
begin
pass := '1234';
for i := 1to Last dobegin
readln(s);
if (s = pass) then break
elseif i <> Last then
writeln('Пробуем еще раз. Попыток осталось: ', Last - i)
else Halt(1);
end;
writeln('Пароль верный');
end.
Насчет Exit для выхода из программ - это неправильно. Потому что Exit завершает не выполнение программы, а выполнение текущего блока. Будет это подпрограмма - завершится подпрограмма. Перенесешь ты свою проверку в функцию или процедуру и будешь потом думать, а чего это программа не завершается (это из той же серии, как при неинициализированных переменных "программой все работало - сделал процедурой - выдает неправильные результаты"). Не давай даже повода для ошибки.