Bonjour

Je vois qu'il y a un probleme dans ce programme

la valeur de e manque un 1

ps: ep c'est la valeur maximale d'erreur 

Merci

USES wincrt ;

var

ep : real ;

i : integer ;

FUNCTION fact(i : integer) : integer;

VAR j,s : integer ;

BEGIN

s:=1 ;

     for j:=1 to i do

     s:= s*j;

fact:=s ;

END;

function exp(ep : real) : real ;

var

s,s2: real ;

i : integer ;

begin

s:=0 ;

i:=0 ;

repeat

s2:=s ;

i:=i+1 ;

s:=1/fact(i)+s ;

until(s-s2)<=ep ;

exp:=s ;

end;

begin

ep:=1 ;

for i:=1 to 5 do

begin

ep:=ep/10 ;

writeln(exp(ep)) ;

end;

end.

-
Edité par Hamsofskii 29 février 2016 à 9:17:43