j'ai un exercice que j'ai pas trouve la solution merci de me repondre vite voila le probleme:
on se propose de determiner une valeur approche de Pi par la methode de wallis . definie par la formule suivante:
Pi/2 = 2/1 * 2/3 * 4/3 * 4/5 *6/5 * 6/7 * 8/7 * 8/9 * ...
FAIRE LA SPÉCIFICATION et ecrire un algorithme d'une fonction calcule qui utilise la formule ci-dessous pour déterminer une valeur approché de Pi à 10^(-6) prés.
Merci d'avantages repondez moi vite c'est urgent

uses wincrt;
const eps=1E-5;
var s,p:real;i,j:integer;
begin
s:=1;i:=2;j:=1;
repeat
p:=s;
if i >j then
j:=j+2
else
i:=i+2;
s:=s*(i/j);
until (abs((2*s)-(2*p))<eps);
writeln(2*s);
end.