Нужна помощь с двоичными числами

[Rusa85]

Есть следующее задание я генерирую двоичное число размером 80 бит.Мне необходимо преобразовать это число к 10 виду.Подскажите как мне это сделать.Калькулятор поддерживает максимум 64 бита.Прога делается в Delphi.

[Hollander]

Данный алгоритм работает с любым количеством бит.

void DecToBin (long num,char *bin)
{
   int i,j;
   char tmp[33];

   for (i=0; num; num>>=1, i++)tmp[i] = (num&1)?('1'):('0');
   for (j=0; j<i; j++) bin[j] = tmp[i-j-1];
}

Код на C, но думаю если надо на Pascal нетрудно самому перебить.
Украдено с http://algolist.manual.ru/maths/teornum/count_sys.php Посмотри на этой странице описан общий алгоритм перевода из/в любую СС.

[SERG1980]

не помню где нашёл эту ф-ию

function BinToInt (BinStr: string) : Int64;
var
   I, Len: integer;
const
   Mask: int64 = 1;
begin
   Result := 0;

   Len := Length (BinStr);
   if (UpperCase (BinStr [Len]) = 'B') then begin
      Dec (Len);
   end; {if}

   for I := 1 to Len do begin
      case BinStr [I] of
         '0':
           begin
              {ничего не делаем}
           end;
         '1':
           begin
              Result := Result OR (Mask SHL (Len - I))
           end;
      else begin
              raise Exception.Create ('Wrong binary string');
           end;
      end; {case}
   end; {for I}
end;

[Rusa85]

To SERG1980.ну типа такого кода у меня уже есть, нормально пересчитывает двоичное число размером 31 бит, а вот 32 уже начинаются замарочки.вот пример 1000110001000101111010011101001=117 6696041.но если на 1 бит больше 10001100010001011110100111010011=-1941575213.