Discussion :

[theblinker]

bonjour,

je doit écrire un programme en turbo pascal et je suis un peu perdu!!

il faut écrire un programme permettant de calculer un, lorsque u0=a, n et a etant données par l'utilisateur


pour tout n superieur ou egal a 0 on a un+1=racine cubique de la somme des uk allant de k=0 à n

voilà merci d'avance pour votre aide

[krachik]

Bonjour
Tu es perdu à quel niveau ?
Maintenant que tu as l'algo lance toi
tu ne sais pas par ou commencer?
Personne ici ne le fera a ta place
@+

[Daft Aldor]

Si tu bloques deja la dessus ...

Utilise deux variables dans ta boucle:
U, pour stocker ton Un+1
S pour stocker la somme de tous les termes de la suite

et après dans ta boucle tu fait S=S+U puis U= racinCubik(U)

[darrylsite]

Le mieux est de créer une fonction racine_cubique. Ensuite utiliser la recursivité pour le calcul des un .

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
 
function un(n,a:integer):real;
 var i:integer;
      s:real;
begin
if n=0 then
 un:=a
else
 begin
 s:=0;
 for i:=n-1 downto 0 do
  s:=s+un(i,a);
 un:=racine_cubique(s);
 end;
end;

Pour la racine cubique, tu peux la coder en utilisant la methode de newton. C' est assez facile à coder.

Mais je ne le connais pas moi ?

C' est peut etre vrai mais google est là pour ça.