Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
U-III
56 / 56 / 12
Регистрация: 24.10.2012
Сообщений: 177
1

Переведите код C на Delphi

25.09.2013, 08:15. Просмотров 969. Ответов 1
Метки нет (Все метки)

C
1
2
3
4
5
6
7
8
9
unsigned short crc_ccitt_update (unsigned short crc, unsigned char data){
unsigned short t;
        data ^= crc&255;
        data ^= data << 4;
        t = (((unsigned short)data << 8) | ((crc>>8)&255));
        t^=(unsigned char)(data >> 4);
        t^= ((unsigned short)data << 3);
        return t;
}
Заранее спасибо.

 Комментарий модератора 
Если нужен код на Delphi, обращайтесь в соответствующий раздел.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.09.2013, 08:15
Ответы с готовыми решениями:

Переведите код C++ на Delphi
Вот процедурка int CRC16CCITT(char c, unsigned int crc) { unsigned int...

Переведите код из С в Delphi
Я к сожалению плохо знаю С, вот что у меня есть и требует перевода на Delphi. ...

Переведите код C на Delphi
char CRCCalc (char* pointer, uint16_t len) { char CRC = 0x00; while(len &gt;...

Переведите код из С в Delphi
unsigned short calc_crc(unsigned char* bytes) { unsigned short...

Переведите код pascal в Delphi
Function TestWildCard(S,WildCard:String):boolean; var i,j:integer; ...

1
FIL
Модератор
3419 / 2555 / 726
Регистрация: 19.09.2012
Сообщений: 7,923
25.09.2013, 09:12 2
Лучший ответ Сообщение было отмечено U-III как решение

Решение

Delphi
1
2
3
4
5
6
7
8
function crc_ccitt_update(crc: Word; data: Byte): Word;
begin
  data := data xor (crc and $FF);
  data := data xor (data shl 4);
  Result := (data shl 8) or ((crc shr 8) and $FF);
  Result := Result xor (Byte(data shr 4));
  Result := Result xor (data shl 3);
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.09.2013, 09:12

Переведите пожалуйста код из C в Pascal/Delphi
easeOutElastic: function (x, t, b, c, d) { var s=1.70158; var p=0; ...

Переведите код из паскаля в делфи7
Вот задание Написать программу поиска двузначных чисел, таких, что если к...

Переведите код из Паскаля в Дельфи
Помогите перевести код паскаля в делфи через stringgrid: var kol,bx,by:array ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru