Discussion :

[alix30002000]

Bonsoir, je dois maintenant écrire cela mais je n'ai pas la moindre idée pour démarrer à part

Code :

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

let compte x e=

Comparaison avec la fonction sin d’Ocaml :
Écrire une fonction compte: float -> int qui prend en argument un flottant x et un flottant e  et qui renvoit le plus petit n tel que sinus x n diffère de sin x d’au plus e.

Merci beaucoup si vous pouvez me filer un coup de main

[millie]

Essaye de formaliser un peu l'exercice :

Il faut chercher le plus petit n tel que : |sin(nx)-sin(x)| < e
Il faut donc calculer l'expression |sin(nx)-sin(x)| pour tout n (entier naturel) en partant de n = 0 et en s'arrêtant uniquement lorsque |sin(nx)-sin(x)| < e

Ce n'est pas si difficile

[alix30002000]

Il faut faire une fonction récursive?

[millie]

Il faut faire une fonction récursive?

Ce n'est pas obligatoire. j'aurais naturellement tendance à ne pas le faire, mais il est tout à fait possible de le faire dans ce cas là, cela dépend de l'orientation de ton exercice.

Si tu utilises une fonction récursive, il faudra faire 2 fonctions. L'une prendra en plus le n courant et l'autre ne fera qu'à appeler que cette première fonction avec n=0 au début.

Code :

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

1
2
3
4
5
6
 
let rec fonction_aux x e n =
....
 
let fonction x e = 
  fonction_aux x e 0;;

[alix30002000]

Je pense pas qu'il faut faire cela car on dit dans l'énoncé qu'il faut mettre que deux arguments ( x et e) . Il faut faire comment sinon sans utiliser de fonction récursive? Merci pour ton aide

[millie]

Je pense pas qu'il faut faire cela car on dit dans l'énoncé qu'il faut mettre que deux arguments ( x et e) . Il faut faire comment sinon sans utiliser de fonction récursive? Merci pour ton aide

Avec une boucle while.

Mais personne ne te donnera le code tout fait
Je pense que tu as eu assez d'indication pour l'instant. Revient avec quelque chose et on pourra t'aider si ton code ne fonctionne pas

[alix30002000]

J'ai pas vu encore en cours le while.

[millie]

J'ai pas vu encore en cours le while.

Alors utilise des fonctions récursives.

[alix30002000]

Code :

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

  let rec compte x e n = if n=0 then e else  abs(sin(compte(x e n+1)*.x)-.sin(x))<e ;;

[millie]

Si tu fais tourner cette fonction, tu verras qu'elle s'arrête dès le début. De plus, je te rappelle que la fonction doit retourner "le plus petit n" (donc un n et non un e). De plus, la condition (if) ne doit pas s'effectuer sur n.

[alix30002000]

Je comprends pas. Je vois pas comment faire.

[benratti]

Je comprends pas. Je vois pas comment faire.

[...] en s'arrêtant uniquement lorsque |sin(nx)-sin(x)| < e

Pour la condition d'arrêt à placer dans if, cela doit bien t'aider.

[...] pour tout n (entier naturel) en partant de n = 0

Et ceci pour la récursion.