Proceso ejercicio_5_77
escribir "Escriba un numero Entero para pasarlo a Octal"
leer num
x=num
Si x>7 Entonces
repetir
acum=convertiratexto(redon((x/8-trunc(x/8))*8))+acum
Si x>=8 Entonces
x=trunc(x/8)
Fin Si
hasta que x<=8
FinSi
acum=convertiratexto(x)+acum
escribir num," Decimal = ",acum," en Octal"
FinProceso
//by Whathson Rene Ordoñez Torres
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Proceso ejercicio_5_77
escribir "Escriba un numero Entero para pasarlo a Octal"
leer num
x=num
Si x>7 Entonces
repetir
acum=convertiratexto(redon((x/8-trunc(x/8))*8))+acum
Si x>=8 Entonces
x=trunc(x/8)
Fin Si
hasta que x<=8
FinSi
acum=convertiratexto(x)+acum
escribir num," Decimal = ",acum," en Octal"
FinProceso
//by Whathson Rene Ordoñez Torres
Espero les ayude
View and moderate all "Material sobre pseudocódigo y programación" comments posted by this user
Mark all as spam, and block user from posting to "Discussion"
muchas gracias me ha ayudado mucho
Last edit: Anonymous 2016-12-24