sum( (-1)^(i+1) * x^(2*i) / (2*i-1)! , i=1..n )

var p,x,X,n,i,f,j,res;
p <- 1;
ecrire("Donner x: "); lire(x);
ecrire("Donner n: "); lire(n);
X <- x;
res <- 0;
i <- 1;
tant que i <= 2*n+1 faire
	// f = i!
	j <- 1;
	f <- 1;
	tant que j <= i faire
		f <- f*j;
		j <- j+1;
	fin tant que;

	res <- res + p*X/f;
	p <- p*(-1);
	X <- X*x*x;
	i <- i+2;
fin tant que;
ecrire( "l'approximation est: ",res);