Не совсем(+) («Телесистемы»: Конференция «Микроконтроллеры и их применение»)

[an error occurred while processing this directive] Не совсем(+)

(«Телесистемы»: Конференция «Микроконтроллеры и их применение»)

Отправлено F8 09 января 2006 г. 13:56
В ответ на: Если не тяжело проверти правильноли С ---> Delphi отправлено <font color=gray>TamTam 1</font> 09 января 2006 г. 13:38

procedure DowCRC(b:byte, var crc:byte);
var
i:integer;
begin
for i:= 0 to 8 do
begin

if ((b xor crc) and 1)<>0
then
crc:=((crc xor $18) shl 1) or $80
else
crc:= (crc shl 1) and not $80;

b:=b shl 1;

end;
end;

Отправка ответа