为什么Free Pascal打印'NO'？

Question

var
    a: Integer;  
begin 
    a:= 300;  
    if a in [100..500] then  
        WriteLn ('YES')    
    else  
        WriteLn ('NO')  
end.

Answer 1

根据FreePascal文档,Pascal仅支持0到255之间的数字.重要的部分在这里:

SetType的每个元素都必须是TargetType类型.TargetType可以是任何序数类型,范围在0到255之间.一组最多可包含255个元素.

打开范围检查{$R+}将使编译器警告您出现这些类型的错误.