Форум программистов, компьютерный форум CyberForum.ru

код перебросить на делфи - C++

Восстановить пароль Регистрация
 
mandarin19
0 / 0 / 0
Регистрация: 17.01.2013
Сообщений: 3
24.11.2013, 21:02     код перебросить на делфи #1
#define NIBBLE2HEX(c) ((c) > 9 ? (c) + 'A' - 10 : (c) + '0')
> int checksum = 0;
> int inx;
> for(inx = 1; inx < buf_inx; inx++)
> {
> checksum ^= buf[inx];
> }
> buf[buf_inx++] = '*';
> buf[buf_inx++] = NIBBLE2HEX((checksum >> 4) & 0xf);
> buf[buf_inx++] = NIBBLE2HEX(checksum & 0xf);
>
> *** End Listing 1
>
>
я тут уженачал но запутался с #define NIBBLE2HEX(c) ((c) > 9 ? (c) + 'A' - 10 : (c) + '0')
помогите плиз

checksum : integer;
inx: integer;
ss: string;
begin
checksum:=0;
ss:='';
for inx:= 0 to buf_inx-1 do
begin
checksum:=checksum+(checksum or buf_[inx]);
end;
ss:='*';
ss2:=(inttostr((checksum Shr 4) and 15));
ss3:=(inttostr(checksum and 15));

s:=ss;

Добавлено через 15 часов 21 минуту


разобрался ..вот типо ....
for inx:= 0 to buf_inx-2 do
begin
checksum:=(checksum xor buf_[inx]);
end;
ss:='*';
ss2:=(checksum Shr 4) and $f;
if ss2>9 then
ss2:=ss2+55
else
ss2:=ss2+48;

ss3:=checksum and $f;
if ss3>9 then
ss3:=ss3+55
else
ss3:=ss3+48;
ss2_:=char(ss2);
ss3_:=char(ss3);
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2013, 21:02     код перебросить на делфи
Посмотрите здесь:

Visual c++ код перевести в gcc linux код C++
C++ Не получается запустить длинный код Алгоритма Гомори, код правильный.
Код написан в Dev C. Не работает в Visual. Как нужно переделать код? C++
Как перебросить исключение дальше в обработчике исключения? C++
код, который прекрасно выполняет Code::Blocks не выполняеться в Студии, как сделатьь так чтобы Студия воспринимала этот код?? C++
перевод десятичного вещественного в машинный код(двоичный код) C++
Написать код для игры НИМ. проверьте пожалуйста тот ли это код C++
C++ задача(есть код программы, нужно объяснить её программный код. )

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 18:39. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru