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

> Правила раздела!

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

 
 Ответить  Открыть новую тему 
> биты
Reflex
сообщение 23.10.2006 17:47
Сообщение #1


Пионер
**

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

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


Здравствуйте а как мне в Delphi или Pascal создать массив битов? элементов больше 100.

нужно уметь с ними:
заполнить все биты 0
изменить бит X на 1
изменить бит X на 0
узнать значение бита X


--------------------
Нам не дано предугадать как наше слово отзовется...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 23.10.2006 18:15
Сообщение #2


Гость






Создавай массив байтов (или слов, или длинных слов), и обращайся к нужному биту в нем...
 К началу страницы 
+ Ответить 
Reflex
сообщение 23.10.2006 18:52
Сообщение #3


Пионер
**

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

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


а как обращаться? ну например массив байтов


--------------------
Нам не дано предугадать как наше слово отзовется...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 23.10.2006 18:56
Сообщение #4


Гость






Здесь показывалось:
N-ный бит, shr&shl
 К началу страницы 
+ Ответить 
Reflex
сообщение 23.10.2006 19:13
Сообщение #5


Пионер
**

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

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


как узнать его значение поняла, а как изменить его значение?


--------------------
Нам не дано предугадать как наше слово отзовется...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 23.10.2006 19:33
Сообщение #6


Гость






{ Установить 5-ый бит в 1-цу: }
X := X or ($1 shl 5);

{ Сбросить 5-ый бит в 0: }
X := X and ($FF - ($1 shl 5));

{ Инвертировать бит №5: }
X := X xor ($1 shl 5);

Учти, что биты нумеруются не с единицы, а с нуля !!!
 К началу страницы 
+ Ответить 
Reflex
сообщение 23.10.2006 19:36
Сообщение #7


Пионер
**

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

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


Спасибо smile.gif щас буду вникать smile.gif


--------------------
Нам не дано предугадать как наше слово отзовется...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 

- Текстовая версия 26.07.2025 2:24
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"