tset7.pp 428 B

123456789101112131415161718192021222324252627282930313233343536
  1. { test for subsetreg sets }
  2. {$packset 1}
  3. type
  4. ta = 0..7;
  5. tr = record
  6. b: byte;
  7. a: set of ta;
  8. w: word;
  9. end;
  10. procedure test(r: tr);
  11. var
  12. b: ta;
  13. begin
  14. b := 6;
  15. if (r.b<>101) or
  16. (r.w<>$abcd) or
  17. (5 in r.a) or
  18. (b in r.a) or
  19. not(7 in r.a) or
  20. ([1..3] * r.a <> [2..3]) then
  21. halt(1);
  22. end;
  23. var
  24. r: tr;
  25. begin
  26. r.b:=101;
  27. r.w:=$abcd;
  28. r.a:=[2..3];
  29. include(r.a,7);
  30. test(r);
  31. end.