Глава7 

                                          ТИПИЗИРОВАННЫЕ КОНСТАНТЫ

  7.1 Константы простых типов и типа STRING
  7.2 Константы- Массивы
  7.3 Константы- Записи 
  7.4 Константы- Множества
  7.5 Константы- Указатели

оглавление


   В Турбо Паскале допускается использование типизированных констант. Они задаются в разделе объявления констант следующим образом: <идешпификатор>: <тип> - <значение>
Здесь <идентификатор> - идентификатор константы;
<тип> - тип константы;
<значение> - значение константы.
Типизированным константам можно переприсваивать другое значения в ходе выполнения программы, поэтому фактически они представляют собой переменные с начальными значениями. Типизированная константа приобретает указанное в ее объявлении значение, т.е. инициируется, лишь один раз: к моменту начала работы программы. При повторном входе в блок (процедуру или функцию), в котором она объявлена, переинициация типизированной константы не производится и она сохраняет то значение, которое имела к моменту выхода из блока.
Типизированные константы могут быть любого типа, кроме файлов. Нельзя также объявить типизированную константу-запись, если хота бы одно из ее полей является полем файлового типа.
Поскольку типизированная константа фактически не отличается от переменной, ее нельзя использовать в качестве значения при объявлении других констант или границ типа-диапазона.

            Вверх

             7.1. КОНСТАНТЫ ПРОСТЫХ ТИПОВ И  ТИПA STRING

   Объявление таких констант обычно не вызывает трудностей, так как в качестве их значения используются нетипизированные константы или их идентификаторы.
Примеры объявлений:
            type
           colors = (white, red, black);
        { ----- Правильные объявления: ----- }
            const
              CurrCol:colors=red;
           name: string='Вирт Н.';
             year: word=1989;
             x : real=0.1;
               min: Integer=0;
              max:Integer=10;
               days:1..31=1;
                answer:char='Y';
                 { ----- Неправильные обьявления: ----- }
           mass : array [min..max] of real; (Нельзя использовать типизированные константы в качестве                                                       границ диапазона)

              7.3. КОНСТАНТЫ-ЗАПИСИ

   Определение константы-записи имеет следующий вид:
<идентификатор> : <тип> - (<сп.знач.полей>)
Здесь <идентификатор> - идентификатор константы;
<тип> - тип записи;
<сп.знач.полей> - список значений полей.
Список значений полей представляет собой список из последовательностей вида: имя поля, двоеточие и константа. Элементы списка отделяются друг от друга двоеточиями, например:

      type

                       point = record

                     x, y ; real;

                          end;

     vect = array [0..1] of point;

               month = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);

     date = record;

                          d: 1..31;

                m: month;

                          y : 1900..1999

            end;

         const

   origon : point = (X : 0; Y: -1);

             Line : vector = ((x: -3.1; y: 1.5), (x: 5.9; y: 3.0));

 SomeDay: date = (d : 16; m : Mar; y : 1989);

 

Поля должны указываться в той последовательности, в какой они перечислены в объявлении типа. Если в записи используется хотя бы одно поле файлового типа, такую запись нельзя объявить типизированной константой. Для записей с вариантными полями указывается только один из возможных вариантов констант. Например:
type
forma = record
case Boolean of
true: (BirthPlase: string[40]);
False :Country string[20];
EntryPort:string[20];
EntryData:array[1..3] of word;
Count:word)

   end;

const : form = (Country  : 'Польша'; EntryPort: 'Ленинград': EntryDate :(16, 3, 89): count   : 12);

 Percon2: forma= (BirtPlace : 'Ìîñêâà');

 

          Вверх

---

                                       7.4. Константы-множества.

Значение типизированной константы-множества задается в виде правильного конструктора множества, например:
Type
Days=set of 1..31;
Digc=set of ‘0’..’9’;
Error=set of 1..24;
Const
WorkDays:days=[1..5, 8..12, 15..19, 22..26, 29, 30];
EvenDigits: digc=[‘0’, ‘2’, ‘4’, ‘6’, ‘8’];
ErrorFlag:error=[];

                 Вверх

---

                                         7.5. Константы-указатели

Единственным значением типизированной константы-указателя может быть только NIL, например:
Const
Pr:^real=NIL;
 

                        Вверх          оглавление