|
| WX - Converter decimal -> binario |
| Iniciado por Boller, 19,ago. 2015 22:33 - 1 respuesta |
| |
| | | |
|
| |
Miembro registrado
4.520 mensajes |
|
| Publicado el 19,agosto 2015 - 22:33 |
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)
|
| |
| |
| | | |
|
| | |
| |
Miembro registrado
4.520 mensajes |
|
| Publicado el 19,agosto 2015 - 22:34 |
b is string = edit_binario
i is int = 0
k is int = 0
y is int = 0
x is int = 0
j is int = Length(NoSpace(b))
FOR i = j TO 1 STEP -1
y = Val(Middle(b,i,1))
IF y = 1 THEN
x = x + (2^(k))
END
k++
END
Info(x)
|
| |
| |
| | | |
|
| | | | |
| | |
|