МЕНЮ:
Аналитик | Постановщик задач | Проектировщик | Программист | Программист БД
Инженер по тестированию | Тестировщик | Инженер по документированию
Инженер по внедрению | Инженер поддержки | Менеджер проекта | Менеджер подразделения
Менеджер по продажам | Менеджер по маркетингу | Администратор | Администратор БД
Литература | Контакты
\

Книга Жемчужены творчества программистов на IT БАЗАР

пять операторов, и первые два из этих блоков могли бы быть записаны так:
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. ФОРМИРОВАНИЕ ПИСЕМ
Следующая программа для каждой записи файла, в котором содер­жатся имена и адреса, формирует письмо в соответствии с заданным шаблоном. Например, пусть дана запись с восьмью полями
Паблик!Дхон К.:Мистер!600!Мэпл Стрит!ЙоурТоун!Айова!12345
37


Страница №40
*
Зайцев нет
© "IT БАЗАР", 2003. Все права защищены. Создание: © "z-group" студия веб-дизайна, 2003.
Также может поискать работу на прямую в следуйщих организациях:
IT БАЗАР