Les algorithmes d'approximation
2 participants
Page 1 sur 1
Les algorithmes d'approximation
salut tout le monde
Voici des méthodes pour calculer les constantes mathématiques Pi et e (l'exponentiel) :
*Pi=3,1415926535897932384626433832795... :
*e=2,7182818284590452353602874713527... :
Voici des méthodes pour calculer les constantes mathématiques Pi et e (l'exponentiel) :
*Pi=3,1415926535897932384626433832795... :
*e=2,7182818284590452353602874713527... :
Ilyes KHAILI- Messages : 24
Date d'inscription : 13/11/2008
Age : 34
Re: Les algorithmes d'approximation
Mais ou est le programme ? J'attends avec impatience
Hanafi- Messages : 106
Date d'inscription : 25/10/2008
exponentiel
ok voici la solution de la première formule de l' exponentiel
uses wincrt;
var
eps,e:real;
procedure exponentiel(var e:real;eps:real);
var
i:integer;
ep:real;
function fact(n:integer):integer;
begin
if n>1 then
fact:=n*fact(n-1)
else
fact:=n;
end;
begin
e:=1;
i:=0;
repeat
i:=i+1;
ep:=e;
e:=e+1/fact(i);
until e-ep<eps;
end;
begin
writeln('Donner epsilon : ');readln(eps);
exponentiel(e,eps);
writeln('e = ',e);
end.
uses wincrt;
var
eps,e:real;
procedure exponentiel(var e:real;eps:real);
var
i:integer;
ep:real;
function fact(n:integer):integer;
begin
if n>1 then
fact:=n*fact(n-1)
else
fact:=n;
end;
begin
e:=1;
i:=0;
repeat
i:=i+1;
ep:=e;
e:=e+1/fact(i);
until e-ep<eps;
end;
begin
writeln('Donner epsilon : ');readln(eps);
exponentiel(e,eps);
writeln('e = ',e);
end.
Ilyes KHAILI- Messages : 24
Date d'inscription : 13/11/2008
Age : 34
Re: Les algorithmes d'approximation
Merci pour le partage, Ilyes ! C'est très utile pour tout le monde, car bientôt le DC.
Hanafi- Messages : 106
Date d'inscription : 25/10/2008
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|