t_id
432
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
480878114 | 940962 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0233.pp } { Problem with enum sets in args OK 0.99.11 (PFV) } program except_test; type byteset = set of byte; enumset = set of (zero,one,two,three); function test(s : byteset) : boolean; begin test:=false; if 0 in s then begin Writeln('Contains zero !'); test:=true; end; end; function testenum(s : enumset) : boolean; begin testenum:=false; if zero in s then begin Writeln('Contains zero !'); testenum:=true; end; end; begin if test([1..5,8]) then halt(1); if not test([0,8,15]) then halt(1); if not testenum([zero,two]) then halt(1); end.