Discussion :

[alix30002000]

Bonjour! Pouvez vous me donner un coup de main pour cette exercice. J'arrive à faire la fonction terme mais pour la fonction sinus je ne suis pas sure du tout.

Voila la fonction terme que j'ai faite

Code :

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

1
2
3
4
# let rec fact n = if n=0 then 1 else n* fact(n-1);;
val fact : int -> int = <fun>
# let terme x n = (-1.)**(float_of_int(n) -. 1.) *. (x**(2. *. float_of_int(n) -. 1.)) /. (float_of_int(fact (2 * n - 1)));;
val terme : float -> int -> float = <fun>

Et la fonction sinus si vous pouvez me la corriger ça serait sympa. Merci beaucoup

Code :

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

1
2
# let rec sinus x n = if n=1 then x else ( let sino = sinus (terme x n) (n-1) in (terme x n) +. sino);;
val sinus : float -> int -> float = <fun>

[gorgonite]

et cela ?

Code :

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

1
2
3
4
5
6
let rec sinus x n = 
   match n with
     1 -> x
    |_ -> let sino = sinus x (n-1) in 
            sino + terme x n
;;

[alix30002000]

Merci beaucoup