Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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 - разность множеств D2D3);
  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.