Лабораторный практикум по программированию на языке Pascal. Суркова Е.В. - 51 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

50
Введя тип-множество, можно задать переменные или типизированные кон-
станты этого типа-множества. Так же, как и для других структурированных ти-
пов, тип-множество можно ввести непосредственно при задании переменных
или типизированных констант.
var alf:set of char;
Множеству можно в программе присвоить значение, которое обычно зада-
ется с помощью конструктора множества:
alf:=[’A’..’Z’];
В каждое множество включается и так называемое пустое множество –
[ ], не содержащее никаких элементов.
Операции над множествами:
+
объединение множеств;
-
разность множеств;
*
пересечение множеств;
=
проверка эквивалентности двух множеств;
<>
проверка неэквивалентности двух множеств;
<=
проверка того, является ли левое множество подмножеством правого
множества;
>=
проверка того, является ли правое множество подмножеством левого
множества;
in
оператор вхождения, т. е. проверка того, входит ли элемент, указанный
слева, в множество, указанное справа.
Результатом операций объединения, разности или пересечения является
соответствующее множество, остальные операции дают результат логиче-
ского типа.
Пример выполнения лабораторной работы
Для примера рассмотрим следующую задачу. Дан массив из n слов произ-
вольной длины (длина слова не превышает 80 символов). Символами могут
быть буквы латинского алфавита и цифры. Определить сумму цифр во введен-
ном с клавиатуры тексте.
Обобщенный алгоритм решения данной задачи представлен на рис. 7.1.
Программу, как обычно, начнем с заголовка, подключения модуля
crt (в
тексте программы будет использована процедура очистки экрана
clrscr), раз-
делов описания типов и переменных. Тип
T_str определяем для работы с мас-
сивом слов, тип
T_set – тип-множество символов.
program lab_7;
uses crt;
type T_str=array [1..10] of string[80];
T_set=set of char;

Страницы