Лабораторная работа № 8 Множественный тип данных

(4 часа)

Цель работы: Освоить на практике организацию множества, как структуры данных, средствами языка Object Pascal /

Домашнее задание:

1. Изучить организацию типа множество в Object Pascal

(set of < базовый тип >).

2. Освоить операции и стандартные функции, допустимые при работе с множествами.

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

1. Открыть проект Delphi Structures.

2. Добавить в управляющее главное меню пункт «Лабораторная работа №1», при выборе которого должно появляться окно модуля «Set» (модуль «Set» с формой добавить в проект).

3. Установить на форму модуля Set компоненты, обеспечивающие ввод исходных данных, управляющую кнопку (класса TButton или TBitBtn) и компоненты для вывода результатов на экране в соответствии с вариантом задания таблицы №1.

4. В обработчике события onClick управляющей кнопки на языке

Object Pascal написать фрагмент программы для реализации алгоритма в соответствии с вариантом задания.

Отладить обработчик на тестовых примерах и продемонстрировать работу приложения преподавателю.

5. Составить отчет и защитить работу преподавателю. В отчете обязательно представить блок-схему алгоритма решения задачи.

Таблица 8.1

№ вар.	Текст задачи
1.	Type Stroka= string[80]; Var s:stroka; Описать функцию Schet(s) , подсчитывающую общее кол-во цифр и знаков '+', '-', '*' ,входящих в строку s. Организовать Windows- приложение в Delphi , в котором исходная строка вводится с клавиатуры с помощью объекта класса TEdit , а результаты обращения к Function Schet вывести в объект класса TLabel.
2.	Type month= 1..12; Описать функцию CountDays (m:month), определяющую количество дней в месяце m ( невисокосного типа). Организовать Windows- приложение в Delphi , в котором номер месяца вводить с помощью объекта класса TEdit ,а результат обращения к функции CountDays для введенного месяца вывести в объект класса TLabel .
3.	В языке Паскаль нет стандартной операции , позволяющей узнать, сколько и какие именно элементы входят в некоторое множество. Как реализовать эту операцию другими средствами языка? Пусть имеем описание: Type Lat = set of 'a' .. 'z'; Var А:Lat; Описать: 1)функцию count(А) ,подсчитывающую количество элементов в множестве А ( например: count(['d','q','s']) =3) . 2)процедуру print(A) ,которая выводит на экран в алфавитном порядке все элементы множества А.
4.	Не используя дополнительных переменных , поменять местами значения переменных- множеств А и В.
5.	Дан текст из цифр и малых латинских букв, за которым следует точка. Определить, каких букв- гласных( а, е, i, o, u) или согласных больше в этом тексте. Использовать тип множество.
6.	Описать функцию Digits(n: integer) ,подсчитывающую количество различных(значащих) цифр в десятичной записи натурального числа n . Организовать Windows- приложение , в котором с помощью объекта класса TEdit ввести натуральное n , обратиться к функции Digits для подсчета количества различных цифр в записи числа и вывести полученный результат в объект на форму. Рекомендация. Сначала выделить цифры из числа n и записвть их в множество sd.
7.	Дан текст из малых латинских букв , за которым следует точка. Организовать программу, которая ищет и выводит: 1) первое вхождение каждой буквы в текст , сохраняя их исходный порядок. 2) все буквы, входящие в текст( на выводе все буквы по одному разу, независимо от того, сколько раз они встречаются в тексте. Рекомендация. В цикле посимвольной обработки текста формируйте множество , в которое войдут все буквы , встречающиеся в этом тексте.