suite de fibonacci

Aller en bas

suite de fibonacci

Message  Admin le Dim 1 Mai - 17:48

É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.


Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum