为什么 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 documentation，Pascal 仅支持 0 到 255 之间的数字集合。重要的部分在这里：

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

打开范围检查{$R+} 将导致编译器警告您这些类型的错误。