Работа с множественным типом данных

Цель: научиться составлять программы решения задач с использованием множественного типа данных.

Теоретические сведения:

В языке Паскаль типом-множеством называется множество различных сочетаний элементов исходного (базового) типа. Число элементов исходного множества в Turbo-Pascal не может быть больше 256, а порядковые номера элементов должны находиться в пределах от 0 до 255.

Для объявления типа-множества используются зарезервированные слова set of, после которых указываются элементы этого множества, как правило в виде перечисления или диапазона. Объявить тип-множество можно в разделе программы Type или при объявлении переменной в разделе Var. Например:

Type

Lat=set of 'A'..'Z'; {множество прописных латинских букв}

Oper=set of (Plus, Minus, Mult, Divide) {множество знаков арифметических операций}

Chisla=set of 12..27; {множество чисел от 12 до 27}

Digit=set of '0'..'9'; {множество символов-цифр}

После определения типа-множества можно объявить переменные или типизированные константы этого типа.

Var l: Lat; c1,c2: chisla; op: Oper; d: Digit;

g: set of ('а', 'я', 'о', 'ё', 'у', 'ю', 'э', 'е', 'ы', 'и');

В операциях над множествами могут участвовать переменные типа-множество, константы и конструкторы множеств.

Для множеств определены следующие операции.

+ объединение множеств;

- разность множеств;

* пересечение множеств;

= проверка эквивалентности двух множеств;

<> проверка неэквивалентности двух множеств;

<= проверка, является ли левое множество подмножеством правого;

>= проверка, является ли правое множество подмножеством левого;

in проверка принадлежности элемента множеству.

Результатом операций объединения, разности и пересечения является множество. Результатом операций проверки эквивалентности и вхождения будет значение логического типа.

Порядок выполнения работы:

1) Запустите программу Turbo Pascal.

2) Составьте программу решения задачи: Вычислить значения отношений:

А) [2]<>[2, 2, 2]; Б) [4, 5, 6]=[5, 4, 6]; В) [2, 3, 5, 7]<=[1..9]; Г) [3, 6..8]>=[2..7, 9]

3) Составьте программу решения задачи: Вычислить значения выражений:

А) [1, 3, 5]+[2, 4]; Б) [1, 3, 5]*[2, 4]; В) [1, 3, 5]-[2, 4]; Г) [1..8]-[3..6]

4) Составьте программу решения задачи: Из множества целых чисел 1..20 выделить: 1) множество чисел, делящихся на 6 без остатка; 2) множество чисел, делящихся на 2 или на 3 без остатка. Вывести содержимое этих множеств на экран. Откомпилируйте программу. Проверьте правильность решения задачи на примере.

5) Составьте программу решения задачи: Ввести строку символов, состоящую из латинских букв, цифр и пробелов. Осуществить проверку правильности введенных символов.

Откомпилируйте программу. Проверьте правильность решения задачи на примере.

6) Составьте программу решения задачи: Определить количество гласных букв в предложении, введенном с клавиатуры. Откомпилируйте программу. Проверьте правильность решения задачи на примере.

7) Запишите полученные результаты в тетрадь. Оформите отчет о проделанной работе, который должен содержать тему, цель работы, формулировки задач с решениями.

8) Выйдите из программы Turbo Pascal.

Лабораторная работа №11