[TP] Programmation de suite

Bonjour,

je débute, j'aurais besoin d'un peu d'aide svp..

la suite (Un) : est définie par U0 appartenant à [-1;1] .
De plus, pour tt entier naturel n,
Un+1 = racine ( (1/2) + (U²n/2) )

> je voudrais a l'aide de turbo pascal, écrire un programme qui, après avoir demandé les valeurs de U0 et Un, calcule Un.

merci beaucoup! :D

Bonne soirée

As-tu déjà écrire quelque chose ? Sinon, commence à programmer quelque chose et nous t'aiderons sur des points précis.

Bonjour,

Citation:

---

Envoyé par anyone

Bonjour,

je débute, j'aurais besoin d'un peu d'aide svp..

la suite (Un) : est définie par U0 appartenant à [-1;1] .
De plus, pour tt entier naturel n,
Un+1 = racine ( (1/2) + (U²n/2) )

> je voudrais a l'aide de turbo pascal, écrire un programme qui, après avoir demandé les valeurs de U0 et Un, calcule Un.

merci beaucoup! :D

Bonne soirée

---

Donc, U(n + 1) = racine((U²n + 1) / 2) et je crois que tu dois rentrer au programme le terme U0 et le rang n pour rechercher Un, sinon U0 et Un pour calculer le rang n ?

Merci de me répondre.

Rebonjour,

voici une petite aide :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Program Suite; Uses {Je me rappelle pas wincrt + unité math} Var u, u0, v, n, rang : integer;   Begin write('U0 = '); readln(u0); write('n = '); readln(n);   rang := 1; u := u0; while rang <= n do begin v := sqrt((sqr(u) + 1) / 2); rang := rang + 1; u := v; end;   writeln('Un = ', u); End.

---

PS : j'ai pas testé ce code !
J'espère t'avoir aider.

Kio,

Sur ce forum, on admet normalement que donner le code d'un exercice n'est pas aider le demandeur. :)