Ayuda con esta serie por favor
Publicado por Erick (6 intervenciones) el 02/08/2014 04:46:28
Necesito que alguien me ayude en esta serie, tengo que hacerla con la condición While pero no logro hacer que funcione, el ejercicio dice así:
Confeccione esta serie en pascal:
e^x=x^n/n!
El codigo que yo he hecho es el siguiente:
Confeccione esta serie en pascal:
e^x=x^n/n!
El codigo que yo he hecho es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Uses crt:Var mult, i, x : Integer;
result : Real;Begin
Clrscr;
mult:=1;
write('Ingrese el valor de x: ');
readln(x);
while i<4 doBegin
mult:=mult*i;
result:=(exp(x*ln(i))/mult);
readln;
end;
writeln('El resultado es ', result:3:2);
readln;
end.Valora esta pregunta
0