Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
BINARY
|
|||
|---|---|---|---|
|
#18+
Yest cislo dvoichnom vide.Nado kakoy to sluchayniy vzyatiy bit menyat na protivopolojnoqo.Napirmer: 11011 budet 11111 (slucayniy bit 3-y) ili 01010 budet 00010 (slucayniy bit 2-y) Kak eto delat? Ya delal eto , no dumayu chto yest bolee korotkiy put ili kakaya to konkretnaya funksiya. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.06.2004, 11:03 |
|
||
|
BINARY
|
|||
|---|---|---|---|
|
#18+
автор* исходное двойное слово lnDoubleWord = 0x1 * выберем случайный бит от 0 до 31 lnBit = int(rand()*31) * * обратим бит воспользовавшишь функцией исключающего или: * 1 xor 1 = 0 * 0 xor 1 = 1 * lnResult = bitxor(m.lnDoubleWord, bitlshift(1, m.lnBit)) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.06.2004, 13:28 |
|
||
|
BINARY
|
|||
|---|---|---|---|
|
#18+
Oshibka: Fayl "bitlshift.prg' ne seshestvuet. Umenya foxpro2.5 mojet bit po etomu? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.06.2004, 13:38 |
|
||
|
BINARY
|
|||
|---|---|---|---|
|
#18+
А bittest, bitset, bitclear есть? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.06.2004, 13:41 |
|
||
|
BINARY
|
|||
|---|---|---|---|
|
#18+
NET NI 1 IZ NIX NETU . MOJET BIT YA BUDU POMENYAT FOXPRO. A S POMOSHI ETI FUNKSII TOJE MOJNA , ESLI DA ,SKAJITE POJALUSTA! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.06.2004, 13:47 |
|
||
|
BINARY
|
|||
|---|---|---|---|
|
#18+
Вот так: Код: plaintext Но еще я подумал, что bitlshift можно заменить на Код: plaintext Так что, можно и первым способом: Код: plaintext Удачи. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 05.06.2004, 13:58 |
|
||
|
BINARY
|
|||
|---|---|---|---|
|
#18+
Net eto ne to chto mne nujno, ili ya chto-to ne tak ponimayu. Mne nado ctobi , yesli : lnDoubleWord = "11111" lnBit=1 (1-y bit doljen menyatsa na "0") toqda, novoe chislo ="01111" polucaetsya="11109". yesli : lnDoubleWord = "10101" lnBit=4 (4-y bit doljen menyatsa na "1") toqda, novoe chislo ="10111" polucaetsya="10085". ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2004, 08:55 |
|
||
|
BINARY
|
|||
|---|---|---|---|
|
#18+
Не понимаю, какие проблемы? У тебя есть символьная строка, например: lcBinary = '101010' Тебе надо выбрать произвольную позицию в этой строке: =RAND(-1) && это обеспечивает реальную "случайность" lnPos = INT(RAND()*LEN(m.lcBinary)) Теперь находишь, что именно записано в этой позиции и меняешь значение на противоположное: lcChar = SubStr(m.lcBinary,m.lnPos,1) IF m.lcChar='0' m.lcChar='1' ELSE m.lcChar='0' ENDIF Записываю измененное значение вместо ранее существовавшего lcBinary = STUFF(m.lcBinary,m.lnPos,1,m.lcChar) Смотрим, что получилось ?m.lcBinary ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 07.06.2004, 11:26 |
|
||
|
|
start [/forum/topic.php?fid=41&msg=32549583&tid=1596429]: |
0ms |
get settings: |
9ms |
get forum list: |
16ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
163ms |
get topic data: |
10ms |
get forum data: |
3ms |
get page messages: |
48ms |
get tp. blocked users: |
1ms |
| others: | 255ms |
| total: | 513ms |
| 0 / 0 |
