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 - 31.12.2006 0:25

[Bokul]

Надо так:

{$E+} {$N+}
 

[EDG]

Надо так:

{$E+} {$N+}
 

ОК
Теперь интервал составляет 1..262144 o_O Дальше просто некуда :D И мне не надо)) Вот так если нужно больше, тут уже нужно в массив запись нулей и единиц вести.

Сообщение отредактировано: EDG - 31.12.2006 2:13

[UksusoFF]

Народ, а как можно записывать в двоичной системе действительное счисления число, имеющее не более 50 цифр в десятичной записи? Используя Динамические массивы. чего то я не нашел... помогите пожалуста новичку