Відрізковий тип.

В Pascal не можна безпосередньо вводити та виводити на зовнішні пристрої значення перелічувальних даних. Дуже вигідно використовувати для цього оператор варіанту або оператор присвоєння.

Приклад: Є перелік звірів. Визначити в цьому списку порядковий номер лева та порядковий номер звіра після оленя.

Program RB;

Туре звір=(лисиця, вовк, заєць, тигр, лев, ведмідь, олень, білка);

Var P1,P2:3вip;

N1,N2: integer;

Begin

Р1:=лев;

Р2: =succ (олень);

N1:=ord(p1)+1;

N2:=ord(p2)+2;

Writeln(’порядковий номер лева — ', N1:2);

Writelп(’порядковий номер звіра після оленя = ',N2:2);

End.

(Так як лічба перелічувальних данних починається з 0, а не з 1, то для обчислення порядкового номеру потрібно додавати 1).

Якщо яка-небудь змінна приймає не всі значення свого типу, а тільки значення, що містяться в деякому відрізковому діапазоні, то її можна розглядати як змінну відрізкового типу.

Наприклад, в розділі опису типів описаний тип місяців року:

Туре місяць=(січень, лютий, березень ,..., грудень);

а задача вирішується тільки з літнім періодом року, тоді вводиться поняття відрізковий тип:

Туре літо= червень..серпень;

який є частиною типа Місяць. В цьому випадку тип Місяць, із якого був видалений тип Літо є базовим відносно типу Літо. При визначенні відрізкового типу задається початкове та кінцеве значення, які може приймати константа базового типу на цьому відрізку, що розділяються двома крапками. Опис відрізкового типу має вигляд:

Туре ім’я_типу=конст1..конст n;

при цьому повинні виконуватися слідуючі правила:

1. обидві граничні константи повинні бути одного типу;

2. в ролі базового типу можна використовувати любий стандартний тип крім дійсного;

Іn=0..25;

Lete='A'. .'Z';

Осінь =Вересень.. Листопад;

3. початкове значення при визначенні відрізкового типу не повинно бути більшим кінцевого значення;

4. змінні відрізкового типу повинні бути описані в розділі змінних за допомогою імен цих типів;

5. змінні відрізкового типу, як і перелічувального, можна описувати не звертаючись до розділу опису типів.

Використання граничних типів дозволяє користувачу більш чітко викласти свою задачу. Вказавши в явному вигляді діапазон зміни змінних, відрізковий тип робить програму більш зрозумілою та доступною.

Приклад: Є опис

Type zir=’0’..'9';

Var d:zir;

К: 0. . 9;

N: integer;

(1. який базовий тип для цього відрізкового типу ? )

2. Чи допустимі присвоєння : d:= '6'; d: = 'a'; d: -7 ?

З.Які значення може приймати змінна k ? Чи допустимі присвоєння ?

k:=4; k:=11; k:=0; k:='5'