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

[Malice]

Поменяй тип переменной b c real на extended, там мантисса побольше.

[EDG]

Поменяй тип переменной b c real на extended, там мантисса побольше.

Пробовал уже, пишется ошибка "Must be in 8087 mode to compile this." Что это? Пишет после b:=0, когда убираю эту строку, таже ошибка пишется после следующей =(

[Bokul]

Error 116: Must be in 8087 mode to compile this.

[Malice]

Маленький кубик

[EDG]

Молодец Malice! Спасибо большое! Интервал чисел увеличился как минимум в 2 раза Мне этого хватит))

[Bokul]

Вот, что находилось по моей ссылке:

Эмуляция сопроцессора
Очень часто у многих возникает вопрос - почему при компиляции у меня возникает ошибка Error 116: Must be in 8087 mode to compile this.
Ответ: Вы используете один из следующих вещественных типов:
Single, Double, Extended, Comp
Для работы с этими типами, необходима эмуляция сопроцессора. Просто добавьте в начало программы директивы:
{$E+, $N+}

[EDG]

И тебе спасибо, я видел, только не помогло =( Я написал {$E+, $N+} а оно распозналось просто как коментарий и всё =(

--------------------------

Ой, извиняюсь, всё даже намного лучше, просто нада было написать {$E+,N+}, а не {$E+,$N+}
Спасиб тебе))

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

[Bokul]

Надо так:

{$E+} {$N+}
 

[EDG]

Надо так:

{$E+} {$N+}
 

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

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

[UksusoFF]

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