Множества

Множество – неупорядоченная совокупность неповторяющихся однотипных элементов рассматриваемых как единое целое. В Паскале число элементов исходного множества не может быть больше 256. В качестве базового типа элементов множества могут быть использованы byte, char, перечислимый тип, а также диапазоны, образованные из них.

В отличие от элементов массива элементы множества не упорядочиваются и не нумеруются. Действия выполняются не над отдельными элементами множества, а над всем множеством.

Формат описания типа множества:

Type <имя_типа> = set of <тип_элементов>;

Пример:

Type

digit = set of 0..9;

sim = set of ’a’..’z’;

zn = set of (plus, div);

Переменные типа множество описываются в разделе var:

Var

Number : digit;

Bukva : sim;

Тип-множество можно указать непосредственно при описании переменных:

Var

Number : set of 0..9;

Bukva : set of ’a’..’z’;

Значением переменной может быть множество всевозможных сочетаний элементов исходного множества. В программе множество задается с помощью специальной синтаксической конструкции, называемой конструктором множества. Он представляет собой список элементов множества, заключенный в квадратные скобки. Элементы списка разделяются запятыми:

[0, 3..5, 8]

[’a’..’c’, ’x’]

В каждое множество включается пустое множество, не содержащее никаких элементов:

[ ]

Инициализировать переменную множественного типа можно с помощью оператора присваивания:

Number := [ 0, 3..5, 8];

Bukva := [’a’..’c’, ’x’];

Операции над множествами

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

1. Объединение.

Результат содержит все элементы первого множества, дополненные недостающими элементами из второго множества:

[1, 2, 3]+[3,5]=[1, 2, 3, 5]

2. Пересечение.

Результат содержит общие элементы множеств.

[1, 2, 3]*[3,5]=[ 3]

3. Разность.

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

[1, 2, 3]-[3,5]=[ 1, 2]

4. Операции отношения:

1. = если оба множества равны, результат – истина, иначе –ложь.

2. <> если множества не равны, результат - истина, иначе – ложь.

3. <= если первое множество включено в второе, результат – истина, иначе – ложь.

4. >= если второе множество входит в первое, результат – истина, иначе ложь.

5. IN вхождение. Проверяет, принадлежит ли элемент множеству.

Задача

Инициализировать множество M, состоящее из латинских букв a, b, c и d.

Инициализировать множество N, состоящее из латинских букв p и r.

Получить множество K объединением множеств M и N.

Проверить, принадлежит ли введенный символ множеству K.

Вывести на экран элементы множества K.

Решение

Program Mnozh;

Uses CRT;

Type

Tmn=Set of 'a'..'z';

Var

K,M,N:Tmn;

C,I:Char;

Begin

ClrScr;

M:=['a'..'d'];

N:=['p','r'];

K:=M+N;

Write('Введите символ->');

Readln(C);

If C in K

Then

Writeln

('Символ принадлежит множеству')

Else

Writeln

('Символ не принадлежит множеству');

For I:='a' to 'z'do

If I in K

Then

Writeln(I);

Readkey;

End.

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

Ввести список из 12 фамилий. Вывести на экран фамилии, начинающиеся с гласных букв.

Записи

Запись - это структурированный тип данных, состоящий из фиксированного числа полей разного типа. Поля записи могут иметь любой тип, в частности сами могут быть записями.

Формат

Type

<имя_типа> = record

<имя_поля > : < тип >;

. . .

<имя_поля > : < тип >;

end;

Пример.

Описание типа:

type

student = record

fam: string;

gr: integer;

end;

Описание переменной:

var

s: student;

Тип-запись можно указать непосредственно при описании переменных:

Var

s: record

fam: string;

gr: integer;

end;

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

s.fam :='Иванов';

writeln (s.fam, s.gr);

В программе могут использоваться массивы записей:

Var

s:array[1..50] of student;

Обращение к какому-либо элементу массива записей будет задаваться с помощью индекса:

s[i].fam := 'Иванов';

Обращение к полям записи имеет громоздкий вид.

Оператор объединения with позволяет работать с полями переменной типа запись, как с простыми переменными.

Формат.

with <переменная типа запись> do <оператор>;

Пример.

with s do

begin

fam := 'Иванов';

gr := 1985;

writeln (fam, gr:4);

end;

Задача

Ввести сведения о студентах в виде записей, содержащих фамилию и год рождения. Вывести фамилии студентов 1992 года рождения.

Решение

/*Обработка массива записей*/

program rec;

uses crt;

const n=4;

type

student=record

fam:string;/*Фамилия*/

gr:integer;/*Год рождения*/

end;

var

s:array[1..n] of student;/*Массив записей*/

i:byte;

begin

clrscr;

/*Ввод данных о студентах*/

for i:=1 to n do

with s[i] do

begin

write('Введите фамилию-');

readln(fam);

write('Введите год рождения-');

readln(gr);

end;

writeln('Список студентов 1992 года рождения');

/*Вывод фамилий студентов 1992 года рождения*/

for i:=1 to n do

with s[i] do

begin

if gr=1992

then

writeln(fam);

end;

readkey;

end.

Результаты работы программы

Введите фамилию-Иванов

Введите год рождения-1991

Введите фамилию-Сидоров

Введите год рождения-1992

Введите фамилию-Петров

Введите год рождения-1993

Введите фамилию-Котов

Введите год рождения-1992

Список студентов 1992 года рождения:

Сидоров

Котов

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

Создать массив, содержащий сведения о 20 студентах (фамилия, имя, рост). Вывести сведения о самом высоком и о самом низком студентах.

Файлы

Файл – это поименованная область памяти на внешнем запоминающем устройстве, предназначенная для хранения данных.

В языке Паскаль под файлом может пониматься логическое устройство (например, клавиатура, экран или принтер).

Для работы с файлами в программе должны быть определены переменные файлового типа, которые считаются представителями файлов в Паскаль-программе.

Тип-файл представляет собой последовательность компонент одного типа (за исключением типа-файла), расположенных на внешнем устройстве. Число компонент в файле не объявляется.

В Turbo Pascal имеется 3 категории файлов:

• текстовые;

• типизированные;

• без типа.

Текстовый файл представляет собой совокупность символов, разделенных на строки, причем в конце каждой строки стоит признак конца строки.

Для задания текстового файла используется стандартный тип Text.

Следует иметь в виду, что тип Text в Turbo Pascal не эквивалентен типу file of Char.

Var

F1: Text;

Для задания типизированного файла следует использовать зарезервированные слова file и of, после чего указать тип компонент файла.

Type

<имя_типа>= file of <тип_компонент>;

Пример.

Type

Number = file of Integer; {тип-файл целых чисел}

Symb = file of 'A' . . 'Z'; {тип-файл прописных латинских букв}

Var

F2, F3: Number;

F4: Symb;

Тип-файл можно определять и непосредственно при введении файловых переменных:

Var

F2, F3: file of Integer;

F4: file of 'A' . . 'Z';

Для задания файла без типа не указывается тип компонент. В этом случае работа с файлом осуществляется на физическом уровне в соответствии с внутренним форматом его данных. При этом реальные компоненты файла могут иметь и различный тип.

Type

<имя_типа> = file;

Пример.

Type

UnTyp = file;

Файловые переменные имеют специфическое применение. Над ними нельзя выполнять никаких операций (присваивать значение, сравнивать и т. д.). Их можно использовать лишь для выполнения операций с файлами (чтения, записи, удаления файла и т. д.). Кроме того, через файловую переменную можно получить информацию о конкретном файле (тип, параметры, имя файла и т. д.).

Для организации работы с файлом нужно выполнить следующие действия:

• связать файловую переменную с файлом на диске;

• открыть файл;

• выполнить операции с файлом (например, чтение или запись);

• закрыть файл.