Discussion :

[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!

Bonne soirée

[M.Dlb]

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

[sidahmed]

Bonjour,

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!

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.

[sidahmed]

Rebonjour,

voici une petite aide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[droggo]

Kio,

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