パスカルブール戻り値？

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はこれらの2つの値のうちの1つにしかならないため、常にその条件を満たすため、ループを実行することはありません。

また、ループを開始する前に明示的に値exit := falseを設定することを検討してください。

Answer 3

何」ここで尋ねるのは "nullable"ブール値です（値はtrue、値はfalse、値は提供されません）。私が知る限り、どのパスカル方言にも実装されていません。したがって、あなたはあなたの指示を2つの別々のフラグに分割しなければならない：a）ユーザーによって提供された適切な入力があるか。 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;