Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
U-III
35 / 35 / 7
Регистрация: 24.10.2012
Сообщений: 163
#1

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

25.09.2013, 08:15. Просмотров 441. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.09.2013, 08:15
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переведите код C на Delphi (Delphi):

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

Переведите код C++ на Delphi - Delphi
Вот процедурка int CRC16CCITT(char c, unsigned int crc) { unsigned int CRC_MASK=0x1021; asm { mov al,c //...

Переведите код из С в Delphi - Delphi
Я к сожалению плохо знаю С, вот что у меня есть и требует перевода на Delphi. if ( buf == '+') { if ( *lenght &lt; 8 )...

Переведите код из С в Delphi - Delphi
unsigned short calc_crc(unsigned char* bytes) { unsigned short real_crc=0x0000; unsigned short tmp_crc=0x0000; for(int...

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

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

1
FIL
Модератор
3375 / 2513 / 478
Регистрация: 19.09.2012
Сообщений: 7,845
25.09.2013, 09:12 #2
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
Привет! Вот еще темы с ответами:

Переведите код из Паскаля в Дельфи - Delphi
Помогите перевести код паскаля в делфи через stringgrid: var kol,bx,by:array of integer; n,m,ax,ay,i,j,r,minr,minb:integer; begin ...

Переведите код из консоли в форму - Delphi
Здравствуйте. Переведите код из консоли в форму пожалуйста, в делфи=&gt; var SumN,K,N,i,j,a:integer; bol:boolean; begin i:=0; ...

Переведите код из С в Delphi - Delphi
//вычисление CRC пакета char CRCCalc (char* pointer, uint16_t len) { char CRC = 0x00; while(len &gt; 0) { uint16_t tmp = CRC...

Переведите из Delphi в Pascal ) - Delphi
program deikstra; {$APPTYPE CONSOLE} uses SysUtils; var sp:array of Integer; ...


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

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

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