Пример описания переменного множества Элементы множества
var a set of [ 'A'..'Z', 'a'..'z' ]; Буквы латинского алфавита
var b set of [ 'a'..'z' ]; Малые буквы латинского алфавита
var c set of [ 'А'..'Я', 'а'..'п', 'р'..'я', 'Ё', 'ё' ]; Буквы алфавита-кириллицы
var d set of [ 'А'..'Я' ]; Большие буквы алфавита-кириллицы
var m set of [ '0'..'9' ]; Цифровые символы от 0 до 9
var n set of [ 0..100 ]; Целые числа от 0 до 100
Операция Результат операции Пример
М1 + М2 Объединение множеств М1 и М2 ['0'..'9'] + ['+']
М1 - М2 Разность множеств М1 и М2 ['a'..'z'] - ['x'..'z']
М1 * М2 Пересечение множеств М1 и М2 ['a'..'m'] * ['c', 'i', 'n']
Операция Когда результат операции равен true Пример
значение in множество Значение является элементом множества not (s[i] in ['a'..'z'])
М1 = М2 Множества М1 и М2 равны между собой
М1 <> М2 Множества М1 и М2 не равны
М1 < М2 Множество М1 является подмножеством множества М2
М1 <= М2 Множество М1 является подмножеством множества М2 или равно М2
М1 > М2 Множество М1 является надмножеством множества М2
М1 >= М2 Множество М1 является надмножеством множества М2 или равно М2
Часть IV.
15. ФайлыТип файла Описание файла Пример
текстовый файл (текст) text var t: text;
типизированный файл file of тип-элемента var a: file of integer;
Процедуры и функции Операция Пример
read( файл, список ввода ) Ввод данных из файла read(t,a,b,c);
readln( файл, список ввода ) Ввод данных из файла readln(t,a,b,c);
write( файл, список вывода ) Вывод данных в файл write(t,x,y,z);
writeln( файл, список вывода ) Вывод данных в файл writeln(t,x,y,z);
assign( файл, имя файла ) Определить имя файла assign(t,'c:\text\info.txt');
reset( файл ) Открыть файл для ввода reset(t);
rewrite( файл ) Открыть файл для вывода rewrite(t);
close( файл ) Закрыть файл close(t);
eof( файл ) Если конец файла, то true (функция) while not eof(t) do read(t,a);
eoln( файл ) Если конец строки, то true (функция) while not eoln(t) do read(t,a);
16. Типы и записиОписание типа записи Пример
имя типа = record type data = record
имя-1: тип-1; x:integer;
имя-2: тип-2; y:integer;
имя-N: тип-N; t:string;
end; end;
var a1, a2, a3: data;
17. Ссылки и указателиОписание указателя Пример
имя-указателя: ^имя-типа; var pdata: ^data;
Ссылка с помощью указателя Пример
имя-указателя^ pdata^ := 0;
Процедура Операция Пример
new(имя-указателя) Выделить память для переменной (создать переменную для указателя) new(pdata);
dispose(имя-указателя) Освободить память переменной (указатель:=nil) dispose(pdata);
18. Объекты и классыОписание типа объекта (класс) Пример
имя класса = object (класс-родитель) type donkey = object (animals)
свойство-1: тип-1; x:integer;
свойство-2: тип-2; y:integer;
свойство-N: тип-N; t:string;
метод-1(параметры); function run(m:string):boolean;
метод-2(параметры); procedure show;
метод-N(параметры); procedure hide;
end; end;
var a1, a2, a3: donkey;