虽然循环执行一次（？）

Question

我一直在Pascal编写这个hang子手程序，我一直在看这个问题一段时间，并且无处可去。我原本以为输入内容也是\n，但后来有点write()，事实并非如此。当我输入a时，会发生什么情况，它会经过循环并执行正确的操作，但随后它会再次通过任何内容或新的行字符或不可见的内容。我试过确保guess只能得到一个字符，但这使得它与无法看到的字符无数次循环。

如果任何人都可以提供任何关于哪里出错的信息，那就太棒了。谷歌其实不是一个非常大的帮助，一旦

无论如何，谢谢你可以提供的任何东西。

program p1; 
const 
    MAX_GUESSES = 6; 
    mysteryWord = 'abomination'; 
    //comparetext(str1,str2); 
type 
    word = array[0 .. 11] of char; 
var 
    guesses : word; 
    counter : integer;//for multipurpose counting ;) 
    wrong : integer; 
    keepGoing : boolean; 
    guess : char; 
    exists : boolean; 
begin 
    guesses := '***********'; 
    wrong := 0; 
    keepGoing := true; 
    repeat 
    keepGoing := false; 
    exists := false; 
    writeln('your word is ' + guesses + '.'); 
    write('You have ');   //this one line is separated into 3 
    write(6-wrong);    //because it wont allow (6-wrong) to 
    writeln(' wrong guesses left!');//be put in line with strings. 
    write('Guess a letter: '); 
    read(guess); 
    for counter := 0 to 11 do 
    begin 
     if (guess = mysteryWord[counter]) then 
     begin 
     guesses[counter-1] := guess; 
     exists := true; 
     end; 
    end; 
    if(exists = false) then wrong := wrong + 1; 
    for counter := 0 to 11 do 
    begin 
     if(guesses[counter] = '*') then keepGoing := true; 
    end; 
    until ((wrong >= 6) or (keepGoing = false)); 

end. 

Answer 1

如果更换线读（猜测）;与readln（guess）;每个循环只能得到一个字符。

如果你得到替换行char = array [0..11] char;与char =数组[1..11];（或交替摆脱不必要的'单词'类型，并设置猜测作为一个字符串），运行你的循环从1到11，并替换行猜测[counter-1]：= guess;与猜测[counter]：= guess;，你的程序不会有访问超出范围数组位置的错误。

此外，它可能是好的，（当你终于退出重复循环）提供一些输出文本告诉球员，如果他们赢了还是输了比赛......

...你也可以更换三行write（'You have'）;写（6-错）; writeln（'错误的猜测离开！'）;，单行writeln（'你有'，6 - 错误，'错误的猜测离开！'）;