With elem
DO begin
a:=1998;
b:=37.5,
c:=’И.И. Петров’
end;
2. for i:=1 to 10 do
with tabl[i]
do begin
read(a,b);
readln(c)
end;
П р и м е р. Пусть запись содержит сведения о студенте и состоит из полей: личный номер студента, фамилия и инициалы, номер курса, номер группы, средние оценки за каждый год учебы. Необходимо ввести исходные данные.
{Ввод элементов записи}
const Nmax=30;
type Zap=Record
nom:byte;
fio:string[20];
kurs, group:byte;
ocen:array[1..5] of real;
end;
arr_zap = array[1..Nmax] of zap;
var
list:arr_zap;
n:1..Nmax;
begin
write(‘Задайте количество студентов в списке …’);
readln(n);
for i:=1 to n do
with list[i]
do begin
write(‘Задайте личный номер студента ’);
readln(nom);
write(‘Задайте фамилию ’);
readln(fio);
write(‘курс и группа ’);
readln(kurs, gruppa);
write(‘средние оценки за каждый год ’);
for j:=1 to 5
do readln(ocen[i]);
readln
end
end.
7. Типизированные константы
Типизированные константы задаются в разделе описания const следующим образом (рис. 7.1).
Рис. 7.1. Синтаксическая диаграмма описания типизированной константы
Таким образом, типизированные константы инициализируются некоторым начальным значением. Типизированная константа фактически ничем не отличается от переменной соответствующего типа. Это переменные с начальными значениями, которые присваиваются им только один раз (при инициализации).
Если типизированная константа была объявлена в некотором блоке, то при повторном входе в этот блок она сохраняет то значение, которое имела при выходе из блока.
Нельзя использовать типизированную константу в качестве значения при объявлении других констант или границ типа-диапазона.
7.1. Типизированные константы скалярных типов
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; и т. д.
7.2. Типизированные константы - массивы и строки
Строки задаются так же, как и скалярные типы:
П р и м е р: 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));