Op : znak;

workinghours, dayoff : day;

kolir : color;

Тут описано шість змінних. Змінні winterm (зимовий місяць: winter — зима) і summerm (літній місяць, sum­mer — літо) мають тип month (тобто кожна з них може мати одне з дванадцяти значень January, February, march, april, may, June, July, august, september, oktober, november, december і ніяких iнших), змінна op має тип znak, змінні workinghours (working hours — робочий день) і dayoff (вихідний день) мають тип day, змінна kolir — тип color. У програмі, яка містить такі описи змінних, синтаксично правильними будуть такі оператори присвоювання:

winterm: = february; summerm: = august;

op: = minus; dayoff := sunday;

Означення типу i опис змінних можна, взагалі кажучи, замінити одним описом змінних. Наприклад, замість озна­чення

TYPE znak = (plus, minus, multiply, divide);

i опису

VAR op : znak;

можна записати

VAR op : (plus, minus, multiply, divide);

Перелічувальні типи часто використовуються в опера­торах циклу з параметром, а також в операторах вибору. Наприклад,

FOR kolir:= red TO violet DO

BEGIN

cерія

END;

FOR kolir: = violet DOWNTO red DO

BEGIN

серія

END

Обмежені типи. Для всіх скалярних типів, крім дійс­ного, можна означити новий тип, накладаючи обмеження на початковий. Останній при цьому називається базовим ти­пом. Обмеження визначає діапазон допустимих значень: вказуються мінімальне i максимальне значення в діапазоні. Означення обмеженого типу має форму:

TYPE ім'я типу = константа 1.. константа 2;

Перша константа визначає нижню межу і не повинна пе­ревищувати верхньої. Обмежений тип зберігає всі власти­вості базового скалярного типу з урахуванням діапазону його значень.

Використання обмежених типів має ряд переваг. Це унаочнення програми (вказуються додаткові відомості про діапазон значень, які може набувати змінна); зменшення пам'яті, яку займає програма, контролювання під час вико­нання програми присвоювання змінним обмеженого типу.

Наприклад:

TYPE masa = 10..100;

index = 0..10;

letter = ‘A’..’Z’;

working = monday..friday;

Тут working (робочий) — це обмеження перелічувального типу day з розглянутого вище прикладу.

Базовим типом для masa і index є цілий (integer) для letter — символьний (char), для working — перелічуваль­ний простий тип day.

Використовуючи відповідні імена типів, можна, напри­клад, записати такі описи змінних:

VAR mas1, mas2: masa;

і, beta: index;

lit, symbol: letter;

work: working;

Тип даних можна було б описати і безпосередньо в роз­ділі опису змінних:

VAR mas1, mas2: 10..100;

i, beta: 0..10;

lit, symbol: ‘A’..’Z’;

work: monday..friday;

Приклади

1. Скласти програму, яка б визначала, чи є заданий рік з проміжку [1001; 9999] — високосним.

Високосним, як відомо, є роки, номери яких діляться на 4, крім тих, номери яких діляться на 100, але не діляться на 400.

Програму мовою Паскаль можна записати у вигляді: