Решение задач машиностроения средствами Turbo Pascal. Крупенников О.Г - 49 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

48
TYPE <ИМЯ ЗАПИСИ>=
RECORD
<ИМЯ ПОЛЯ 1>:<ТИП ПОЛЯ 1>;
<ИМЯ ПОЛЯ 2>:<ТИП ПОЛЯ 2>;
--------------------------------------------------
<ИМЯ ПОЛЯ N>:<ТИП ПОЛЯ N>
END;
Пример 7.1. Задать тип-запись, содержащую сведения о фамилии и дате
рождения рабочего.
TYPE RABOCH=
RECORD
FAM : STRING[20];
YEAR : WORD;
MONTH : 1..12;
DAY : 1..31
END;
После введения типа-записи можно задать переменные или типизирован-
ные константы, относящиеся к этому типу:
VAR X, Y : RABOCH;
CONST IVAN : RABOCH = (FAM:’СИДОРОВ’;YEAR: 1975;
MONTH : 5; DAY: 9);
Если необходимо распространить записи на несколько объектов, то следу-
ет ввести в программу переменную – массив из этих записей:
VAR WORK : ARRAY [1..25] OF RABOCH;
Доступ к полям
записи осуществляется путем указания имени переменной
(или константы) и имени поля, разделенных точкой (сочленяющей точкой):
X. DAY: = 15; {ПЕРЕМЕННАЯ ТИПА- ЗАПИСИ}
WORK [1]. FAM : =‘ИВАНОВ’; {ПЕРЕМЕННАЯ ТИПА-
МАССИВА ИЗ ЗАПИСЕЙ}
Пример 7.2. Составить программу для вычисления у каждого рабочего на
участке из 50 человек средней зарплаты за 3 месяца.
PROGRAM SREDZARPL;
USES CRT;
TYPE RABOCH = RECORD
FAM: STRING [20];
Z1, Z2, Z3: REAL;
SREDZ: REAL
END;
VAR WORK: ARRAY [1..50] OF RABOCH;
I : INTEGER;

Страницы