Dec to Bin

← →
VasRog (2005-02-06 19:37) [0]

Подскажите, пожалуйста как перевести десятичное целое число в двоичное?

← →
default © (2005-02-06 19:39) [1]

IntToBin, вероятно, тебе нужен

← →
Anatoly Podgoretsky © (2005-02-06 19:40) [2]

StrToInt

← →
VasRog (2005-02-06 20:01) [3]

IntToBin, вероятно, тебе нужен
Такого, к сожалению, нет.

← →
default © (2005-02-06 20:03) [4]

uses [beep], IdGlobal;

← →
GEN++ © (2005-02-06 20:35) [5]

Строго по сабж:
Перевод 10-тичного числа(X) двоичное производится
последовательным делением X на 2.

← →
Весело (2005-02-06 20:43) [6]

http://denisov.i2x2.ru/delphi/Units/Dec-Hex.rar

← →
begin...end © (2005-02-06 21:25) [7]

> VasRog (06.02.05 19:37)

function DecToBin(Value: Cardinal): String; begin repeat Result := Chr(Value mod 2 + 48) + Result; Value := Value div 2 until Value = 0 end.

← →
AlterEgo of WondeRu © (2005-02-06 21:28) [8]

VasRog (06.02.05 19:37)

можешь подгядеть в учебнике по информатике за 5 класс!!! имхо!

← →
SergP © (2005-02-06 21:42) [9]

> VasRog (06.02.05 19:37)
> Подскажите, пожалуйста как перевести десятичное целое число
> в двоичное?

Все зависит от того что ты подразумеваешь под двоичным и десятичными числом...

← →
хм © (2005-02-06 23:38) [10]

repeat s:=(x and 1)+s; x:=x shr 1; until x=0;

← →
Defunct © (2005-02-07 02:45) [11]

SergP © (06.02.05 21:42) [9]

Ничего от этого не зависит. Есть двоичная система счисления и есть десятичная, тут уж че б не подразумевалось, ответ однозначен. ответ [7] есть правильный ответ, в [10] ошибка.

← →
GanibalLector © (2005-02-07 02:48) [12]

2 Defunct
>uses [beep], IdGlobal;
У меня такого нет.Это в какой D?
P.S.У меня D5

← →
default © (2005-02-07 02:50) [13]

"function IntToBin(Value: cardinal): string;
var
i: Integer;
begin
SetLength(result, 32);
for i := 1 to 32 do
begin
if ((Value shl (i - 1)) shr 31) = 0 then
result[i] := "0" {do not localize}
else
result[i] := "1"; {do not localize}
end;
end;"
из IdGlobal
Defunct © (07.02.05 02:45) [11]
чем же мой неверен?

← →
default © (2005-02-07 02:52) [14]

GanibalLector © (07.02.05 02:48) [12]
в D6 есть вроде бы и в пятёрке было

← →
GanibalLector © (2005-02-07 02:52) [15]

Млин...я default с Defunct начал путать.[12] предназначалось default

2 default
Ну,не знаю.У меня даже такого юнита нет.
По сабжу: ВСЕ(ну,или почти все) преобразования в RX сидят.

GanibalLector © (07.02.05 02:54) [16]
я запятую не поставил
"в D6 есть, вроде бы и в пятёрке было"
точно нет? в uses вписываешь и пишет что нету?

default © (07.02.05 02:50) [13]

ээээ
Если мне мой маразм не изменяет, я нигде не говорил, что ваш ответ неверен. или [10] это ваш ответ?

default © (07.02.05 03:14) [19]

Вы восприняли это слишком буквально. В [7] был код, его можно проверить, а ваш ответ и так верен т.к. исп. стандартную функцию. Или стандартные функции тоже надо проверять? ;)

Defunct © (07.02.05 03:23) [20]
хех, спорить не хочется, НО всё-таки
1) я думаю также(как Вы выразились "буквально") это бы понял автор сабжа
2)всё-таки стандартные ф-ции всегда под боком как говорится да и код их можно брать за образец так что следовало бы в первую очередь на них внимание обращать

Dec to Bin Найти похожие ветки