bsuir.info
БГУИР: Дистанционное и заочное обучение
(файловый архив)
Вход (быстрый)
Регистрация
Категории каталога
Другое [127]
АВС [6]
КПиЯП [77]
ОАиП [301]
ОКТ [70]
СиСПО [8]
Форма входа
Логин:
Пароль:
Поиск
Статистика

Онлайн всего: 6
Гостей: 6
Пользователей: 0
Файловый архив
Файлы » ПОИТ » ОАиП

ПОИТ (д.), ОАиП, Контрольная работа №1, вар.3, 2017
Подробности о скачивании 22.08.2018, 21:54
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.
Категория: ОАиП | Добавил: Lecras
Просмотров: 45 | Загрузок: 2
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]