Очень плохо. Реально заколебало.
Но применительно к задаче - накой ? Особенно в свете ПР и цикла минимум в 1мс ?
То что в статье потребуется только тогда, когда будете оптимизировать что-то на уровне тактов камня.
Нету для ПР таких задач.
А 4 указанные выше мною строчки - это и есть самое первое из статьи:
4строки.png
что в местном варианте:
Код:
function cntbit: udint;
var_input
mask : udint;
end_var
while mask <> 0 do
cntbit := cntbit + bool_to_udint(mask.0);
mask := shr(mask,1);
end_while
end_function