Перевод числа из 10 в -10 систему счисления, Перевод числа из 10 в -10 систему счисления Опции

[Рустам]

в качестве основания позиционной системы счисления может быть взято отрицательное число. Например можно рассмотреть систему с основанием -10 . Любое n единственным образом представляется в виде суммы As*(-10)^S+As-1*(-10)^s-1+...+A1(-10)+A0 где 0<=Ai<=9, i=0...s. Из сказанного следует что любое целое n записывается в системе с основанием -10 в виде целого числа без знака As As-1...A1 A0

Дано целое число n. ПОстроить представлени n в системе с основанием -10 те найти соответствующие As , As-1,..,A0

[Lapp]

Дано целое число n. ПОстроить представлени n в системе с основанием -10 те найти соответствующие A_s , A_s-1,..,A₀

Вот:

var
  b: array[1..100]of byte;
  i,l,d: integer;
  a,c: LongInt;

begin
  Write('Type in a number: ');
  ReadLn(a);
  l:=0;
  while a>0 do begin
    d:=a mod 10;
    a:=a div 10;
    Inc(l);
    if Odd(l) or (d=0) then b[l]:=d else begin
      b[l]:=10-d;
      a:=a+1
    end
  end;
  Write('-10 based notation: ');
  for i:=l downto 1 do Write(b[i]);
  WriteLn;
  Write('Back to normal: ');
  c:=0;
  for i:=l downto 1 do c:=c*(-10)+b[i];
  WriteLn©
end.

Сообщение отредактировано: Lapp - 6.04.2009 5:43