хэлп
может ктото разберается в Паскале.
мне нужна прога которая:
с помощью repeat требует пороль 111, если пороль правельный, то выводит сообщ Молодец:) , если после 5 попытки пароль всёравно не верен, то выйти из проги.
заранее блогадарю.
нужна прога
Модератор: gloom
- sadman
- Завсегдатай
- Сообщения: 2001
- Зарегистрирован: Чт дек 15, 2005 23:46
- Откуда: с ботаники
- Контактная информация:
Давно я паскаль щупал..
за синтаксис не отвечаю. попробуй так: (объявления переменных и т.п. оставил тебе )
[off]а вообще в Программирование постить надо такие темы.[/off]
за синтаксис не отвечаю. попробуй так: (объявления переменных и т.п. оставил тебе )
Код: Выделить всё
counter := 0;
repeat{
writeln("Give me a password");
readln(pswd);
counter := counter+1;
}
until(pswd<>"111" || counter=5);
if(counter=5)
then //завершить программу
writeln("molodezzz");
программа написана неправильно.
1) должно быть "until pswd = 5". в твоем случае из цикла выйдет при первом неправильном вводе
2) что будет, если пользователь ввел правильный пароль на 5-м шаге? в твоем случае программа просто завершится, хотя должна бы написать "молодец"
[off]а вообще проверять надо код перед постом.[/off]
1) должно быть "until pswd = 5". в твоем случае из цикла выйдет при первом неправильном вводе
2) что будет, если пользователь ввел правильный пароль на 5-м шаге? в твоем случае программа просто завершится, хотя должна бы написать "молодец"
[off]а вообще проверять надо код перед постом.[/off]
- жена бэтмэна
- ГУРУ
- Сообщения: 5004
- Зарегистрирован: Ср окт 25, 2006 11:29
- Откуда: только из душа
вопшЭм как-то так вроде
Код: Выделить всё
program a1;
var a: string;
i: integer;
begin
i:=0;
repeat
begin
writeln('Vvedite paroli');
readln(a);
if a='111' then writeln('Malagets')
else
begin
i:=i+1;
if i<5 then writeln('Neverno.Ostalosi popitok ' ,5-i)
else writeln('Neverno.Asta la vista');
end;
end;
until (i=5)or (a='111') ;
end.