Tengo este código que separa cifras en PSeInt. Lo que quiero hacer es que la función contaryextraercifras(n) retorne en la variable resultado cada una de las cifras y que pasen al procedimiento mostrarcifras para mostrarlo en pantalla.
Proceso Separarcifras_con_Subrocesos
Definir n, resultado Como Enteros;
Escribir "Ingrese un numero entero (puede ser positivo o negativo): ";
Leer n;
mostrarcifras(resultado);
FinProceso
SubProceso resultado <- contaryextraercifras(n)
Definir i, digito, pot, aux, cont, resultado Como Enteros;
cont <- trunc(logb10(abs(n)))+1;
aux <- abs(n);
Para i<-1 Hasta cont Con Paso 1 Hacer
pot <- 10^(cont-i);
digito <- trunc(aux/pot);
aux <- aux-digito*pot;
resultado <- digito;
FinPara
FinSubProceso
SubProceso mostrarcifras(resultado)
Escribir resultado," " Sin Bajar;
FinSubProceso
SubProceso Log10 <- Logb10 (valor)
Definir Log10 Como Real;
Log10 <- Ln(valor) / Ln(10);
FinSubProceso