Расчёт мощности множества

Сейчас на форуме: rmn, exp50848 (+7 невидимых)

Посл.ответ	Сообщение
neomant Ранг: 164.6 (ветеран), 65thx Активность: 0.12↘0 Статус: Участник Волшебник	Создано: 16 января 2013 12:43 · Поправил: neomant · Личное сообщение · #1 Доброго времени всем. Посчитал мощность всего множества b0..b3, но хотелось бы услышать независимую оценку. После функции transformChar получаем значение 1..1B. Code: b0 := Byte(transformChar(pass[1])) shl 3; b1 := Byte(transformChar(pass[2])); b0 := b0 + b1 shr 2; b1 := (b1 shl 6) and $FF; b1 := b1 + Byte(transformChar(pass[3])) shl 1; b1 := b1 + Byte(transformChar(pass[4])) shr 4; b2 := (Byte(transformChar(pass[4])) shl 4) and $FF; b2 := b2 + Byte(transformChar(pass[5])) shr 1; b3 := (Byte(transformChar(pass[5])) shl 7) and $FF; b3 := b3 + Byte(transformChar(pass[6])) shl 2; Result := Integer(b0) shl 24 or Integer(b1) shl 16 or Integer(b2) shl 8 or b3; P.S. Получил число 254 619 288, посчитал по-другому и получил таки 387 420 489. Где правда? ----- Следуй за белым кроликом \| Сообщение посчитали полезным: Abraham

neomant Ранг: 164.6 (ветеран), 65thx Активность: 0.12↘0 Статус: Участник Волшебник	Создано: 16 января 2013 15:10 · Личное сообщение · #2 Ошибся в первоначальных расчётах. Всё-таки 27**6 = 387 420 489. ----- Следуй за белым кроликом

Для печати