Scusate ancora. Volevo avere conferma se è lecita la generalizzazione del problema sopra proposto, con il seguente programma:
codice:
program EsponenzialeApprossimato(input,output);
var i,n : integer;
x : real;
function Potenza( x : real): real;
begin
if i=0
then Potenza:=1
else Potenza:=x*Potenza(i-1);
end;{ fine funzione Potenza }
function Fattoriale( i : integer): integer;
begin
if i=0
then Fattoriale:=1
else Fattoriale:=i*Fattoriale(i-1);
end;{ fine funzione Fattoriale }
function Esponenziale( x : real ):real;
var i : integer;
Somma : real;
begin
Somma:=0;
for i:=1 to n
do begin
Somma:=Somma+((Potenza(x))/(Fattoriale(i)));
readln;
end;
Esponenziale:=Somma;
readln;
end;{ fine function Esponenziale }
{ Corpo del programma }
begin
writeln('----------------------------- Dati di ingresso -------------------------------');
writeln;
write('Fornire il valore della variabile x : ');
readln(x);
writeln;
write('Fornire il valore della variabile n : ');
readln(n);
writeln;
Esponenziale(x);
writeln('Il valore di e(x) approssimato al termine di ordine', n ,'e'': ',Esponenziale(x));
readln;
end.
Grazie a tutti per la collaborazione.