Сложение в троично-симметричной системе, Нада сложить 2а числа в троичной симметричной системе, а числа заданны Опции

[Kumpi]

Нада сложить 2а числа в троичной симметричной системе, а числа заданны символьным типом данных..Помогите пожалуйста!

[volvo]

Смотри:

const
  s1: string = '+-+';
  s2: string = '+-+';

  letters: array[-1 .. 1] of char =
    ('-', '0', '+');

  sum: array[1 .. 3] of record
    ch, p: integer
  end =
  ( (ch: 1; p:0),
    (ch:-1; p:1),
    (ch: 0; p:1) );

function value(ch: char): integer;
var i: integer;
begin
  for i := -1 to 1 do begin
    if letters[i] = ch then value := i;
  end;
end;

var
  res: string;
  s, p, i: integer;

begin
  res := '';
  { уравниваем длины 2-х строк, для чего к более короткой добавляем '0' спереди }
  while length(s1) <> length(s2) do
    if length(s1) < length(s2) then s1 := '0' + s1
    else s2 := '0' + s2;

  p := 0; { <--- Перенос в следующий разряд, изначально = 0 }

  { теперь проходим по всем разрядам от младшего у старшему... }
  for i := length(s1) downto 1 do begin

    s := value(s1[i]) + value(s2[i]) + p; { <--- сумма соотв. разрядов чисел и переноса }
    if s = 0 then begin
      {
        если сумма = 0, значит ничего не менять: в соотв. разряд результата пишем 0,
        и перенос тоже = 0
      }
      res := '0' + res; p := 0; 
    end
    else begin
      { сумма не нулевая, см. объяснение ниже }
      res := letters[(s div abs(s)) * sum[abs(s)].ch] + res;
      p := (s div abs(s)) * sum[abs(s)].p
    end;

  end;
  { ну, и добавляем символ, если есть ненулевой перенос }
  if p <> 0 then res := letters[p] + res;

  writeln(res);

end.

Теперь о том, что творится если сумма не равна 0... Тогда возможны такие комбинации:
1а) s = 1 ==> в результат добавляется 1, перенос = 0
1б) s = -1 ==> в результат добавляется -1, перенос = 0

2а) s = 2 ==> в результат пишем -1, переносим 1 (то есть, отнимаем 1, добавляем 3; в итоге +2)
2б) s = -2 ==> в результат пишем 1, переносим -1 (прибавляем 1, отнимаем 3; итого -2)

3а) s = 3 ==> в результат пишем 0, переносим 1
3б) s = -3 ==> в результат пишем 0, переносим -1

Как видим, все результаты и переносы для разнознаковых сумм тоже имеют разный знак, поэтому вместо того, чтобы описывать массив sum[-3 .. 3], я сделал его от 1 до 3, и если сумма отрицательная, то я просто меняю знак для ch и p... (изменение знака достигается умножением на s div abs(s), что будет содержать 1 если S > 0, и -1 если S < 0)...

В качестве теста: 7_3у + 7_3у = "+-+" + "+-+" = "+---" = 3³ - 3² - 3¹ - 3⁰ = 27 - 9 - 3 - 1 = 14_3у

Вопросы?

Сообщение отредактировано: volvo - 5.06.2008 15:57