-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Obtener una función exponencial, la cual está dada por:
e^x = 1+x/1! + x²/2! + x³/3! + ...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Proceso FuncionExponencial
ex <- 0;
factorial <- 0;
Escribir Sin Saltar "Ingresa el valor de x:";
Leer x;
Escribir Sin Saltar "Ingresa el valor de n:";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "PROCESO ", i;
Si i = 1 Entonces
ex <- 1;
factorial <- 1;
FinSi
factorial <- factorial*i;
ex <- ex+(x)^(i)/factorial;
Escribir "";
FinPara
Escribir "Valor de ex: ", ex;
Escribir "Valor de factorial: ", factorial;
FinProceso
ex <- 0;
factorial <- 0;
Escribir Sin Saltar "Ingresa el valor de x:";
Leer x;
Escribir Sin Saltar "Ingresa el valor de n:";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "PROCESO ", i;
Si i = 1 Entonces
ex <- 1;
factorial <- 1;
FinSi
factorial <- factorial*i;
ex <- ex+(x)^(i)/factorial;
Escribir "";
FinPara
Escribir "Valor de ex: ", ex;
Escribir "Valor de factorial: ", factorial;
FinProceso