Пусть Х- множество {1, 2, 3, 4}, а Y- множество {х: х = y+z; y,z X}. Определить в явном виде (списком) множество Y — Pascal(Паскаль)

IN проверка принадлежности; в этой бинарной операции первый элемент — выражение, а второй —   множество одного и того же типа; возвращает TRUE , если выражение имеет значение, принадлежащее множеству:

  3 in Vset возвращает TRUE; 

  2*2 in Vset возвращает FALSE.

Дополнительно к этим операциям можно использовать две процедуры. INCLUDE — включает новый элемент во множество. Обращение к процедуре:

INCLUDE (S,I)

 Здесь S — множество, I — элемент который необходимо включить во множество.

EXCLUDE — исключает элемент из множества. Обращение:  EXCLUDE(S,I)

type
   Un=set of 1..255; {определяем универсум}
var
   A,Y:Un;
   i,j,k: Integer;
begin
   A:=[1,2,3,4];
   for i:=1 to 255 do
     If i in A then
         For j:=1 to 255 do
              If  (j in A) and (j<>I) then
                      Begin
                      k:=i+j;
                        INCLUDE (Y,k); {включаем найденный элемент}
                      end;
   for i:=1 to 255 do  
       If i in Y then writeln(i); {выводим на экран найденной множество в виде списка}
end.

Leave a Comment

5 + 3 =