Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Dec to Bin [D7, WinXP]

Страницы: 1 2 >
VasRog © (2005-02-06 19:37:00)
Подскажите, пожалуйста как перевести десятичное целое число в двоичное?

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

Defunct (2005-02-07 03:23:00) [2]
default © (07.02.05 03:14) [19]

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

default (2005-02-07 03:14:00) [3]
Defunct © (07.02.05 03:06) [18]
Вы просто толькоответ [7] назвали верным

Defunct (2005-02-07 03:06:00) [4]
default © (07.02.05 02:50) [13]

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

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

GanibalLector (2005-02-07 02:54:00) [6]
2 default
Ну,не знаю.У меня даже такого юнита нет.
По сабжу: ВСЕ(ну,или почти все) преобразования в RX сидят.

GanibalLector (2005-02-07 02:52:00) [7]
Млин...я default с Defunct начал путать.[12] предназначалось default

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

default (2005-02-07 02:50:00) [9]
"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]
чем же мой неверен?

GanibalLector (2005-02-07 02:48:00) [10]
2 Defunct
>uses [beep], IdGlobal;
У меня такого нет.Это в какой D?
P.S.У меня D5

Defunct (2005-02-07 02:45:00) [11]
SergP © (06.02.05 21:42) [9]

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

хм (2005-02-06 23:38:00) [12]
repeat s:=(x and 1)+s; x:=x shr 1; until x=0;

SergP (2005-02-06 21:42:00) [13]

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

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

AlterEgo of WondeRu (2005-02-06 21:28:00) [14]
VasRog (06.02.05 19:37)

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

begin...end (2005-02-06 21:25:00) [15]
> 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.

Весело (2005-02-06 20:43:00) [16]
http://denisov.i2x2.ru/delphi/Units/Dec-Hex.rar

GEN++ (2005-02-06 20:35:00) [17]
Строго по сабж:
Перевод 10-тичного числа(X) двоичное производится
последовательным делением X на 2.

default (2005-02-06 20:03:00) [18]
uses [beep], IdGlobal;

VasRog (2005-02-06 20:01:00) [19]
IntToBin, вероятно, тебе нужен
Такого, к сожалению, нет.

Anatoly Podgoretsky (2005-02-06 19:40:00) [20]
StrToInt

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »