mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-25 23:49:15 +02:00
40 lines
813 B
ObjectPascal
40 lines
813 B
ObjectPascal
program test_set;
|
|
|
|
var error : boolean;
|
|
|
|
|
|
procedure test;
|
|
|
|
var
|
|
i : longint;
|
|
x : array [1..32] of byte;
|
|
|
|
begin
|
|
error:=false;
|
|
for i:=1 to 32 do x[i]:=$ff;
|
|
i:=1;
|
|
if i in [1,3,5,8,11,14,15] then
|
|
writeln('1 is in [1,3,5,8,11,14,15]')
|
|
else
|
|
writeln('Error in set');
|
|
i:=135;
|
|
if i in [1,3,5,8,11,14,15] then
|
|
begin
|
|
writeln('Error : 135 is in [1,3,5,8,11,14,15]');
|
|
error:=true;
|
|
end;
|
|
for i:=1 to 32 do x[i]:=0;
|
|
i:=135;
|
|
if i in [1,3,5,8,11,14,15] then
|
|
writeln('Second try Error : 135 is in [1,3,5,8,11,14,15]')
|
|
else
|
|
begin
|
|
if error then
|
|
writeln('Result of 135 in [1,3,5,8,11,14,15] depends on x array !!');
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
test;
|
|
end.
|