Suite avec limite !

Code:

P1 = 1
P(i) = P(i-2) x (i-1)/i x (i+1)/i


Code:


uses wincrt;

function Suite(DF: real):real;
var
 P,diff: real;
 i: integer;
begin
  i := 0;
  P := 1;
  diff := 999;
  writeln('P[',i,'] = ',P:4:4);

  repeat
    diff := P;
    i := i+2;
    P := P * (i-1)/i * (i+1)/i;
    diff := diff - P;
    writeln('P[',i:2,'] = ',P:4:4);
  until (abs(diff) <= DF);

  Suite := P;

end;


VAR
  S: real;

BEGIN

  Suite(0.0001);

END.


kchi a écrit:je besoins de série des exercices des algorithmes recurrents

Merci à tous ......