Опишите множества D1,D2,D3. Заполните их соответственно числами 2,4,6,8; 0,1,2,3,5;...

Question

Опишите множества D1,D2,D3. Заполните их соответственно числами 2,4,6,8; 0,1,2,3,5; 1,3,5,7,9. Выполните над множествами операции объединения, разности и пересечения.

Answer 1

Program Dafnochka;
uses crt;
type
  TypeD=set  of 0..10;
var
  dr,d1,d2,d3:TypeD;
  c:integer;
begin
  d1:=[2,4,6,8];
  d2:=[0,1,2,3,5];
  d3:=[1,3,5,7,9];
{вывод множеств}
  writeln('Множество D1:');
  for c:=0 to 10 do
    if c in d1 then
      write (' ',c,' ');
  writeln();
  writeln();     
  writeln('Множество D2:');
  for c:=0 to 10 do
    if c in d2 then
      write (' ',c,' ');
  writeln();
  writeln();   
  writeln('Множество D3:');
  for c:=0 to 10 do
    if c in d3 then
      write (' ',c,' ');
  writeln();   
  writeln();  
{примеры}
  dr:=d1+d2;    
  writeln('Пример 1 - объединение множеств D1 U D2');
  for c:=0 to 10 do
    if c in dr then
      write (' ',c,' ');
  writeln();   
  dr:=d2-d3;  
  writeln();   
  writeln('Пример 2 - разность множеств D2\D3');
  for c:=0 to 10 do
    if c in dr then
      write (' ',c,' ');
  writeln();   
  dr:=d2*d3;   
  writeln();    
  writeln('Пример 3 - пересечение множеств D2 П D3');
  for c:=0 to 10 do
    if c in dr then
      write (' ',c,' ');
  writeln();   
end.