Algorithme de suite

[Old Habits]

Bonjour j'ai un algorithme à créer avec U0=1 et Un+1 (cet n+1 là est en exponentiel ^^) = (Un+1)/(Un+2)
J'ai cherché, j'ai essayé mais je n'y arrive pas et c'est à faire pour lundi.
Pourriez-vous m'aider s'il vous plait

[critor]

Bonjour.


Et ton algorithme doit faire quoi?
Calculer Un pour n donné?

As-tu des contraintes d'écriture imposées?
Car sinon, voici l'algorithme tout bête par récurrence, c'est-à-dire qui s'auto-utilise lui-même.

L'algorithme prenant comme paramètre n (et non n+1), il y a un décalage à faire dans la formule de récurrence: il faut remplacer tous les "n" par des "n-1".
C'est d'ailleurs la même chose quand tu définis une suite sur ta calculatrice.


algorithme: calcul_U
données: n (nombre entier naturel)
résultat: valeur de Un (nombre)
variables: aucune
début
si n=0 alors
renvoie 1;
sinon
renvoie (calcul_U(n-1)+1)/(calcul_U(n-1)+2);
fin si
fin algorithme

[Old Habits]

Effectivement mon algorithme doit calculer Un pour un n donné et je n'ai pas de contrainte d'écriture. J'ai essayé d'entrer l'algorithme que vous m'avez écrit et mon algorithme tourne mais ne me calcule pas les valeurs. Voilà ce que j'ai inscrit sur ma calculatrice mais je n'arrive pas à entrer la donnée U0=1 correctement sans que la calculatrice ne me trouve une erreur de syntaxe...

Define LibPub algo2(n)=
Prgm
Local u
(u(n-1)+1)/(u(n-1)+2) - u(n)
If n=0 Then
Disp "Un=1"
Else
Disp "Un=", u(n)
EndIf
EndPrgm

Le problème c'est que si j'écris algo2(1) sur une page de calcul la calculatrice me trouve comme résultat : Un=(u(0)+1)/(u(0)+2)
Comment faire pour lui faire comprendre que u(0)=1 ?

Merci d'avance

[critor]

Quand tu as dit algorithme et devoir à rendre, je ne pensais pas que l'on te demandait la traduction sur calculatrice, mais l'algo sur le papier.
Sinon j'aurais répondu directement en langage Nspire.

Sinon en effet, un algorithme est une fonction et non un programme.
Il doit donc dans tous les cas retourner une valeur.

Define LibPub algo2(n)=
Func
If n=0 Then
return 1
Else
return (algo2(n-1)+1)/(algo2(n-1)+2)
EndIf
EndFunc

[Old Habits]

Merci beaucoup !