| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
перевод из двоичного в десятичный?
FIL-23 © (2007-01-23 17:10:00)Народ ни кто не подскажет (напишет) функцию(процедуру) которая может переводить из двоичного кода в десятичный?. Самому думать просто уже лень.
iXT (2007-01-23 22:05:00) [1]
> Плохиш © (23.01.07 18:41) [14]
"А мне (ему) заранее надоело" (С) :)
Плохиш (2007-01-23 18:41:00) [2]
> FIL-23 © (23.01.07 17:10)
> Самому думать просто уже лень.
Нифигасе, ещё не начинал, а "уже лень" 8-O
Chort (2007-01-23 18:29:00) [3]
function BinToInt(Value: string): LongInt;
var
i, Size: Integer;
begin
Result := 0;
Size := Length(Value);
for i := Size downto 0 do
begin
if Copy(Value, i, 1) = '1' then
begin
Result := Result + (1 shl i);
end;
end;
end;
iXT (2007-01-23 17:58:00) [4]
> FIL-23 © (23.01.07 17:33) [8]
Ну обнатная операция :) В чем проблема? Кажется тут уже лень нипричем.
easy (2007-01-23 17:43:00) [5]
> Самому думать просто уже лень.
лень думать - слазий в яндекс.
пущай он думает..
http://www.yandex.ru/yandsearch?rpt=rad&text=BinToInt
Правильный Вася (2007-01-23 17:43:00) [6]Удалено модератором
Примечание: И не цитируем
Ega23 (2007-01-23 17:35:00) [7]
> ну мне кажется вопрос был более чем понятный:
http://www.delphikingdom.com/lyceum/seminar.asp?ID=1
Читать до ПОЛНОГО ПРОСВЕТЛЕНИЯ
FIL-23 (2007-01-23 17:33:00) [8]НАРОД!!!! ну мне кажется вопрос был более чем понятный:
из двоичного (бинарного-10010111010) в десятичный
пример:
загоняем этот ДВОИЧНЫЙ код 10010111010 в -----> функция ------> а из нее выходит десятичный тобишь нармальная такая красивая цыфра в данном случае 1210
Понятно?!!
iXT (2007-01-23 17:32:00) [9]IntToHex, а Hex замечательно идет в Bin :)
Chort (2007-01-23 17:23:00) [10]Удалено модератором
Правильный Вася (2007-01-23 17:21:00) [11]Chort © (23.01.07 17:19) [4]
ты все перепутал, демпингер
Chort (2007-01-23 17:19:00) [12]
function DecToBase(Decimal: LongInt; const Base: Byte): string;
const
Symbols: string[16] = '0123456789ABCDEF';
var
scratch: string;
remainder: Byte;
begin
scratch := '';
repeat
remainder := Decimal mod Base;
scratch := Symbols[remainder + 1] + scratch;
Decimal := Decimal div Base;
until (Decimal = 0);
Result := scratch;
end;
Ega23 (2007-01-23 17:17:00) [13]Нет десятичного кода. И хекса - тоже нет. Всё суть нуль, либо единица...
Правильный Вася (2007-01-23 17:16:00) [14]
> Самому думать просто уже лень.
50 баксов и я не поленюсь за тебя подумать
Германн (2007-01-23 17:13:00) [15]IntToStr или формулируй вопрос грамотнее.
| |
