Conversiones de bases numericas 10 <> X

[lrcvs]

para B10aBX :n :a
;Funcion para transformar un numero en base 10 >> otra base "numerica" cualquiera
;n = Numero en base 10 (base origen)
;a = Base a la que queremos convertir (base destino)
(local "r "s "t)
haz "r "||
haz "s entero :n
haz "t entero :a
mientras [:s <> 0][haz "r palabra :r resto :s :t haz "s entero :s / :t]
dev invierte :r
fin

 

.....................................................................

 

para BXaB10 :n :a
;Funcion para transformar un numero en cualquier base "numerica" a base 10
;n = Numero a transformar (tiene que estar el otra base distinta de 10)
;a = Base X es origen distinta de base 10
(local "b "ln "j "r)
haz "b entero :a
haz "ln cuenta entero :n
haz "j invierte entero :n
haz "r 0
desde [p 1 :ln ][haz "x potencia :b (:p - 1) haz "r :r + (elemento :p :j) * :x ]
dev :r
fin

 

.............................................

 

para xx
bt
haz "n 1032 ;Este es el numero en base 10 (origen)
haz "a 11   ;Este es el numero de la base destino

haz "j B10aBx :n :a
es []
es (lista "El_numero: :n "en_base_10_es_el: :j "en_base: :a)

haz "k BXaB10 :j :a
es []
es (lista "El_numero: :j "en_base: :a "es_el: :k "en_base_10)
fin

 

[Daniel Ajoy]

On Tue, 09 Feb 2010 17:44:42 -0500, lrcvs <lr...@yahoo.es> wrote:

> para B10aBX :n :a
> ;Funcion para transformar un numero en base 10 >> otra base "numerica" cualquiera
> ;n = Numero en base 10 (base origen)
> ;a = Base a la que queremos convertir (base destino)
> (local "r "s "t)
> haz "r "||
> haz "s entero :n
> haz "t entero :a
> mientras [:s <> 0][haz "r palabra :r resto :s :t haz "s entero :s / :t]
> dev invierte :r
> fin

Estas dos lï¿œneas:

mientras [:s <> 0][haz "r palabra :r resto :s :t haz "s entero :s / :t]
dev invierte :r

Pueden ser:

mientras [:s <> 0][haz "r palabra resto :s :t :r haz "s entero :s / :t]
dev :r

Daniel