|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.06.2017, 12:46 | #1 |
Пользователь
Регистрация: 27.08.2012
Сообщений: 33
|
Перевод 2 функций C на Delphi
Господа программисты, никак не могу перевести 2 функции, написанные на C под Delphi:
unsigned char bittest(const unsigned char * pdata,unsigned long bitnumber) { bitnumber--; return (pdata[bitnumber>>3]>>(7-(bitnumber&7)))&1; } void permut(unsigned char * out,const unsigned char * in, const unsigned char * table) { unsigned long i; for(i=1;*table;i++) { if(bittest(in,*table)) bitset(out,i); table++; } } Помогите, очень нужно |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевод с Си++ на Си и добавление функций в код | uppjke | Помощь студентам | 14 | 07.11.2016 04:45 |
Перевод чисел из двоичной системы счисления в десятичную без использования процедур и функций | crolikoff | Паскаль, Turbo Pascal, PascalABC.NET | 22 | 23.01.2016 21:35 |
Delphi: аппроксимация функций методом базиса из финитных функций | Denna | Помощь студентам | 1 | 12.03.2012 19:23 |
Перевод названий функций Rus-Eng??? | Montana78 | Microsoft Office Excel | 2 | 15.06.2007 10:49 |