Pascal/Turbo Pascal - Ayuda con esta serie por favor

   
Vista:

Ayuda con esta serie por favor

Publicado por Erick ecaleroriv97@gmail.com (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:

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 do
        Begin
        mult:=mult*i;
        result:=(exp(x*ln(i))/mult);
        readln;
   end;
   writeln('El resultado es ', result:3:2);
   readln;
end.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda con esta serie por favor

Publicado por ramon (39 intervenciones) el 03/08/2014 09:54:38
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
{Mira esto lo tuyo corregido}
 
Uses crt:
Var mult, i, x : Integer;
       result : Real;
Begin
   Clrscr;
   mult:=1;
   write('Ingrese el valor de x: ');
   readln(x);
   result := 0;
   i := 1;
   while i<4 do
        Begin
        mult:=mult*i;
        result:= result + (exp(x*ln(i))/mult);
        i := i + 1;
   end;
   writeln('El resultado es ', result:3:2);
   readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar