Discussion :

[Kain_D]

Bonjour à tous !

Voilà en tant que débutant je rencontre un problème d'affichage dans le terminal pour cette procédure, je ne sais pas à vrai dire comment y faire 'appel'.

J'ai installé Ocaml sous Windows Xp Pro, compile avec Scite

Voilà le programme :

Code :

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

1
2
3
4
5
6
7
8
9
10
let terme(n)=
  begin
  let res = ref1. in
    begin
     for i=1 to n do
       res:= !res/.2.+.1./. !res
     done;
     !res;
    end;
  end;;

Je l'enregistre sous terme.ml puis tape dans le terminal :

#use "terme.ml";;

et voilà ce que cela m'affiche :

val terme : int -> float = <fun>

De là je comprends que la procédure est ok mais comment afficher à l'écran la valeur d'un terme quelconque ?

Merci d'avance !

[asefthukom]

Code :

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

1
2
 
print_endline (string_of_float (term 10))

[Kain_D]

ok, j'avais tenté avec un print_float tout court mais avec ta solution proposée ça ne fonctionne pas plus, voilà ce que j'ai après entrée du code avant le 1er 'end' :

Code :

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

1
2
3
File "terme.ml", line 8, characters 6-10:
Warning S: this expression should have type unit.
val terme : int -> unit = <fun>

[Twinside]

Dans ce genre de cas, il peut être intéressant d'essayer d'appliquer un style plus fonctionnel à base de récursion :

Code :

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

1
2
3
4
5
6
 
let terme n =
    let rec aux v = function
        | 0 -> v
        | n -> aux (v /. 2.0 +. 1.0 /. v) (n - 1)
    in aux 1.0 n;;

La boucle for n'étant pas vraiment idiomatique en OCaml, son usage est tout de suite plus lourd et verbeux par rapport à une récursion.

[Kain_D]

Ok mais ça ne résout pas mon problème d'affichage de terme !!

[TropMDR]

Normalement dans le toplevel caml, tu as juste à taper "terme 10;;", et ça devrait marcher

Après , un truc comme

Code :

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

1
2
3
4
let () =
  while true do
    print_endline (string_of_float (terme (read_int ())))
  done

devrait te permettre d'entrer des entiers successivement et de voir le résultat à chaque fois