Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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

Кроме описанных выше типов, в 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;

....