Сборник заданий для практических занятий по информатике. Крупенников О.Г - 64 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

63
После введения типа–записи можно задать переменные или типизи-
рованные константы, относящиеся к этому типу:
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 месяца. Алгоритм про-
граммы представлен в приложении Г.9.
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;
BEGIN
CLRSCR;
FOR I :=1 TO 50 DO
BEGIN
WRITE (‘Ф. И. О.-’); READLN (WORK [I]. FAM);
WRITE (‘1 МЕСЯЦ-’); READLN (WORK [I]. Z1);
WRITE (‘2 МЕСЯЦ-’); READLN (WORK [I]. Z2);

Страницы