s:=0; ds=0.01; k:=0.01; fonction unSurR(x) { return 1/(1+x*x); } pour i allant de 0 à 1000 { dM=ds*unSurR(s); av(k); td(dM); s:=s+ds; }