Hola gente soy nuevo, acudo a ustedes para solicitarle ayuda para pasar un seudo a C, espero me puedan ayuda!, . muchas gracias
Algoritmo Principal
Variables
NUMBER :entero
CARGA :caracter
Inicio
FINDEDATOS (CARGA)
Mientras CARGA hacer
OBTENER_BINARIO
PASAJE_DECIMAL (NUMBER)
Mostrar (‘El número Binario’, NUMBER, ‘equivale en número decimal a’, DECIMAL)
FINDEDATOS (CARGA)
Fmientras
Fin
Funciones y Procedimientos utilizados
Pre = {-}
Función POTENCIA_BASE2 (POT :entero):entero
Inicio
NUM ß 2
Si POT = 0 entonces
NUM ß 1
Sino
Mientras POT > 1 hacer
NUM ß 2 * NUM
POT ß POT – 1
Fmientras
Fsi
Devolver NUM
Fin
Pos = {Se devuelve el número 2 elevado a la potencia especificada en POT}
Variables Locales
NUM :entero
Pre = {La variable BIN debe tener un valor binario es decir sólo admite valores ceros o unos}
Función PASAJE_DECIMAL (BIN:entero):entero
Inicio
P_POT ß 0
AUX ß BIN
DIG_BIN ß 0
DECIMAL ß 0
Mientras AUX > 1 hacer
AUX ß AUX DIV 10
P_POT ß P_POT + 1
Fmientras
Mientras P_POT >= 0 hacer (TRANSFORMAR A PARA)
DIG_BIN ß BIN RESTO 10
DECIMAL ß DECIMAL + ( DIG_BIN * POTENCIA(P_POT) )
P_POT ß P_POT – 1
BIN ß BIN DIV 10
Fmientras
Devolver DECIMAL
Fin
Pos = {Se devuelve el valor Decimal equivalente al número binario que ingresó}
Variables Locales
AUX, P_POT, DIG_BIN, DECIMAL :entero
Pre = {-}
Procedimiento FINDEDATOS ( ref SIGUE :booleano )
Inicio
Repetir
Mostrar (‘¿Desea ingresar datos?s/n’)
Ingresar (RTA)
Hasta que (RTA= ‘s’) o (RTA = ‘n’)
Si RTA = ‘s’ entonces
SIGUE ß Verdadero
Sino
SIGUE ß Falso
Fsi
Fin
Pos = {}
Variables Locales
RTA :caracter
Pre = {-}
Función OBTENER_BINARIO
Inicio
Repetir
Mostrar (‘Ingrese un número del tipo binario, es decir sólo puede estar formado por ceros o unos’)
Ingresar (NUMBER)
AUX ß NUMBER
NO_BIN ß Falso
Repetir
DIGITO ß AUX RESTO 10
Si (DIGITO = 0) o (DIGITO = 1) entonces
AUX ß AUX DIV 10
Sino
NO_BIN ß Verdadero
Fsi
Hasta que (AUX = 0) o NO_BIN
Hasta que AUX = 0
Devolver (NUMBER)
Fin
Pos = {}
Variables Locales
AUX, NUMBER, DIGITO :entero
NO_BIN :booleano
