ضع التمرين لتجد الحل خلال ساعات بإذن الله

[RAM38]

ecrire un algorithme qui calcul l'expresion suivante

S= 1+(x/1!)+(x²/2!)+(x*3/3!)+..........+(x*n/n!)w


* تعني اس
w لاتعني اي شيء

[Roumaissa 30]

المشاركة الأصلية كتبت بواسطة RAM38

ecrire un algorithme qui calcul l'expresion suivante

S= 1+(x/1!)+(x²/2!)+(x*3/3!)+..........+(x*n/n!)w


* تعني اس
w لاتعني اي شيء

اخي تفضل هذا الحل و هو ليس صحيح مئة بالمئة و انا اعتذر لانني لم استخد الباسكال منذ حوالي سنة لكن بامكانك اخذ الفكرة العامة منه

program somme;
var
x,s: real; n,i: integer ;
fonction puiss(a:real , b: integer): real ;
var
i : integer ; p: real ;
begin
readln a,b;
p:= 1;
for i:= to b do
p:= p*a;
puiss:=p;
end;
fonction fact(a:int):int;
var
f:real ; i: integer;
begin
f:=1;
readln(a);
for i=1 to a do
f:= f*i ;
fact := f;
end;


begin /programme principale /
readln x, n ;
s:= 1;
for i=1 to n do
s= s+( puiss(x,i)/fact(i));

writeln(s);

end.