C -> Paskal

Тема в разделе "Delphi - FAQ", создана пользователем M-I-B, 30 мар 2007.

Статус темы:
Закрыта.
  1. M-I-B

    M-I-B Гость

    Вопрос к знатокам С и паскаля.
    Есть исходный код функции написанный на С. Срочно понадобилось передалть его на паскаль.
    До сих пор не могу понять, как это сделать...
    Собственно, вот исходный код, написанный на С :
    Код (Text):
    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;
    }
    Помогите, кто может, переделать это дело на паскаль. Буду очень благодарен.
     
Загрузка...
Похожие Темы - Paskal
  1. Katushenka5690
    Ответов:
    1
    Просмотров:
    961
  2. alyan
    Ответов:
    0
    Просмотров:
    1.391
Статус темы:
Закрыта.

Поделиться этой страницей