Даны два числовых множества A = (2,3,4,5,6,7,8,10) и B = (1,3,4,7,9,12,15). Написать программу, которая реализует операции над множествами A и B и выводит результат выполнения операций на экран — Pascal(Паскаль)

1. Объединение множеств, это
c:=a+b;
2. Пересечение множеств, это
c:=a*b;
3. Разность множеств А и В, это
c:=a-b;
4. Разность множеств B и A, это
c:=b-a;

program operacii;
uses crt;
type
    al=set of 1..15;
Var
 A,B:al;
 r1,r2,r3,r4:al;
 i:integer;
BEGIN
ClrScr;
 A:=[2,3,4,5,6,7,8,10];
 B:=[1,3,4,7,9,12,15];
 r1:=A+B;
 r2:=A*B;
 r3:=A-B;
 r4:=B-A;
{r1}
 write('Mnojina r1:');
  for i:=1 to 15 do
   if (i in r1) then
    write(i);
 readln;
{r2}
 write('Mnojina r2:');
  for i:=1 to 15 do
   if (i in r2) then
    write(i);
 readln;
{r3}
 write('Mnojina r3:');
  for i:=1 to 15 do
   if (i in r3) then
    write(i);
 readln;
{r4}
 write('Mnojina r4:');
  for i:=1 to 15 do
   if (i in r4) then
    write(i);
 readln;
END.

Похожие записи/страницы:

Leave a Comment

− 2 = 7