Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/amazon-web-services/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Pascal 程序中的Else错误_Pascal - Fatal编程技术网

Pascal 程序中的Else错误

Pascal 程序中的Else错误,pascal,Pascal,它首先给出了一个错误,表示这不是预期的 此外,如果有人愿意将我加入Skype,这样我就可以问这些基本问题,这将非常有帮助 Program Game ; var answer: string; Begin writeln('(======= MENU =======)'); writeln('-------- PLAY --------'); writeln('-------- HELP --------'); writeln('-------- EXIT --------'); re

它首先给出了一个错误,表示这不是预期的

此外,如果有人愿意将我加入Skype,这样我就可以问这些基本问题,这将非常有帮助

Program Game ;

var answer: string;

Begin

writeln('(======= MENU =======)');
writeln('-------- PLAY --------');  
writeln('-------- HELP --------');
writeln('-------- EXIT --------');

repeat

writeln('Pick PLAY, HELP or EXIT');
readln(answer);

if answer = 'EXIT' then
      writeln();
      writeln('Write EXIT again!')
    else 
      if answer = 'HELP' then
    writeln();
    writeln('Simple commands like observe, look, take.')
      else 
    if answer = 'PLAY' then
    writeln();
            writeln('You are in a cave!');

until answer = 'EXIT';

End.
Pascal需要一条介于
if
else
之间的语句。它错误地理解了您的代码:

if answer = 'EXIT' then
    writeln(); (* one statement *)

writeln('Write EXIT again!') (* unrelated to the "if" above *)

else (* error - no preceding "if" *)
解决方案是,使用
begin
end
将两条语句放在一条语句中:

if answer = 'EXIT' then
  begin
    writeln();
    writeln('Write EXIT again!')
  end
else
...

请将您的代码作为文本而不是图像发布。
basic
tag用于初学者的通用符号指令代码。。。不是简单的问题。代码的缩进是混乱的。我没有修复它,因为它似乎是问题的原因。另请参见。我在
if-then-else
syntax上给出了一个扩展的答案。谢谢,我真的需要基础知识