Ecrire un programme qui calcule le nème terme de la suite S suivante :

S(0)=2
S(1)=3
S(2)=-2

S(n) = S(n-3) + ((-1)^n)*S(n-1)

Correction : langage Pascal
Par Ahmed Fessi

program suite;
uses wincrt; // a enlever si pascal n'est pas sur windows

function puiss (n:integer):integer; //calcule (-1)^n
begin
if n mod 2 = 0 then puiss:=1 else puiss:=-1;
end;

function S (n:integer):longint;
begin
if n=0 then S:=2
else if n=1 then S:=3
else if n=2 then S:=-2
else S:=S(n-3) + (puiss(n)) * S(n-1);
end;

var
n:integer;

begin
readln(n);
writeln(S(n));
end.