fork download
copy 
  1. program ideone;
  2. type 
  3. TElement = (one,two,three,four,five,six,eight,nine);
  4. TElementSet = set of TElement;
  5.  
  6. var
  7. z, x, q: TElementSet;
  8. y: TElement;
  9. begin
  10. 	y := four;
  11. 	z := [one,five,eight];
  12. 	q := [one..eight];
  13. 	if y in z then writeln('t in z');
  14. 	if y in q then writeln('y in q');
  15. 	x := q - z; (*sym difference *)
  16.  
  17.  
  18. end.
Success #stdin #stdout 0s 4460KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
y in q
https://ideone.com/mLsd3N
language:
Pascal (gpc 20070904)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!