Whathson Rene Ordoñez Torres - 2015-06-04

Proceso Octal_a_Decimal
escribir "Escriba un numero Octal para convertirlo a Decimal"
leer x
Para i<-0 Hasta longitud(x)-1 Con Paso 1 Hacer
acum=acum+convertiranumero(subcadena(x,i,i))*8^(longitud(x)-i-1)
Si convertiranumero(subcadena(x,i,i))>7 Entonces
pro=pro+1
Fin Si
Fin Para
Si pro=0 Entonces
escribir x," Octal = ",acum," en Decimal"
Sino
escribir "El numero ",x," no equivale a un numero Octal"
FinSi
FinProceso

//By Whathson Rene Ordoñez Torres