Proceso conversor_de_binario_a_decimal

escribir 'Ingrese Numero Binario'

leer num

Mientras num>0 Hacer

si num>0 entonces

coci<-num

re<-1

decimal<-0

mientras coci<>1 Hacer

decimal<-decimal+(coci % 10)*re

coci<- trunc(coci/10)

re<-(re*2)

FinMientras

decimal<-decimal+((coci % 10)*re)

escribir 'el numero en decimales', decimal

FinSi

Escribir ''

escribir 'Ingrese Numero Binario y para finalizar pulsa enter'

leer num

FinMientras

FinProceso

o este otro amigo