home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / interpre / p_pascal / samples / sets.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-09-19  |  800 b   |  31 lines
  1. (*$c+*)
  2. PROGRAM test(input, output);
  3. TYPE    r_v = 1 .. 20;
  4.     r_i = SET OF r_v;
  5.     c_v = ARRAY[r_v] OF r_i;
  6. VAR    pt, bt, wp : r_i;
  7.     crr : r_v;
  8.     ng : c_v;
  9. BEGIN
  10.     pt := [1, 5 .. 7, 12, 14, 19];
  11.     bt := [3, 4, 8, 11, 13, 15 .. 17];
  12.     wp := [18];
  13.     ng[1] := [3, 4, 9, 13];
  14.     ng[2] := [8, 9, 12, 20];
  15.     ng[3] := [1, 5, 14, 17];
  16.    FOR crr := 1 TO 20 DO
  17.      BEGIN
  18.     WRITE(' Crr =', crr : 3,':  ');
  19.     IF crr IN pt THEN WRITE('Crr in pt; ');
  20.     IF crr IN bt THEN WRITE('Crr in bt; ');
  21.     IF crr IN wp THEN WRITE('Crr in wp; ');
  22.     IF crr IN pt+bt THEN WRITE('Crr in pt+bt; ');
  23.     IF crr IN bt+wp THEN WRITE('Crr in bt+wp; ');
  24.     IF crr IN pt+bt+wp THEN
  25.       WRITE('Crr is in pt+bt+wp. ');
  26.     WRITELN;
  27.     IF crr < 4 THEN IF (ng[crr] * bt) <> [] THEN
  28.       WRITELN('ng[', crr : 1, '] * bt <> []')
  29.       END
  30. END.
  31.