Из двличной в десятичную

← →
Dngt (2005-12-16 15:56) [0]

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

← →
Fay © (2005-12-16 15:58) [1]

2 Dngt (16.12.05 15:56)
Называй число.

← →
Reindeer Moss Eater © (2005-12-16 15:58) [2]

Что такое "число"?

← →
boriskb © (2005-12-16 15:59) [3]

Dngt (16.12.05 15:56)
Из двличной в десятичную
Dngt (16.12.05 15:56)
как перевести число
из десятичной системы счисления в двоичную

Так откуда куда? :)

← →
oldman © (2005-12-16 16:01) [4]

Берем 10
Делим 10 на 2. Получаем 5. В остатке 0.
Делим 5 на 2. Получаем 2. В остатке 1.
Делим 2 на 2. Получаем 1.
Берем остатки в обратном порядке.
Получаем 110.
Алгоритм понятен?

← →
Johnmen © (2005-12-16 16:06) [5]

>oldman © (16.12.05 16:01) [4]
>...
>Алгоритм понятен?

Не очень понятно. Если не сложно, дайте искодного кода немного, плииииззз!

← →
КаПиБаРа © (2005-12-16 16:07) [6]

http://inn.h1.ru/topic.shtml?h1=16&h2=4

← →
vrem (2005-12-16 16:08) [7]

автор, в виндовс калькуляторе так легко это делается! не парься!

← →
Rouse_ © (2005-12-16 16:10) [8]

function IsBitSet(Value: Cardinal; BitNum : Byte): Boolean; begin Result := ((Value shr BitNum) and 1) = 1; end; function DecToBitStr(const Value: Cardinal; Size: Byte): String; var I: Byte; begin Result := ""; for I := Size - 1 downto 0 do Result := Result + IntToStr(Integer(IsBitSet(Value, I))); end; function DecToBit(const Value: Byte): String; overload; begin Result := DecToBitStr(Value, 8); end; function DecToBit(const Value: Word): String; overload; begin Result := DecToBitStr(Value, 16); end; function DecToBit(const Value: DWORD): String; overload; begin Result := DecToBitStr(Value, 32); end; procedure TForm1.Button3Click(Sender: TObject); const A = 123; B = 12345; C = $FFE1DF; begin ShowMessage(Format("%d = %s"#13#10"%d = %s"#13#10"%d = %s", [ A, DecToBit(A), B, DecToBit(B), C, DecToBit(C)])); end;

← →
Johnmen © (2005-12-16 16:13) [9]

>Rouse_ © (16.12.05 16:10) [8]

Мало кода. Я просил много! И это... как его...вспомнил! - пли-и-и-изззз!

← →
Витёк (2005-12-16 16:13) [10]

Спасибо, вы мне очень помогли, просто я хотел узнать сам алгоритм перевода числа из десятичной в двоичную, или на оборот!

← →
Rouse_ © (2005-12-16 16:14) [11]

> Мало кода. Я просил много!

Дык это... как его... чтоб увеличить ко-во кода, нужно использовать копи-пасте :)))

← →
han_malign © (2005-12-16 16:15) [12]

1,10,11,100,101 - вышел зайчик погулять...(с)

← →
Johnmen © (2005-12-16 16:17) [13]

>Rouse_ © (16.12.05 16:14) [11]
>нужно использовать копи-пасте :)))

Точно! Гланое, чтобы автор не забыл о нём :))

← →
Anatoly Podgoretsky © (2005-12-16 16:23) [14]

Витёк (16.12.05 16:13) [10]
Глупо, лучше из одной формы в другую.

← →
Витёк (2005-12-16 16:51) [15]

Понял как делать!!!
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d: integer;
s,p: string;
begin
c:=StrToInt(edit1.text);
repeat
b:=c mod 2;
s:=intTostr(b)+s;
c:=c div 2;
until c =1;
s:="1"+s;
ShowMessage(s);
end;

> Витёк (16.12.05 16:51) [15]
> Понял как делать!!!

Это так ты делаешь? Прикольно. Ибо не работает, ибо неверно..:)

> Витёк (16.12.05 16:51) [15]

AUTHOR BURNS!!!

> Dngt (16.12.05 15:56)

На моем сайте можешь скачать программу Needit. Она массивы чисел может переводить, примеры... в разные системы счисления.

Uses idGlobal
IntToBin

P.S. Я уже давно обхожусь без деления. Просто разряды помню...

> AUTHOR BURNS!!!

Долго думал, что же это за Барнс, пока не понял, что это "аффтар жжот" :-))

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1091#05

Из двличной в десятичную Найти похожие ветки