Форум: "Начинающим";
Текущий архив: 2007.02.11;
Скачать: [xml.tar.bz2];
Вниз
перевод из двоичного в десятичный? Найти похожие ветки
← →
FIL-23 © (2007-01-23 17:10) [0]Народ ни кто не подскажет (напишет) функцию(процедуру) которая может переводить из двоичного кода в десятичный?. Самому думать просто уже лень.
← →
Германн © (2007-01-23 17:13) [1]IntToStr или формулируй вопрос грамотнее.
← →
Правильный Вася (2007-01-23 17:16) [2]
> Самому думать просто уже лень.
50 баксов и я не поленюсь за тебя подумать
← →
Ega23 © (2007-01-23 17:17) [3]Нет десятичного кода. И хекса - тоже нет. Всё суть нуль, либо единица...
← →
Chort © (2007-01-23 17:19) [4]
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;
← →
Правильный Вася (2007-01-23 17:21) [5]Chort © (23.01.07 17:19) [4]
ты все перепутал, демпингер
← →
Chort © (2007-01-23 17:23) [6]Удалено модератором
← →
iXT © (2007-01-23 17:32) [7]IntToHex, а Hex замечательно идет в Bin :)
← →
FIL-23 © (2007-01-23 17:33) [8]НАРОД!!!! ну мне кажется вопрос был более чем понятный:
из двоичного (бинарного-10010111010) в десятичный
пример:
загоняем этот ДВОИЧНЫЙ код 10010111010 в -----> функция ------> а из нее выходит десятичный тобишь нармальная такая красивая цыфра в данном случае 1210
Понятно?!!
← →
Ega23 © (2007-01-23 17:35) [9]
> ну мне кажется вопрос был более чем понятный:
http://www.delphikingdom.com/lyceum/seminar.asp?ID=1
Читать до ПОЛНОГО ПРОСВЕТЛЕНИЯ
← →
easy © (2007-01-23 17:43) [10]
> Самому думать просто уже лень.
лень думать - слазий в яндекс.
пущай он думает..
http://www.yandex.ru/yandsearch?rpt=rad&text=BinToInt
← →
Правильный Вася (2007-01-23 17:43) [11]Удалено модератором
Примечание: И не цитируем
← →
iXT © (2007-01-23 17:58) [12]
> FIL-23 © (23.01.07 17:33) [8]
Ну обнатная операция :) В чем проблема? Кажется тут уже лень нипричем.
← →
Chort © (2007-01-23 18:29) [13]
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;
← →
Плохиш © (2007-01-23 18:41) [14]
> FIL-23 © (23.01.07 17:10)
> Самому думать просто уже лень.
Нифигасе, ещё не начинал, а "уже лень" 8-O
← →
iXT © (2007-01-23 22:05) [15]
> Плохиш © (23.01.07 18:41) [14]
"А мне (ему) заранее надоело" (С) :)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.02.11;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.037 c
