# Binary calculation

i want to make console application to calculate binary number for example :
my program will ask for number input like 1010001101 and save it in D.
then it will ask for another number and save it in (P) and this ( P) must be shorter than D at least with on character like 101000110 .
then new character( N ) = Number of  (D)  + number of (p) - 1 .

N= 10 + 6 -1 = 5

after that we will add Zeros after  (D) to become  101000110100000 then we divide it .

please see the picture here :

###### Who is Participating?

Commented:
//turns a number to a binary string
function numtobin(v : longint) : string;
var
t,d : longint;
firstbitfound : boolean;
begin
t := v;
d := 1073741824;
result := '';
firstbitfound := false;
while d > 0 do
if t >= d then begin
result := result + '1';
t := t - d;
d := d div 2;
firstbitfound := true;
end else begin
if firstbitfound then result := result + '0';
d := d div 2;
end;
end;

//turns a binary string to a number
function bintonum(s : string) : longint;
var
cnt : integer;
t : longint;
begin
result := 0;
t := 1;
for cnt := length(s) downto 1 do begin
if s[cnt] = '1' then result := result + t;
t := t*2;
end;
end;

example
edit1.Text := numtobin(  bintonum('1001010') + bintonum('010101') + 1 );
0

Self-employed developerCommented:
I don't get your problem. But doesn't Delphi has a IntToBin and BinToInt function in the Math unit? Otherwise, it's not that hard to convert a binary to an integer anyway.
0

Commented:
Have a look at TXSHexBinary

in the help files
0

Author Commented:
thank you ...
and i wish if someone could write out this program.
0

Commented:
Have a atrmpt at writing the program and where you get stuck post the problems and we'll help.
There is no point in one of us writing out the source code; you'll learn more by attempting it your self
0

Commented:
if you want the final string a set length then:
finalnumber : string;

padsize := '0000000000' ; //add the number of zeros you want as the total length

finalnumber := NumToBin( whatever you want here);
0

Commented:
Hi topkah,
I just wanted to say I have created a program that converts ascii chars into binary strings. I have the code posted on planet-source-code and the link to the source is:

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=884&lngWId=7
0

Author Commented:
Thank you . i solve it .
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.