нужна прога

[Bentley]

хэлп
может ктото разберается в Паскале.
мне нужна прога которая:
с помощью repeat требует пороль 111, если пороль правельный, то выводит сообщ Молодец:) , если после 5 попытки пароль всёравно не верен, то выйти из проги.
заранее блогадарю.

[sadman]

Давно я паскаль щупал..
за синтаксис не отвечаю. попробуй так: (объявления переменных и т.п. оставил тебе )

Код: Выделить всё

counter := 0;
repeat{
  writeln("Give me a password");
  readln(pswd);
  counter := counter+1;
}
until(pswd<>"111" || counter=5);
if(counter=5)
then //завершить программу
writeln("molodezzz");

[off]а вообще в Программирование постить надо такие темы.[/off]

[Злобный]

программа написана неправильно.
1) должно быть "until pswd = 5". в твоем случае из цикла выйдет при первом неправильном вводе
2) что будет, если пользователь ввел правильный пароль на 5-м шаге? в твоем случае программа просто завершится, хотя должна бы написать "молодец"

[off]а вообще проверять надо код перед постом.[/off]

[sadman]

Злобный,

а вообще проверять надо код перед постом.

[off]простите пожалуйста, я больше так не буду
и заметь:

за синтаксис не отвечаю. попробуй так

[/off]

[Злобный]

[off]sadman,
у тебя ошибки не в синтаксисе, а в логике работы программы. синтаксические ошибки исчезнут на этапе компиляции, логические же останутся в программе.[/off]

[жена бэтмэна]

вопшЭм как-то так вроде

Код: Выделить всё

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.

[sadman]

[off]Злобный,
ой да, вот тут я реально прогнал.. признаю ошибку. не досмотрел.[/off]