suite de fibonacci
Page 1 sur 1
suite de fibonacci
ÉNONCÉ
Ecrire un programme qui détermine la n-ième valeur Un (n étant fourni en données) de la ″suite de Fibonacci″ définie comme suit :
U1=1
U2=1
Un= Un-1+Un-2 pour n>2
PASCAL
program suite;
uses wincrt;
var
u3,u1,u2,i,n:integer;
begin
repeat
writeln('saisir n');
readln(n);
until n>2;
u1:=1;
u2:=1;
for i:=3 to n do
begin
u3:=u1+u2;
u1:=u2;
u2:=u3;
end;
writeln('la n-ième valeur Un est = ',u3);
end.
Ecrire un programme qui détermine la n-ième valeur Un (n étant fourni en données) de la ″suite de Fibonacci″ définie comme suit :
U1=1
U2=1
Un= Un-1+Un-2 pour n>2
PASCAL
program suite;
uses wincrt;
var
u3,u1,u2,i,n:integer;
begin
repeat
writeln('saisir n');
readln(n);
until n>2;
u1:=1;
u2:=1;
for i:=3 to n do
begin
u3:=u1+u2;
u1:=u2;
u2:=u3;
end;
writeln('la n-ième valeur Un est = ',u3);
end.
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum