из десятичной системы счисления преобразовать в двоичную систему в экспоненциальный вид [Паскаль]

[Yamkin]

Люди помогите студенту первокурснику! Нужна написать программу на Pascal, например вводим любое число с остатком,его необходимо из десятичной системы счисления преобразовать в двоичную систему в виде X=m*10p, где m-мантисса числа, p-поpядок числа?

[andrewpalkin]

Можно посмотреть на код , который ты написал , что в нем не работает ?

[Yamkin]

наконец то мне хоть один человек ответил)

program ku;
uses crt;
var
n,i: integer;
s:string;
begin
clrscr;
repeat
  readln(n);
until(n > 0);
while n > 0 do begin
  if n mod 2 = 0 then
    s:= s + '0'
  else begin
    s:= s + '1';
    n:= n - 1;
  end;
  n:= n div 2;
end;
for i:= length(s) downto 1 do
  write(s[i]);
   readln;
end.

я пока с переводом в двоичную систему сделал, мне необходимо это двоичное число как бы привести в экспоненциальный вид. Помоги чем сможешь?


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[andrewpalkin]

Сообщение от Yamkin

я пока с переводом в двоичную систему сделал, мне необходимо это двоичное число как бы привести в экспоненциальный вид. Помоги чем сможешь?

Вот с этим точно не могу помочь , уже и не помню ,что это такое и как математически делать все это