Proceso Binario_a_Decimal
escribir "Escriba un numero Binario para pasarlo a Decimal"
leer x
Para i<-0 Hasta longitud(x)-1 Con Paso 1 Hacer
acum=acum+convertiranumero(subcadena(x,i,i))*2^(longitud(x)-i-1)
Si convertiranumero(subcadena(x,i,i))>1 Entonces
pro=pro+1
Fin Si
Fin Para
Si pro=0 Entonces
escribir x," Binario = ",acum," en Decimal"
Sino
escribir "El numero ",x," no es Binario"
FinSi
FinProceso
If you would like to refer to this comment somewhere else in this project, copy and paste the following link:
Proceso Binario_a_Decimal
escribir "Escriba un numero Binario para pasarlo a Decimal"
leer x
Para i<-0 Hasta longitud(x)-1 Con Paso 1 Hacer
acum=acum+convertiranumero(subcadena(x,i,i))*2^(longitud(x)-i-1)
Si convertiranumero(subcadena(x,i,i))>1 Entonces
pro=pro+1
Fin Si
Fin Para
Si pro=0 Entonces
escribir x," Binario = ",acum," en Decimal"
Sino
escribir "El numero ",x," no es Binario"
FinSi
FinProceso
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"
no cumple
tira error