Пусть универсальное множество U- множество всех сотрудников некоторой фирмы; А — множество всех сотрудников данной организации старше 35 лет; В — множество сотрудников, имеющих стаж работы более 10 лет; С — множество менеджеров фирмы. Каков содержательный смысл (характеристическое свойство) каждого из следующих множеств — Pascal(Паскаль)

а)множество сотрудников организации, стаж работы которых не превышает 10 лет.

б) множество менеджеров фирмы не старше 35 лет, имеющих стаж работы более 10 лет.

в) множество всех сотрудников фирмы старше 35 лет, а также сотрудников, не являющихся менеджерами, стаж работы которых более 10 лет.

г) множество сотрудников организации со стажем работы более 10 лет, не работающих менеджерами.

д) множество менеджеров со стажем работы не более 10 лет.

type 
   digitChar= set of '0'..'9'; 
   digit = set of 0. .9;  
var 
   sl,s2,s3 :digitChar; 
   s4,s5,s6 :digit; 
begin 
   ..... 
   s1:=['1','2','3']; 
   s2:=['3','2','1']; 
   s3:=['2','3']; 
   s4:=[0..3,6]; 
   s5:=[4,5]; 
   s6:=[3..9]; 
   ..... 
end. 

Над множествами в Pascal  определены следующие операции:

*  пересечение множеств; результат содержит элементы, общие для обоих множеств; например, S4*S6          содержит [3], S4*S5 — пустое множество;

+ объединение множеств; результат содержит элементы первого множества, дополненные недостающими  элементами из второго множества:

  S4+S5 содержит [0,1,2,3,4,5,6]; 

  S5+S6 содержит [3,4,5,6,7,8,9];

— разность множеств; результат содержит элементы из первого множества, которые не принадлежат второму:

  S6-S5 содержит [3,6,7,8,9]; 

  S4-S5 содержит [0,1,2,3,6];

= проверка эквивалентности; возвращает TRUE, если оба множества эквивалентны;

<> проверка неэквивалентности; возвращает TRUE, если оба множества неэквивалентны;

<= проверка вхождения; возвращает TRUE, если первое множество включено во второе;

>= проверка вхождения; возвращает TRUE, если второе множество включено в первое.

Leave a Comment

− 1 = 1