Скачать: CL | DM;

перевод из двоичного в десятичный?   Найти похожие ветки 

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.028 c