IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Двоичное представление
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Мужской

Репутация: -  0  +


Вот есть такая задача: Необходимо переписать из одного файла в другой все числа, двоичное представление которых содержит больше единиц чем нулей. Как представить числа в двоичной системе на Паскаль? Переписать из одного файла в другой, где нибудь здесь есть пример подобной задачи, что то не нашёл. wink.gif С файлами вообще плохо..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


количество нулей и единиц в двоичном представлении числа 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, и бит за битом выясняем количество нулевых и единичных.

По поводу работы с файлами - в поиск или фак или хелп.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гуру
*****

Группа: Пользователи
Сообщений: 1 168
Пол: Мужской
Реальное имя: Сергей Андрианов

Репутация: -  28  +


Числа в современных компьютерах уже хранятся в двоичном представлении. Подсчитать количество единиц и нулей можно примерно так:
repeat
if (MyNumber and 1) = 1 then
inc(NumberOfOne)
else
inc(NumberOfZero);
MyNumber := MyNumber shr 1;
until MyNumber = 0;


Сообщение отредактировано: andriano -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


Ой. Лихо я инициализировал переменные smile.gif

У меня n1 := 1 нужно заменить на n1 := 0. andriano, спасибо.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 24.11.2020 8:36
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name