перевести число в десятичную систему

[Анна кот]

помогите пожалуйста решить задачку:
1) перевести число в десятичную систему: 2048?
2) перевести в двоичную систему число:10110011?

[EducatedFool]

перевести число в десятичную систему: 2048

не получится
это число уже в десятеричной системе

перевести в двоичную систему число:10110011?

аналогично
это число уже записано в двоичной системе


PS: и ещё, чтобы перевести из системы в систему,
надо знать, в какой системе изначально записано число.
Например, 2048 может быть записано как в десятеричной, так и шестнадцатеричной системе.

[DiemonStar]

Например, 2048 может быть записано как в десятеричной, так и шестнадцатеричной системе.

Это из общепринятых. По сути, оно может быть записано в любой СС с основой больше 8.

[IgorGO]

вот функции для перевода десятичных чисел в любую систему до 36-иричной и обратно:

' из 10-ричной системы в какую-то n-ричную
Function D2xz(d As Long, xz As Long) As String
  Dim r As Integer, s As String
  r = Int(Log(d + 0.001) / Log(xz))  'Для 64, 128 перевод в 2-ичную систему дало неожиданный результат: Log(128)/Log(2) = 7 - это
  'правильно, а Int(Log(128)/Log(2)) уже равно 6 и в старшем разряде получается "2"!!!, пришлось добавить нелогичный 0.001
  Do
    s = s & D2C(Int(d / xz ^ r))
    d = d - Int(d / xz ^ r) * xz ^ r
    r = r - 1
  Loop Until r = -1
  D2xz = s
End Function
' и обратно
Function xz2D(s As String, xz As Long) As Long
  Dim r As Integer, d As Long
  For r = 0 To Len(s) - 1
    d = d + C2D(Mid(s, Len(s) - r, 1)) * xz ^ r
  Next
  xz2D = d
End Function
Function D2C(i As Integer) As String
  D2C = Split("0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z", ",")(i)
End Function
Function C2D(c As String) As Long
  C2D = InStr("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ", c) - 1
End Function

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

2048(10) == 800(16)
2048(16) == 8264(10)
10110011(10) == 100110100100010000111011(2)

где в обозначении ХХХХ(уу)
ХХХХ - значение
уу - размерность (система исчисления)

стандартная ДЕС.В.ДВ переводит из десятичной в двоичную числа величиной меньше 512
функция приведенная выше перевела в двоичную систему число 10110011 (десять миллионов стодесять тысяч одинадцать).

[Czeslaw]

Можно и так.

[Serge 007]

Сообщение от Анна кот

...перевести в двоичную систему число:10110011

А почему никто не рассматривает варианты с

=ДВ.В.ДЕС(10110011)

?

[IgorGO]

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

[Serge 007]

Игорь, а 2048 - это по-твоему двоичное?

[Czeslaw]

Сергей, а как перевести в двоичную систему число 2048.