Вот есть такая задача: Необходимо переписать из одного файла в другой все числа, двоичное представление которых содержит больше единиц чем нулей. Как представить числа в двоичной системе на Паскаль? Переписать из одного файла в другой, где нибудь здесь есть пример подобной задачи, что то не нашёл. С файлами вообще плохо..
Michael_Rybak
22.12.2007 3:46
количество нулей и единиц в двоичном представлении числа 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;
чтобы узнать, какое число (0 или 1) стоит на, скажем, третьей позиции в двоичном представлении числа n, выполняем операцию n and 4. 4 - в двоичном представлении равно 100. Побитовая операция and, примененная к числам n и 4, обнулит все биты в n, а третий оставит без изменений.
Таким образом, если там был нуль, то n and 4 будет равно нулю, если был 1 - будет равно не нулю (4, в данном случае).
Точно так же для остальных позиций.
Поэтому мы перебираем все степени двойки, не превышающие n, и бит за битом выясняем количество нулевых и единичных.
По поводу работы с файлами - в поиск или фак или хелп.
andriano
22.12.2007 3:56
Числа в современных компьютерах уже хранятся в двоичном представлении. Подсчитать количество единиц и нулей можно примерно так:
repeat if (MyNumber and 1) = 1 then inc(NumberOfOne) else inc(NumberOfZero); MyNumber := MyNumber shr 1; until MyNumber = 0;
Michael_Rybak
22.12.2007 4:00
Michael_Rybak
22.12.2007 5:16
Ой. Лихо я инициализировал переменные
У меня n1 := 1 нужно заменить на n1 := 0. andriano, спасибо.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.