пять операторов, и первые два из этих блоков могли бы быть записаны так:
If InputColumn<£) = Refused then
add 1 to Dec lined (Ethnic Group, i) else ThisIndex ;= 1 + InputColumn(2) add 1 to Count(Campus, EthnicGroup, Thislndex)
if InputColumn(3) = Refused then
add 1 to Dec lined(EthnicGroup, 2) else Thislndex := 4 + InputColumnO) add 1 to Count(Campus, EthnicGroup, Thislndex)
Упомянутые сорок строк я должен был заменить шестью, задав массив Offset с начальными значениями 1, 4, 6,. . .
lor I :- i to 8 do
if InputColumn(I+1) = Refused then add 1 to Dec lined (Ethnic Group, I) else Thislndex := Offset(I) + InputColumn(I+i> add i to Count(Campus, EthnicGroup, Thislndex)
Уменьшив длину текста программы на порядок, я был настолько доволен собой, что проп} стил другую возможность сокращения, которая бросалась в глаза.
3.2. ФОРМИРОВАНИЕ ПИСЕМ
Следующая программа для каждой записи файла, в котором содержатся имена и адреса, формирует письмо в соответствии с заданным шаблоном. Например, пусть дана запись с восьмью полями
