hola, resulta q he hecho un programa para calcular el nº e.
Bueno, x es el valor que introduces. El programa funciona bien si introduces valores como 0, 1, 2 o 3, pero en cuanto introduces numeros mas grandes te da un error algo asi:
Runtime error 201 at at 0x004010F2
0x004010F2
0x004011DC
0x00402475
el programa es este, y uso Free Pascal:
Program bloque1_1a;
uses Crt;
VAR
x: integer;
i: integer;
total: extended;
error: extended;
(****************************)
function factorial (t: integer): real;
{ Calcula el factorial del numero }
var i: integer;
tmp: real;
begin
tmp:=1.0;
for i:=1 to t do
begin
tmp:=tmp*i;
end;
factorial:=tmp;
end;
(***************************)
function potencia (t, u: integer): integer;
{ Calcula la potencia del numero }
VAR i: integer;
tmp: integer;
begin
tmp:=t;
case (u) of
0: tmp:=1;
1: tmp:=tmp;
else
for i:=2 to u do
begin
tmp:=tmp*t;
end;
end;
potencia:=tmp;
end;
(***************************)
begin
ClrScr;
repeat
writeln ('Escribir valor para elevar n£mero e:');
readln (x);
until (x>=0);
i:=0;
repeat
error:=0.0;
total:=total+(potencia (x,i)/factorial(i));
i:=i+1;
error:=total-exp(x);
until ((error>-0.001) and (error<0.001));
writeln ('e elevado a ', x, ' vale: ');
writeln (total);
writeln ('Valor real devuelto: ', exp(x));
write ('Error cometido: ');
writeln (error:9:4);
writeln ('T‚rminos utilizados: ', i);
writeln ('Aproximaci¢n de la funci¢n: ');
end.
Si alguien me ayuda ¡muchas gracias!
