Типизированные константы скалярных типов

type week = (mn, tu, we, th, fr, st, sn);

Const day: week = mn;

x: real = 0.25;

y: integer= 100;

min: byte= 0;

max: byte= 99; и т. д.

Типизированные константы - массивы и строки

Строки задаются так же, как и скалярные типы:

П р и м е р: const suname: string[20] = ’Баланс’;

Массивы. В качестве их значений используется список констант соответствующего типа, отделенных друг от друга запятыми, заключённый в круглые скобки (синтаксическая диаграмма на рис. 7.2).

Рис. 7.2. Задание массива типизированной константой

П р и м е р ы:

Const

CN: array [1..5] of integer = (5, 15,-38,40,4);

name:array [1..4] of string[12]=(‘Алла’,’Борис’,

’Сергей’,‘Юрий’);

sumbols: array [1..4] of char = (‘+’,’-‘,’*’,’/’);

(можно сократить: symbols: array [1..4] of char = ‘+ - * /’; это возможно, так как все символьные массивы и строки в Паскале хранятся в упакованном виде)

Const

N = 100; tуре NS = Set of 0..255;

NB:array[1..N] of string[20]=(‘Грипп’, ‘ОРЗ’,‘Корь’…);

B:array[1..N] of NS=([17,19,95,96],[17,19,90],[3,6,25]…);

(количество значений должно совпадать с количеством элементов описываемого массива)

math: array [1..3, 1..2] of byte = ((3,5), (0,16), (14,9));

7.3. Типизированные константы – множества

Константы – элементы множеств задаются по правилам, описанным для множеств, то есть перечислением констант либо диапазоном (рис. 7.3), например:

1) type NS = set of byte;

const B1:NS=[17,19,95,96]; B2: NS = [1,8,10,26];

2) type letter = set of char;

const L1:letter=[‘a’..’g’,’R’, ‘2’, ‘x’..’z’];

3) type dig = set of 0..9;

const d1: dig = [1..3, 6..9]; d2: dig = [ 0,3,6,9];

4) type hvor = set of 1..100;

const B:array[1..5] of hvor=([1,4..7,10,45],[44,

56..60,78],[1,2,7],[12,14,16,19..21],[8,9,11..14]);

rus: array[1..5] of string[22]=(‘грипп’,’ангина’,

’коклюш’, ‘краснуха’,’корь’);

var a: hvor;

i, j, k, simp: byte;

Begin

a:=[ ];

Repeat

write(‘Очередной симптом’); readln(simp);

if simp > 0 then a: = a+[simp]

until simp = 0;

j:=1;

while (j<=5) and (a<>b[j])