|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.04.2007, 17:30 | #1 |
Регистрация: 06.04.2007
Сообщений: 7
|
перенос с паскаля на си
Есть функция на паскале:
function code(data: string): string; var i: Word; LastByte: Byte; begin //... // надо собрать старшие биты LastByte:= LastByte or (($80 and ord(data[i])) shr ByteCnt); //... end; её необходимо перевести на си: ... unsigned int byte_cnt = 0; /* 2 байта */ unsigned char last_byte = 0, unsigned char data_buf; ... /* в data_buf в цикле вносим элемент строки под номером i, равном в общем случае byte_cnt*/ last_byte |= ( (data_buf & 0x80) >> byte_cnt ); Но тут что-то неправильно, не работает, если сможете помочь, буду премного благодарен... |
22.05.2007, 16:06 | #2 |
Регистрация: 22.05.2007
Сообщений: 6
|
Напиши только код функции и её желательно подробненькое описание, тогда возможно помогу(-жем)...
|
29.06.2007, 13:17 | #3 |
Регистрация: 06.04.2007
Сообщений: 7
|
Вопрос закрыт
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевод из Паскаля в Делфи | Родион | Общие вопросы Delphi | 2 | 28.08.2008 16:52 |
Задача для гениев Паскаля | Улица | Помощь студентам | 1 | 22.05.2008 13:56 |
Русификация паскаля | Exact | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 21.03.2008 14:15 |
Знатоки Паскаля ХЕЛП!!!! | cornholio | Помощь студентам | 7 | 09.12.2007 11:38 |
Настройка паскаля | Snake_ua | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 18.10.2007 17:56 |