hi all..
i want to convert decimal to binary..

best regards..thanks.

## All 3 Replies

try this following code :

``````Program Decimal_Binary;
Uses WinCrt;
Var
Dec,Deci: Integer;
Bin: String;
Ul:Char;
Begin
Repeat
Clrscr;
Writeln('Decimal to Binary Convertion Program');
Writeln('======================================');
Writeln;
Write('Input Decimal Number: ');Readln(Dec);
Deci:=Dec;
Bin:='';
Repeat
If(Dec Mod 2 = 0) Then
Bin:='0'+Bin
Else
Bin:='1'+Bin;
Dec:=Dec Div 2;
Until Des=0;
Writeln;
Writeln(Deci,' Decimal = ',Bin,' Binary');
Writeln;
Write('Try Again? [Y/N]: ');Readln(Ul);
Ul:=Upcase(Ul);
Until (Ul<>'Y');
End.``````

hope it helps

commented: good one +4
commented: Thx..relly helps :) +3
commented: helping.. +4
``````function IntToBin( Value: integer; Digits: integer ): string;
begin
result := StringOfChar ( '0', digits ) ;
while value > 0 do begin
if (value and 1) = 1 then
result[digits] := '1';
dec (digits) ;
value := value shr 1;
end;
end;``````
commented: Thx.. :) +3

plz help!!! pascal tree using c sharp

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, learning, and sharing knowledge.