> -- adva писал(а):
> Если не сложно, какой-нибудь не сложный пример из одного модуля. А то опять, примерно понимаю, в чем смысл, а как работать с этим, нетПример работы (чтобы запутать):
Допустим, есть i: INTEGER (0 <= i < 16).
Допустим, нужно прибавить к нему число 16.
Наивная реализация: i := i + 16;
Чуть более продвинутая: INC(i, 16);
Для настоящих хакеров: s: SET; s := BITS(i); INCL(s, 4); i := ORD(s);
Инструкция INCL(s, 4) равнозначна присваиванию s := s + {4};