n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/set1.pas

50 строк840 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

//var a : set of integer;
uses set_unit1;

procedure test(s : set of integer);
var t : set of char;
begin
t := ['a','b','c'];
end;

const h : set of char = ['a','k','l'];

var a : set of integer;
    b : set of integer;
    c : set of integer;
    d : set of integer;
    e : set of string;
    g : set of (red, green, blue, yellow);
    r : TRealSet;
    
begin
test2;
writeln(2 in a);
writeln('k' in h);
g := [green, yellow];
writeln(yellow in g);
test(a);
writeln(2 in a);
//r := [2.71,3.14];
Include(a,23);
Include(a,28);
Include(a,12);
//writeln(InSet(b,a));
Include(b,28);
Include(b,47);
//c := Union(a,b);
c := a + b;
d := a * b;
Include(e,'aaa');
Include(e,'bbb');
Include(e,'ccc');
Exclude(e,'bbb');

a := [21,45,34];
writeln(21 in a);
a := a - [21,45];
writeln(21 in a);
a := [1,2] + [2,4] +[12,13];

e := ['as','ddd','sss'];
end.