Функция преобразования десятичного числа в двоичное

← →
Jaxtor (2003-05-23 11:30) [0]

Добрый день! Не подскажите где можно найти функцию преобразования десятичного числа в двоичное и наоборот, типа:
function DecToBin (d:integer):string;
и
function BinToDec (b:string):integer;

← →
Skier (2003-05-23 11:40) [1]

function IntToBinStr(AInt : Integer) : String;
var
ii : Integer;
begin
Result := EmptyStr;
for ii := 1 to SizeOf(AInt) * 8 do begin
if AInt and $80000000 <> 0 then Result := Result + "1"
else Result := Result + "0";
AInt := AInt shl 1;
end; //for
end;

← →
Jaxtor (2003-05-23 11:41) [2]

Спасибо.

← →
Anatoly Podgoretsky (2003-05-23 11:43) [3]

Ему код не нужен, он ищет место где это лежит

← →
Jaxtor (2003-05-23 11:49) [4]

А обратная функция какая?

← →
Palladin (2003-05-23 11:50) [5]

извините, но у Вас образование стоит высшее в анкете, оно типа высшее железнодорожное?

← →
Jaxtor (2003-05-23 11:53) [6]

Просто лень думать над простыми вещами.

← →
JibSkeart (2003-05-23 11:54) [7]

Кошмар существует несколько вариантов перевести туды обратно ...
а вообщето енту задачу у нас в школе решать давали :)

← →
Jaxtor (2003-05-23 11:55) [8]

А я сейчас занимаюсь более сложными вещами...

← →
Jaxtor (2003-05-23 11:57) [9]

function RBin32ToInt(Value:String):Cardinal;
var i:integer;
begin
Result:=0;
for i:=1 to Length(Value) do
if Value[i]="1"
then Result:=Result+Round(IntPower(2,i-1));
end;

← →
Johnmen (2003-05-23 12:00) [10]

>Jaxtor © (23.05.03 11:55)
>А я сейчас занимаюсь более сложными вещами...

Не лень ?

← →
KSergey (2003-05-23 12:03) [11]

> Jaxtor © (23.05.03 11:53)
> Просто лень думать над простыми вещами.

Ну-ну...
Тогда нанимайте лаборанта - пусть он всю простую работу делает. Вполне нормальная ситуация. Но не забывайте, что ему деньги платить надо.

← →
pasha676 (2003-05-23 12:03) [12]

Число в памяти всегда двоичное. Не фига преобразовывать.
Я понимаю, что задачи стоят глобательные, но формат данных - это то что надо знать.

← →
Palladin (2003-05-23 12:08) [13]

> А я сейчас занимаюсь более сложными вещами...

я тоже занимаюсь более сложнымим, а всю мелочь корая мне может понадобится, пишу сам и всего один раз, в отдельном предназначеном именно для этого юните

← →
Dimka Maslov (2003-05-23 12:10) [14]

>Palladin
У меня образование тоже высшее и железнодорожное, и попрошу нас, железнодорожников, не обижать, среди нас тоже встречаются умные люди :)

А вообще-то чел по-моему опять хочет странного, не понимая что есть число типа Integer, а что строка типа String, и нужны ему функции val и str, или их более подние аналоги IntToStr и StrToInt.

← →
Anatoly Podgoretsky (2003-05-23 12:12) [15]

Правильно действуешь, глобальными, а мелочевку пускай тебе на форумах делают рабы.

← →
Palladin (2003-05-23 12:14) [16]

← →
Sha (2003-05-23 13:25) [17]

>Jaxtor © (23.05.03 11:55) А я сейчас занимаюсь более сложными вещами...
>Jaxtor © (23.05.03 11:57) function RBin32ToInt(Value:String):Cardinal;
Похоже, тебе еще рано заниматься сложными вещами. Займись сначала правильными вещами.

← →
panov (2003-05-23 16:36) [18]

>Sha © (23.05.03 13:25)
>Jaxtor © (23.05.03 11:55) А я сейчас занимаюсь более сложными вещами...
>Jaxtor © (23.05.03 11:57) function RBin32ToInt(Value:String):Cardinal;
Похоже, тебе еще рано заниматься сложными вещами. Займись сначала правильными вещами.

гы... точно.

Функция преобразования десятичного числа в двоичное Найти похожие ветки