到目前为止,你们都非常有帮助,这里又有一个让你们头疼的问题!
我有一个基本的单词猜测游戏,使用Pascal编写,适用于Delphi 7控制台,其中猜测(正确或错误)存储在名为“guesses”的固定数组中。现在我需要测试一下他们是否已经猜过那个字母。我有以下代码...
Write ('Guess a letter: '); Readln (guess); Guess := UpCase(Guess); repeat for i := 1 to 20 do begin if guess = guesses[i] then begin guessed := true; end else begin guessed := false; end; end; until (guessed = true) or (i = 20) ;
我的问题是它会循环执行20次for循环,并应该在第一个字母中结束,因为它不在“guesses”数组中,但它继续重复。在循环了20次for循环并没有找到猜测字母的任何条目之后,它应该退出,并将布尔值“guessed”设置为false。
非常感谢您的帮助!
guessed
设置为true,您可以轻松地使用break
。继续搜索毫无意义。 - jpfollenius