caxapa.ru :: Помогите перевести с С на Паскаль

aleksey (12.07.2005 21:01, просмотров: 3602)

Помогите перевести с С на Паскаль long CalcCRC32(long CRC, unsigned char Symbol) { long temp; CRC ^= -1l ^ Symbol; for(int k = 8; k--;) { temp = -(CRC & 1), CRC >>= 1, CRC ^= 0xEDB88320ul & temp; } CRC ^= -1l; return CRC; } Перевел так: function calccr32(crc:integer ;symbol:integer):integer; var k:integer; temp:integer; begin crc:= crc xor (-1 xor symbol); for k:=0 to 7 do begin temp:= -(CRC and 1); crc:=crc div 2; crc:=crc xor 3988292384 and temp; end; crc:=crc xor -1; calccr32:=crc; end; procedure TForm1.Button1Click(Sender: TObject); var crc:integer; begin crc:=-1; crc:=calccr32(crc,1); form1.caption:=inttostr(crc); end; Результат не правильный=457198665 В оригинале=151466134 Что не так?

- Посмотри на CRC ^= 0xEDB88320ul & temp и свое crc:=crc xor 3988292384 and temp; - YAM(12.07.2005 22:03, )
  - Ответ: Здесь проблемы не видно. Она возникает на предпоследнем шаге цикла. Неправильно вичисляется CRC>>=1 aleksey(362 знак., 13.07.2005 11:11, )
    - А с какими операндами работает SHR? - Bill(13.07.2005 11:34, )
      - Ответ: INTEGER, Но если посмотреть под отладкой, то -306674912>>=1 = -153337456, a -306674912 shr 1=1994146192, это по-моему бред какой-то - aleksey(13.07.2005 11:52, )
        
        Все правильно. Что компилятор попросили, то он и сосчитал 8/ pin(198 знак., 13.07.2005 13:26, )
        
        Вообще-то, проблема в другом. Похоже SHR это операция ЛОГИЧЕСКОГО сдвига вправо, а не Bill(38 знак., 13.07.2005 12:05, )
        
        Ответ: Сдвиг правильный, только aleksey(268 знак., 13.07.2005 12:46, )
        
        Я о том и говорю. В Си сдвиг АРИФМЕТИЧЕСКИЙ, а в ПАСКАЛЕ - ЛОГИЧЕСКИЙ. - Bill(13.07.2005 14:14, )
        
        Ответ: И что же мне глупому делать? Неужели никто не подскажет? - aleksey(13.07.2005 12:22, )
        
        Ответ: Разобрался. Неверные типы переменных! Теперь и С и Паскаль дают одинаковый результат. aleksey(967 знак., 13.07.2005 13:54, )

Микроконтроллеры