Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Delphi
Перезагрузить страницу Возвращение целой части от деления числа А на число В
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Serega_Mexanik Serega_Mexanik вне форума
Member
 
Сообщений: 215
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Регистрация: 12.12.2005
По умолчанию Возвращение целой части от деления числа А на число В - 10.07.2008, 15:01

доброго времени суток.. вот такая ситуация, не могу придумать.. помогите перевести код из дельфийского на СИшный..

Код:
procedure TForm1.Button11Click(Sender: TObject);
var    Ident, RTRData: Byte;
    str: string;
    TxBuf: array[0..255] of char;
    i, k: Integer;
begin
    Ident   := ((StrToInt('$'+Edit2.Text)) and $fff8) shr 3;
    RTRData := ((StrToInt('$'+Edit2.Text)) and $07) shl 5;
    str := Edit3.Text;
    if Length(str)>16 then
  begin
        MessageDlg('Transmit Data too long!(Max. length is 8 char.)',
               mtError, [mbOk], 0 );
    exit;
  end;
        i:= Length(str)div 2;
           RTRData := RTRData or (i and $0f);
    TxBuf[0] := chr(Ident);
    TxBuf[1] := chr(RTRData);
        i:=2;
        k:=2;
        while i<(Length(str)div 2)+2 do
                begin
                TxBuf[i]:=chr(StrToInt('$'+str[k-1]+str[k]));
                i:=i+1;
                k:=k+2;
                end;
         CANSendMsg( FPort, TxBuf, False );
end;
вот div что оно делает?
Ответить с цитированием
  (#2 (permalink)) Старый
Виталик 1 Виталик 1 вне форума
Member
 
Сообщений: 1,286
Сказал(а) спасибо: 1
Поблагодарили 3 раз(а) в 2 сообщениях
Регистрация: 14.06.2006
По умолчанию 10.07.2008, 16:25

А что за Си? Если билдовский, тогда в чем проблема?! Как что div делает? Возвращает целую часть от деления числа А на число В.
Ответить с цитированием
  (#3 (permalink)) Старый
IL_Agent IL_Agent вне форума
Member
 
Аватар для IL_Agent
 
Сообщений: 2,016
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 03.07.2005
По умолчанию 10.07.2008, 19:02

какие именно операции не удаётся перевести ?
Ответить с цитированием
  (#4 (permalink)) Старый
X-Cite_Forever X-Cite_Forever вне форума
Member
 
Сообщений: 536
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.10.2006
По умолчанию 11.07.2008, 00:19

div - это целочисленное деление...
т.е. 5/4=1
Ответить с цитированием
  (#5 (permalink)) Старый
Виталик 1 Виталик 1 вне форума
Member
 
Сообщений: 1,286
Сказал(а) спасибо: 1
Поблагодарили 3 раз(а) в 2 сообщениях
Регистрация: 14.06.2006
По умолчанию 11.07.2008, 02:44

Дык яж ему это написал уже. Тогда еще добавлю: Shr - смещение бита вправо, Shl - влево соответственно.
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
Serega_Mexanik Serega_Mexanik вне форума
Member
 
Сообщений: 215
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Регистрация: 12.12.2005
По умолчанию 14.07.2008, 16:05

пасиб я ужо разобралсо...
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дано 4х значное число образованное перестановкой 1ой и 2ой, 3ей и 4ой цифр числа dlinkz Pascal 1 29.11.2011 16:11
Как разложить число на составне числа mercenary Вопросы начинающих программистов 9 29.07.2011 20:56
Задано целое число. Увеличить каждую цифру этого числа на 1.не могу исправить ошибки. Ciomi Pascal 0 24.03.2011 11:55
Смоделировать операцию деления целого числа Дартаньян Вопросы начинающих программистов 2 01.06.2010 20:59
Присвоить целой переменной h третью от конца цифру в записи целого положительного числа k imported_Andrey01 Visual C++ 11 12.03.2010 11:21
Как разбить определенное число на одинаковое количество что бы получилось тоже число Anonymous Вопросы начинающих программистов 26 28.05.2009 18:25
Подсчитать число и сумму положительных, число и произведение отрицательных элементов Svetik08 Visual Basic 4 19.02.2009 15:12
Операция остатка от деления (остаток от деления) a%b fang С/С++ 3 27.03.2008 01:13
Задается число в интервале 0….99. Вывести буквенное написание этого числа costa Lisp 3 26.11.2006 14:34
Нужна функция, которая преобразует символьное представление числа в само число Rune Visual C++ 3 13.03.2006 19:51
Дано двоичное число, получить десятичное число из него kochmonavt Pascal 1 20.12.2004 00:29
Даны числа X-число , Y-количество составить из X цифр Y число MiHanick Lisp 1 04.12.2004 15:48



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов