системы счисления

[Вера_09]

как перевести число 10111010 из двоичной системы счисления в семеричную?

[Serge_Bliznykov]

обычно используют десятичную СС как промежуточную.
т.е. код сначала переводят из двоичной в десятичную, потом из десятичной в семеричную.

Примером перевода в любую СС на форуме было достаточно.

[TinMan]

Сообщение от Serge_Bliznykov

обычно используют десятичную СС как промежуточную.
т.е. код сначала переводят из двоичной в десятичную, потом из десятичной в семеричную.

Серж, зачем переводить в десятичную?.. Думаю, ты на самом деле имел в виду "перевод во внутреннее машинное представление", что по сути есть просто абстрактное число. В данном случае не важно, какое именно представление используется внутри - двоичное, троичное или даже действительно десятичное (кстати, были такие)).

Вот простенькая реализация на этом принципе - она, кстати, годится для перевода из любой системы счисления в любую другую (до 10, основания задаются константами) - и даже с проверкой на корректность входного числа )). Числа только целые неотрицательные, ограничение по величине числа - диапазон LongInt.

// transfer an integer number from any numeration system to any other
// by Lapp, programmersforum.ru
const
  bIn= 2;                  // input numeration base, from 2 through 10
  bOut= 7;                 // output numeration base, from 2 through 10
  digits= ['0'..Chr(47+bIn)];

var
  n: LongInt;
  i: integer;
  sIn,sOut: string;        // input and output numbers

begin
  Write('enter a number in ',bIn,'-based numeration: ');
  Readln(sIn);
  n:= 0;
  for i:=1 to Length(sIn) do
    if sIn[i] in digits then n:= n*bIn+Ord(sIn[i])-48
    else begin
      Writeln('incorrect digit at pos ',i);
      Halt
    end;
  sOut:='';
  while n>0 do begin
    sOut:= Chr(n mod bOut + 48)+sOut;
    n:= n div bOut
  end;
  if sOut='' then sOut:='0';
  Writeln('this number transferred to ',bOut,'-based numeration: ',sOut)
end.

И можно без особого труда добавить лат.буквы, расширив тем самым диапазон оснований СС до 36.

[Serge_Bliznykov]

Серж, зачем переводить в десятичную?.. Думаю, ты на самом деле имел в виду "перевод во внутреннее машинное представление", что по сути есть просто абстрактное число.

ну да, спасибо за уточнение. именно это я имел в виду.
Строка(в любой системе счисления, например, в двоичной) -> ЧисловойТипДанных (например, Logint, если речь о Паскаль).
разумеется, ЧисловойТипДанных - это машинное представление целого числа.