бит в числе, для
бит в числе, для которой мы привели тогда программу SUM_BIT, отличие в реализации несложно: достаточно остановиться при обнаружении первой (справа) единицы и зафиксировать значение управляющей переменной цикла с параметром. Вообще говоря, в этом случае вместо цикла с параметром естественнее выглядит цикл с постусловием.
Обратиться еще раз к этой задаче нас побудило стремление продемонстрировать еще один возможный механизм решения. (Помните: мы обсуждали вопрос о выборе того варианта решения, - из нескольких возможных, - который потребует меньшей вычислительной работы?)
Так вот, "другой вариант" базируется на очевидном соображении, что отсутствие хотя бы одного единичного бита в числе означает равенство числа нулю. Если бы удалось провести "ликвидацию", по одной, битовых единиц, то это состояние мы достигли за число шагов, равное числу самих единиц. Вот как выглядит реализующая эту идею программа.
Program SUM_BIT2;
var
a, tmp : word;
num : 0..16; {счетчик
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
