Двоичная арифметика

[tae1980]

Замечали знакомые....
Есть у кого нибудь функции реализующие операции двоичной арифметики?

[Serge 007]

См. здесь .

[Hugo121]

Дык ведь есть они:

=DEC2BIN(SUM(BIN2DEC(B1);BIN2DEC(B2 )))

Ну или иначе:

=DEC2BIN(SUM(BIN2DEC(101);BIN2DEC(1 1)))

[tae1980]

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

Дык ведь есть они:
=DEC2BIN(SUM(BIN2DEC(B1);BIN2DEC(B2 )))
Ну или иначе:
=DEC2BIN(SUM(BIN2DEC(101);BIN2DEC(1 1)))

А это где? В 2003 я такого не нашел.

[Hugo121]

Подключить Analisys Toolpak в надстройках. Или что-то похожее в русской версии ("Пакет анализа" вроде...)

[tae1980]

Сообщение от Serge 007

См. здесь .

Это решения задания по переводу между системами исчисления, С этим разобрался так

Function Dec_To_N_Schisl(Система As Integer, Число As Variant)
' Переводит десятичное число "Число" в систему счисления "Система".
Размерность = 3
Число = CDbl(Число)
If InStr(1, Число, ",") > 0 Then
    Числоd = Число - Fix(Число)
    Число = Fix(Число)
End If
ik = 0
it = Число
Число = ""
If Система <= 1 Then Exit Function
Do
    ostatok = it Mod Система
    it = it \ Система
    Select Case ostatok
        Case 0 To 9
          Zn = Trim(CStr(ostatok))
        Case 10 To 37
          Zn = Chr(55 + ostatok)
        Case Else
          Zn = "#"
    End Select
    Число = Zn & Число
Loop While it > 0
If Числоd > 0 Then
    ik = 0
    it = Числоd
    Числоd = ""
    Do
    a = it * Система
        целое = Fix(it * Система)
        it = (it * Система) - целое
        Select Case целое
            Case 0 To 9
                Zn = Trim(CStr(целое))
            Case 10 To 37
                Zn = Chr(55 + целое)
            Case Else
                Zn = "#"
        End Select
        Числоd = Числоd & Zn
    Loop While it > 0
End If
Dec_To_N_Schisl = Число & IIf(Числоd > 0, "." & Left(Числоd, Размерность), "")
End Function
 
Function N_Schisl_To_Dec(Система As Integer, Число As Variant)
' Переводит число "Число" из системы счисления "Система" в десятичное .
Число = Replace(UCase(Trim(CStr(Число))), ",", ".")
If InStr(1, Число, ".") > 0 Then
    Числоd = Mid(Число, InStr(1, Число, ".") + 1, Len(Число) - InStr(1, Число, ".") + 1)
    Число = Mid(Число, 1, InStr(1, Число, ".") - 1)
End If
k = Len(Число)
Chislo10 = 0
Chislo10d = 0
For i = 1 To k
    Zn = Mid(Число, k + 1 - i, 1)
    Select Case Zn
        Case "0" To "9"
          ik = Val(Zn)
        Case "A" To "Z"
          ik = Asc(Zn) - 55
    End Select
    Chislo10 = Chislo10 + Система ^ (i - 1) * ik
Next
k = Len(Числоd)
For i = 1 To k
    Zn = Mid(Числоd, i, 1)
    Select Case Zn
        Case "0" To "9"
          ik = Val(Zn)
        Case "A" To "Z"
          ik = Asc(Zn) - 55
    End Select
    Chislo10d = Chislo10d + Система ^ (i * (-1)) * ik
Next i
N_Schisl_To_Dec = Chislo10 + IIf(Chislo10d > 0, Chislo10d, 0)
End Function

Теперь нужно провести арифметические действия над двоичными числами. "Заданы двоичные числа X и Y. Вычислить X-Y и X+Y , X*Y и X/Y". Где X=101101,101; Y=10111,1
Простой перевод в десятинную->вычисление->обратный перевод.
И не должно конечно работать... но было интересно "а вдруг" :))

[Serge 007]

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

А это где?

Категория - инженерные. Есть такая в 2003?

[tae1980]

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

Простой перевод в десятинную->вычисление->обратный перевод.
И не должно конечно работать... но было интересно "а вдруг" )

Попробовал ещё раз. Все получилось.
В методички сплошные ошибки в примере в задание одни цифры, а в решении совсем другие. Поэтому у меня и были расхождения.
Всем спасибо!

[tae1980]

Сообщение от Serge 007

Категория - инженерные. Есть такая в 2003?

Такой категории не было, так как не подключал надстройки. Подключил, появились.
Но как я понял (при беглом взгляде), перевод из систему в систему работает только для целых чисел, тогда как приведенные мною функции работают и с дробными цифрами.