Перечисляемый тип

Кроме описанных выше типов, в Pascal'е могут быть организованы новые типы, определяемые пользователем. Pascal позволяет создавать типы данных, имеющие совершенно произвольные значения. Их только необходимо перечислить в скобках. Поэтому подобный тип называется перечисляемый. Вот как он должен быть описан:

....................

TYPE

DAYS_OF_WEEK = (Mon, Tue, Wed, Thu, Fri, Sat, Sun);

MONTH = (Jan, Feb, Mar, Apr, May, Jun, Jul,

Aug, Sep, Oct, Nov, Dec);

COLORS = (Red, Blue, White, Green, Black);

..................................................

Тип - диапазон

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

..........................

TYPE Level = 30..160;

Diapazon = 0..100;

Bukva = 'A'..'Z';

DAYS_OF_WEEK = (Mon, Tue, Wed, Thu, Fri, Sat, Sun);

WORK_DAYS = (Mon..Fri);

WEEK_END = (Sat..Sun);

MONTH = (Jan, Feb, Mar, Apr, May, Jun,

Jul, Aug, Sep, Oct, Nov, Dec);

I_Kvartal = (Jan..Mar);

II_Kvartal = (Apr..Jun);

III_Kvartal = (Jul..Sep);

IY_Kvartal = (Oct..Dec);

.........................

ПОДРОГРАММЫ

Pascal имеет возможность обрабатывать подпрограммы двух видов:

· подпрограмма типа FUNCTION;

· подпрограмма типа PROCEDURE.

Описание подпрограмм располагается в тексте основной программы непосредственно перед описательной частью.

Подпрограмма типа FUNCTION

Подпрограммы Pascal'я имеют ту же структуру, как и любая другая программа, написанная на этом языке:

- заголовок;

- описательную часть со всеми требующимися разделами;

- исполнительную часть, охваченную словами BEGIN... END

и завершающуюся знаком "; ".

Заголовок FUNCTION записывается так:

FUNCTION < имя> (V1: < тип параметра1> [; V2: < тип параметра2>;...]): < тип функции>;

где

- < имя> - имя функции, составленное по правилам для идентификаторов;

- V1, V2 - формальные параметры функции;

- [] - указание на необязательность атрибута.

Например:

FUNCTION Sum(X, Y: Real): Real;

где:

- Sum - имя функции вещественного типа;

- X, Y - формальные аргументы функции вещественного типа.

Описательная часть подпрограммы, если она требуется, может содержать все присущие ей разделы: библиотек - USES, констант - CONST, переменных - VAR и т.д. Исполнительная часть в качестве последнего оператора должна содержать оператор, присваивающий имени функции конечный результат её работы. Например:

...............................

Function tg(X: Real): Real;

Begin

TG: = Sin(X)/Cos(X);

End;

....