ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Zapadinsky Anatoly \(ZAB\) 2:5020/400 03 Jul 2001 17:43:16
To : All
Subject : Hа: Коды Грея
--------------------------------------------------------------------------------
"Oleg Ponomarev" <O.Ponomarev@VAZ.RU> сообщил/сообщила в новостях следующее:
news:3B418153.7CE8@vaz.ru...
> Hi!
>
> Roman Trishin wrote:
> > Hужно реализовать коды Грея. Как это сделать?
> > PS Размер кода ~до 32 бинарных разряда.
>
> function GreyCode(Value : Integer) : Integer;
> begin
> GreyCode := (Value xor (Value shl 1)) shr 1;
> end;
Стоп! А не проще:
function GreyCode(Value : Integer) : Integer;
begin
GreyCode := (Value shr 1) xor Value;
end;
Для маленьких чисел - точно, для больших - старший бит не обнулится, как в
предыдущем примере...
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
