PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Converter Decimal em Binário (Convert Decimal to binary)
Converter Decimal em Binário (Convert Decimal to binary)
Iniciado por JOSE ELIELSON SILVA, jul., 23 2015 11:31 AM - Sem resposta
Membro registado
14 mensagems
Popularité : +5 (7 votes)
Publicado em julho, 23 2015 - 11:31 AM
// by Jose Elielson
// converter dec -> bin
x is int = edit_decimal
r is int = 0
y is int = 0
b is string = ""

IF x > 1

LOOP
y = IntegerPart(x/2)

r = x - (y*2)

b = NumToString(r) + b

IF y = 1 THEN
b = "1" + b
BREAK
END
x = y
END
ELSE
b = NumToString(x)
END

Info(b)