Цитата:
Сообщение от KiD2
|
Надо же... и впрямь. Впрочем, сейчас нарисовал попроще, без функции. Если действительно Паскаль, и если речь идёт о преобразовании только целых положительных чисел, то можно так:
Код:
VAR
Dec_Num:LongInt;
n, i:INTEGER;
BEGIN
Write('Enter the decimal number: ');
ReadLn(Dec_Num);
n:=TRUNC(Ln(1.0*Dec_Num)/Ln(2.0));
Write('Binary number: ');
For i:=n downto 0 do
begin
Write((Dec_Num div ROUND(Exp(i*Ln(2.0)))));
Dec_Num:=Dec_Num mod ROUND(Exp(i*Ln(2.0)));
end;
ReadLn;
END.