C -> Paskal

  • Автор темы M-I-B
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

M-I-B

Гость
#1
Вопрос к знатокам С и паскаля.
Есть исходный код функции написанный на С. Срочно понадобилось передалть его на паскаль.
До сих пор не могу понять, как это сделать...
Собственно, вот исходный код, написанный на С :
Код:
int CRCode (char *msg, int len)
{
int crc,j;
crc = 0;
while ( len-- > 0 )
{
crc = crc ^ (int) *msg++ << 8;
for ( j=0; j < 8; j++ )
{
if(crc & 0x8000) crc = (crc << 1) ^ 0x1021;
else crc <<= 1;
}
}
return crc;
}
Помогите, кто может, переделать это дело на паскаль. Буду очень благодарен.
 
Статус
Закрыто для дальнейших ответов.