Dec --> Bin Опции

[EDG]

Здравствуйте, подобная тему уже обсуждалась год назад, но у меня другой вопрос. В FAQ'е есть программа перевода из одной с\с в другую, но та программа к сожалению переводит из десятичной в двоичную с\с только интервал чисел 1..1023. Я написал свою которая может переводить из десятичной в двоичную с\с интервал чисел 1..2047.... а дальше идёт чушь :
при переводе 2047 получается 11111111111, а при переводе 2048 --> 100000000010
2049 --> 100000000010
2050 --> 100000000020
2051 --> 100000000020

Program proga;
var x,st: longint;
	b: real;
begin
  read(x);
  st:=0;
  b:=0;
  Repeat
	b:=b+((x mod 2)*exp(st*ln(10)));
	st:=st+1;
	x:=x div 2;
  Until x=0;

  writeln(b:2:0);
end.

Помогите пожалуйста разобраться, в чём проблема?

Сообщение отредактировано: EDG - 30.12.2006 20:25