mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:47:58 +02:00
44 lines
847 B
ObjectPascal
44 lines
847 B
ObjectPascal
program test;
|
|
|
|
{$ifdef fpk}
|
|
{$ifdef go32v2}
|
|
uses
|
|
dpmiexcp;
|
|
{$endif}
|
|
{$endif}
|
|
|
|
type byteset = set of byte;
|
|
bl = record i,j : longint;
|
|
end;
|
|
const set1 : byteset = [1,50,220];
|
|
set2 : byteset = [55];
|
|
var i : longint;
|
|
b : bl;
|
|
|
|
function bi : longint;
|
|
|
|
begin
|
|
bi:=b.i;
|
|
end;
|
|
|
|
begin
|
|
set1:=set1+set2;
|
|
writeln('set 1 = [1,50,55,220]');
|
|
i:=50;
|
|
if i in set1 then writeln(i,' is in set1');
|
|
i:=220;
|
|
if i in set1 then writeln(i,' is in set1');
|
|
i:=$100+220;
|
|
if i in set1 then writeln(i,' is in set1');
|
|
i:=-35;
|
|
if i in set1 then writeln(i,' is in set1');
|
|
b.i:=50;
|
|
i:=$100+220;
|
|
if i in [50,220] then writeln(i,' is in [50,220]');
|
|
if Bi in [50,220] then writeln(b.i,' is in [50,220]');
|
|
b.i:=220;
|
|
if bi in [50,220] then writeln(b.i,' is in [50,220]');
|
|
B.i:=-36;
|
|
if bi in [50,220] then writeln(B.i,' is in [50,220]');
|
|
end.
|