N-ный бит - Форум «Всё о Паскале»

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

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

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

N-ный бит, shr&shl

Опции

suriv	30.04.2005 16:02 Сообщение #1
Бывалый Группа: Пользователи Сообщений: 234 Пол: Мужской Реальное имя: AHTOH Репутация: 1	есть число. (integer) проверить установлен ли в нем N-ый бит Строки не использовать ничего в голову не лезет помогите кто-нить,хотя бы на мыслю наведите -------------------- Хочу в репу ! Cмотри,а то ведь получишь! Админ. Не получит - его фиг догонишь! Админ №2. P.S Вы еще третьего админа притащите сюда :D ваш аффтар :D Звали? :D (админ № не помню какой) ха больше нифига не напишете афтар Уверен? (Moderator) А еще можно ? (супмодер) Хватит его мучать ! Избили уж... (админ) Не хватит. я тоже напишу (тоже Админ)

Ответов(1 - 5)

volvo	30.04.2005 16:07 Сообщение #2
Гость	var n: integer; ... if (n and (1 shl 5)) = (1 shl 5) then { 5-ый бит установлен } else { не установлен }

suriv	30.04.2005 16:17 Сообщение #3
Бывалый Группа: Пользователи Сообщений: 234 Пол: Мужской Реальное имя: AHTOH Репутация: 1	Спасибо... ;) тока насчет shr/shl читал- непонял может кто-нить объяснит или ссылку даст ? -------------------- Хочу в репу ! Cмотри,а то ведь получишь! Админ. Не получит - его фиг догонишь! Админ №2. P.S Вы еще третьего админа притащите сюда :D ваш аффтар :D Звали? :D (админ № не помню какой) ха больше нифига не напишете афтар Уверен? (Moderator) А еще можно ? (супмодер) Хватит его мучать ! Избили уж... (админ) Не хватит. я тоже напишу (тоже Админ)

volvo	30.04.2005 16:31 Сообщение #4
Гость	x := x SHL n; x := x SHR n; SHL - сдвигает битовое представление переменной X на N бит влево (SHR соответственно - вправо)... При этом те биты, которые "уходят" за пределы разрядности числа теряются, а освободившееся место с другой стороны заполняется 0 (всегда при сдвиге влево и иногда - при сдвиге вправо) или 1 (только при сдвиге вправо отрицательных значений одного из типов: ShortInt, Integer или LongInt)

suriv	30.04.2005 16:38 Сообщение #5
Бывалый Группа: Пользователи Сообщений: 234 Пол: Мужской Реальное имя: AHTOH Репутация: 1	thx :p4: -------------------- Хочу в репу ! Cмотри,а то ведь получишь! Админ. Не получит - его фиг догонишь! Админ №2. P.S Вы еще третьего админа притащите сюда :D ваш аффтар :D Звали? :D (админ № не помню какой) ха больше нифига не напишете афтар Уверен? (Moderator) А еще можно ? (супмодер) Хватит его мучать ! Избили уж... (админ) Не хватит. я тоже напишу (тоже Админ)