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

UptoLike

ВУЗ: 

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

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

Рубрика: 

49
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);
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.

Страницы