Pascal Boolean возвращаемое значение?

Question

я в настоящее время работает над осуществлением тестирования логическое значение из пользовательского ввода, так как будет представлен ниже:

function ReadBoolean(prompt: String): Boolean; 
var 
    choice: String; 
    exit: boolean; 
begin 
    repeat 
    begin 
     WriteLn(prompt); 
     ReadLn(choice); 
     case choice of 
     'yes','y','t','true': exit := true; 
     'no','n','f','false': exit := false; 
     else 
      WriteLn('Not a boolean input. Enter again: '); 
     end; 
    end; 
    until exit=true or exit=false; 
    result := exit; 
end; 

Ожидается, что держать зацикливание просить значение до тех пор, пока не получит входной сигнал от указанной строки, однако при моя первая попытка, когда я пытаюсь ввести 'fred', логическая переменная автоматически назначается как TRUE и выходит из функции.

Любая помощь будет очень признательна.

Answer 1

Как я понимаю, вы хотите, чтобы цикл заканчивался, когда пользователь вводил определенные строки.

Это может быть достигнуто путем изменения until состояния, как это:

choice='yes' or choice='y' or choice='t' or choice='true' or choice='no' or choice='n' or choice='f' or choice='false' 

или в качестве альтернативы, создать бесконечный цикл, и разорвать его, когда пользователь вводит ожидаемую строку:

while true do 
    ... 
    'yes','y','t','true': 
    begin 
     exit := true; 
     break; 
    end; 
    'no','n','f','false': 
    begin 
     exit := false; 
     break; 
    end; 
    ... 
end; 

Answer 2

Ваша петля прекращается, когда exit=true or exit=false. Поскольку exit может быть только одним из этих двух значений, он всегда будет соответствовать этому условию, поэтому он никогда не запустит ваш цикл.

Но также, прежде чем начинать цикл, необходимо явно указать значение exit := false.

Answer 3

Что вы» re ask here «nullable» boolean thing (значение true, значение false, значение не предоставляется). Насколько я знаю, это не реализовано ни на одном диалекте Паскаля. Таким образом, вам нужно разделить показание на два отдельных флага: а) есть ли какой-либо хорошо сформированный ввод, предоставленный пользователем; b) вход считается признанным как истинный или ложный

function ReadBoolean(prompt: String): Boolean; 
var 
    choice: String; 
    exit: boolean; 
    recognized: boolean; { this is our termination flag } 
begin 
    recognized := false; { we place it to false initially as no user input recognized yet } 
    repeat 
    begin 
     WriteLn(prompt); 
     ReadLn(choice); 
     case choice of 
     'yes','y','t','true': begin exit := true; recognized := true; end; { we mark it as recognized } 
     'no','n','f','false': begin exit := false; recognized := true; end; { we mark it as recognized } 
     else 
      WriteLn('Not a boolean input. Enter again: '); 
     end; 
    end; 
    until not recognized; { we keep asking for user input until known input provided } 
    result := exit; 
end;