Перевод числа из 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 тебе отдельное) за первую прогу я её и то и сдал)) ...после 50 минут "общения" с преподом... Сдал бы и за 10 минут если бы она не посмотрела на запись "Back to normal" а так спасибо Щас мучают другие головные боли с более сложными темами буду разбираться...

[Lapp]

я сдал прогу уже давно!!! Lapp тебе отдельное) за первую прогу я её и то и сдал)) ...после 50 минут "общения" с преподом... Сдал бы и за 10 минут если бы она не посмотрела на запись "Back to normal"

Рустам, сдал или не сдал - это твои проблемы. Ты родил тему - дальше она живет сама. А для меня, например, неверно решенная задача - это заноза в за*нице..)) К тому же, я не припомню, чтобы СС с отрицательным основанием засвечивались тут, на Форуме. Так что не серчай, решение я добил. Всего-то нужно было сконцентрироваться и заставить себя исходить из самых общих принципов..

Трюк с конструированием числа p+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);
    if d<0 then begin
      d:=10+d;
      Inc(a)
    end;
    Inc(l);
    b[l]:=d
  end;
  if l=0 then begin
    l:=1;
    b[1]:=0
  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©;
  ReadLn
end.

А старые два решения пусть останутся памятником вечной идее перехитрить самого себя..))

Добавлено через 3 мин.
Кстати, а чем не понравилось "back to normal"? Проверка никогда не вредит. Здесь, как видишь, помогла (спасибо volvo)).

И еще интересное замечание: оказывается, система с отрицательным основанием вообще не требует лидируещего минуса в звписи числа! У меня это с трудом укладывается башке: с одной стороны, минус вроде как совсем не нужен уже, а с другой - само основание как-то же надо записывать! Если записать его в той же самой СС_-10, то получится просто 10, - и что дальше?.. С одной стороны это вроде и правильно, с другой - это же не десятка на самом деле! В этом месте меня плющит.. Я не знаю, насколько это плохо, но что-то явно нехорошо. Вроде бы нормально, что основание СС нельзя записать цифрой той же СС, но тут еще и знак приплелся, и крыша окончательно едет.. Кто-нить может внести ясность?