Перевод двоичных чисел из дополнительного кода в прямой

@vovanwin- · Регистрация: 01.05.2018

Author24 — интернет-сервис помощи студентам

Делаю программу которая переводит из дополнительного кода в прямой. Решил перевести из доп кода в обратный , из обратного в прямой. Моя проблема в том как из обратного кода перевести в прямой, теоретически как все переводится знаю, а вот как запрограммировать не знаю.

VB.NET

Module Module1
 
    Function In(ByVal Valuev As Integer) As String
        Return Convert.ToString(Valuev, 2)
    End Function
 
 
    Sub Main()
            Dim c As String
        Dim a(100), sum, sum1, st As Integer
        c = Console.ReadLine() 'вводим дополнительный код 2-й системы
        st = 1
        For i = 1 To c.Length 'перевожу в 10 систему
            st = st * 2
        Next
        For i = 0 To c.Length - 1
                a(i) = Val(c(i))
            Next
            For i = 0 To c.Length - 1
                st = st / 2
                sum = sum + a(i) * st
            Next
        sum1 = sum - 1  'из 10-й отнимаю единицу  
 
        MsgBox(In(sum1)) 'перевожу обратно в двоичную и получаю обратный код
 
    End Sub
 
    End Module

@_shark · 08.05.2018, 14:29

Сообщение от vovanwin-

c.Length

сдается мне, вам надо в раздел VB-Net

@_shark 185 / 183 / 31 Регистрация: 11.10.2016 Сообщений: 599
	08.05.2018, 14:29	2
	Сообщение от vovanwin- c.Length сдается мне, вам надо в раздел VB-Net 0