اقتباس:
المشاركة الأصلية كتبت بواسطة 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.