Programa en Pseudocódigo para generar la serie 2/1! + 3/2! + 5/3! + 7/4! + 11/5! + ...
Proceso serie_factorial
Repetir
leer n
Hasta Que n>0 & n = trunc(n)
s<-0
p<-1
t<-0
Mientras t<n Hacer
c<-0
Para i<-1 Hasta p Con Paso 1 Hacer
Si p % i = 0 Entonces
c<-c+1
FinSi
FinPara
Si c=2 Entonces
t<-t+1
f<-1
Para j<-1 Hasta t Con Paso 1 Hacer
f<-f*j
FinPara
s<-s+(p/f)
FinSi
p<-p+1
FinMientras
Escribir s
FinProceso
Repetir
leer n
Hasta Que n>0 & n = trunc(n)
s<-0
p<-1
t<-0
Mientras t<n Hacer
c<-0
Para i<-1 Hasta p Con Paso 1 Hacer
Si p % i = 0 Entonces
c<-c+1
FinSi
FinPara
Si c=2 Entonces
t<-t+1
f<-1
Para j<-1 Hasta t Con Paso 1 Hacer
f<-f*j
FinPara
s<-s+(p/f)
FinSi
p<-p+1
FinMientras
Escribir s
FinProceso
Comentarios