|
| 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 |
|
| Publicado em julho, 23 2015 - 11:31 AM |
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)
|
| |
| |
| | | |
|
| | | | |
| | |
|