1. Program Multiplicity; 2. Uses Crt; {Подключаемый модуль} 3. Type 4. X = Set of 1..100; {Задание множества от 1 до 100} 5. Const 6. N=10; {Постоянная мощности множества} 7. var 8. x1, x2, x3, Y: X; {Множества, заданные через тип} 9. k: integer; {Вспомогательные переменные} {Процедура с параметрами-значениями и параметрами-переменными} 10. Procedure Fill_X(var X0: X); 11. var 12. I, xn: integer; 13. Begin 14. x0 := []; {Ввод значения пустого множества} 15. For I:=1 To N Do 16. Begin 17. Write(I+'. '); 18. Read(xn); 19. If xn In X0 Then 20. Writeln('Элемент ',xn,' уже есть') {Сообщение о вводе одинакового элемента} 21. Else 22. x0:=x0+[xn]; {Значения множества} 23. end; 24. end; 25. Begin 26. Writeln('Элементы, входящие в множество X1:'); 27. Fill_X(x1); {Вызов процедуры} 28. Writeln('Элементы, входящие в множество X2:'); 29. Fill_X(x2); {Вызов процедуры} 30. Writeln('Элементы, входящие в множество X3:'); 31. Fill_X(x3); {Вызов процедуры} 32. Y:= (x1*x2)+(x2-x3); {Получение нового множества У} 33. Writeln('Элементы, входящие в множество Y:'); 34. Writeln(Y:4); {Проверка вхождения в множество любого числа} 35. Begin 36. Writeln('Введите элемент для проверки входа во множество Y:'); 37. Read(k); 38. If k in y Then 39. Writeln('Элемент входит в множество Y.') 40. Else 41. Writeln('Элемент не входит в множество Y.'); 42. end; {Проверка вхождения в множество Х1} 43. Begin 44. If x1 <= y Then 45. Writeln('Элемент X1 входит в множество Y.') 46. Else 47. Writeln('Элемент X1 не входит в множество Y.'); 48. end; 49. END.
