Уравнение в шестнадцатиричной системе счисления

[catchmeifyoucan]

Напишите программу, позволяющую решить уравнение: ax+b=cx-d, где a, b, c, d, и x - целые шестнадцатеричные числа (a, b, c и d входные данные из диапазона от -FFFFF до FFFFF, а x - выходное значение).
Пример:
a = A
b = B
c = C
d = D
x = C

[Serge_Bliznykov]

по секрету скажу, в паскале ОЧЕНЬ легко перевести шестнадцатеричное значение в десятичное. (да и обратно тоже не намного сложнее )

поиском по форуму Вы бы легко нашли нужный код перевода.
Ну да ладно. вот, например, полезные в вашем случае функции:

(*********** функции для перевода из HEX в десятичную СС и из десятичной в HEX *)
const  Digits : array[0..$F] of Char = '0123456789ABCDEF';
type
  Long =
    record
      LowWord, HighWord : Word;
    end;


function StrHexToInt(S :  string; var Err : integer) : Longint;
var
  D    : LongInt;
  i, k : integer;
begin
  D := 0;
  Err := 0;
  i := 1;
  while (i<=Length(S)) and (Err=0) do begin
    k := Pos(Upcase(S[i]), Digits);
    if k=0 then Err := i
    else
      D := D * 16 + (k-1);
    inc(i);
  end;
  StrHexToInt := D;
end;

 
  function HexW(W : Word) : string;
    {-Return hex string for word}
  begin
    HexW[0] := #4;
    HexW[1] := Digits[hi(W) shr 4];
    HexW[2] := Digits[hi(W) and $F];
    HexW[3] := Digits[lo(W) shr 4];
    HexW[4] := Digits[lo(W) and $F];
  end;

  function HexL(L : LongInt) : string;
    {-Return hex string for LongInt}
  begin
    with Long(L) do
      HexL := HexW(HighWord)+HexW(LowWord);
  end;
(*************************************************************)


{ Пример использования }

var
  s : string;
  d : longint;
  err : integer;
begin
  WriteLn;
  Write('Введите число в шестнадцатеричной системе: ');
  ReadLn(s);
  d := StrHexToInt(s, err);
  if err<>0 then WriteLn('Ошибка ввода, число '+s+' не является верной записью шестнад/числа')
  else WriteLn('Десятичное значение числа равно ',d);

  {умножим это число, например, на 3 и результат выведем в шестнадцатеричной системе}
  WriteLn('число, умноженное на 3 равно: ', HexL(d*3));

  readln;
end.