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

UptoLike

64
WRITE (‘3 МЕСЯЦ-’); READLN (WORK [I]. Z3);
READKEY
END;
FOR I:=1 TO 50 DO
BEGIN
WORK [I]. SREDZ:= (WORK[I]. Z1 + WORK [I]. Z2 + WORK [I]. Z3)/3;
WRITELN (WORK [I]. FAM, ‘-’ , WORK [I]. SREDZ:2:2, ‘РУБ’)
END;
READKEY
END.
При обращении к компонентам записи необходимо указать как имя
переменной, так и имя поля, что приводит к удлинению программы и из-
лишней громоздкости.
Для устранения этого неудобства используется оператор присоеди-
нения WITH (оператор работы над записями), который позволяет осу-
ществлять доступ к полям записи так, как если бы они были простыми пе-
ременными.
Структура оператора WITH имеет вид:
WITH<ИМЯ ПЕРЕМЕННОЙ> DO
< ОПЕРАТОР >;
Внутри оператора WITH к полям обращаются только по имени. На-
пример, в программе SREDZARPL вычисление средней зарплаты запи-
шется в виде:
FOR I:=1 TO 25 DO
WITH WORK[I] DO
BEGIN
SREDZ:= (Z1+Z2+Z3)/3; и т. д.
7.2. Задания к практическому занятию
1. Сформировать и вывести на дисплей массив записей, описывающих
следующую таблицу: