Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.11.2014, 09:29   #1
afen
Новичок
Джуниор
 
Регистрация: 17.11.2014
Сообщений: 2
По умолчанию Помогите перевести кусок кода с С на паскаль

Помогите перевести кусок кода с С на паскаль это расчет некой реализации CRC в одном устройстве вот только либо я не правильно перевел либо...

Код:
Word SUM_CRC( Byte *Address, Byte Lenght)
{
int N;
unsigned short WCRC=0;
for (N=1;N<=Lenght;N++,Address++)
{
WCRC+=(*Address)^255;
WCRC+=((*Address)*256);
}
return WCRC;
}

function SUM_CRC( str: string):word;
var i: integer;
WCRC: word;
begin
WCRC:=0;
for i:=1 to Length(str) do
begin
WCRC:=WCRC + ord(str[i]) xor 255;
WCRC:=WCRC + ord(str[i]) * 256;
end;
SUM_CRC:=WCRC;
end;

Последний раз редактировалось ACE Valery; 17.11.2014 в 10:30.
afen вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подскажите как перевести кусок кода с Delphi на C++ zheka1980 C++ Builder 2 03.08.2014 15:50
переписать кусок кода fobass Qt и кроссплатформенное программирование С/С++ 6 30.06.2014 08:08
Перевести кусок кода из C++ в Delphi jhonyxakep Общие вопросы Delphi 2 25.09.2011 08:28
помогите понять кусок кода Arteom БД в Delphi 7 31.08.2007 08:51
Есть кусок кода komarevsky Общие вопросы Delphi 7 19.07.2007 17:43