Вот есть такая задача: Необходимо переписать из одного файла в другой все числа, двоичное представление которых содержит больше единиц чем нулей. Как представить числа в двоичной системе на Паскаль? Переписать из одного файла в другой, где нибудь здесь есть пример подобной задачи, что то не нашёл. С файлами вообще плохо..
количество нулей и единиц в двоичном представлении числа n можно посчитать вот так:
n0 := 0;
n1 := 1;
power_of_2 = 1;
while power_of_2 <= n do begin
// проверяем текущий бит
if power_of_2 and n = 0 then
Inc(n0);
else
Inc(n1);
// переходим к следующему
power_of_2 := power_of_2 * 2;
end;
Числа в современных компьютерах уже хранятся в двоичном представлении. Подсчитать количество единиц и нулей можно примерно так:
repeat
if (MyNumber and 1) = 1 then
inc(NumberOfOne)
else
inc(NumberOfZero);
MyNumber := MyNumber shr 1;
until MyNumber = 0;
Ой. Лихо я инициализировал переменные
У меня n1 := 1 нужно заменить на n1 := 0. andriano, спасибо.