[Caml Light] If imbriqués...
Fermé
Arctara
Messages postés
526
Date d'inscription
samedi 9 août 2008
Statut
Membre
Dernière intervention
14 juillet 2012
-
9 sept. 2010 à 17:52
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 25 avril 2011 à 19:04
KX Messages postés 16668 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 17 mars 2023 - 25 avril 2011 à 19:04
A voir également:
- [Caml Light] If imbriqués...
- Light in the box problème - Forum Consommation et internet
- Light image resizer gratuit - Télécharger - Photo & Graphisme
- If exist ✓ - Forum Autoit / batch
- Vba if not ✓ - Forum Excel
- Light in the box avis ✓ - Forum Consommation et internet
2 réponses
Moyjin
Messages postés
126
Date d'inscription
mardi 19 janvier 2010
Statut
Membre
Dernière intervention
2 février 2011
10
Modifié par Moyjin le 9/09/2010 à 18:03
Modifié par Moyjin le 9/09/2010 à 18:03
il ne manquerai pas simplement un ; pour dire que ton if est fini?
4 if 2;.. a moins que je me trompe
4 if 2;.. a moins que je me trompe
KX
Messages postés
16668
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
17 mars 2023
3 004
25 avril 2011 à 19:04
25 avril 2011 à 19:04
Je pense Arctara a trouvé la solution depuis plusieurs mois maintenant, mais si ça intéresse quelqu'un voici une version sans erreur ;)
let poly a b c =
if (a = 0.)
then print_string ("Veuillez entrer un polynôme du second degré.")
else begin
print_string "Delta = b² - 4ac = ";
let delta = b*.b-.4.*.a*.c in
print_float(delta);
if (delta < 0.)
then begin
print_string " < 0";
print_newline ();
print_string "L'équation ax² + bx + c = 0 n'admet, avec les valeurs de a, b et c entrées, aucune solution réelle.";
end
else if (delta = 0.)
then begin
print_string " = 0";
print_newline ();
print_string "L'équation ax² + bx + c = 0 admet, avec les valeurs de a, b et c entrées, une seule solution réelle : ";
print_float (-.b/.(2.*.a));
end
else (* delta > 0. *)
begin
print_string " > 0";
print_newline ();
print_string "L'équation ax² + bx + c = 0 admet, avec les valeurs de a, b et c entrées, deux solutions réelles : ";
print_float ((-.b-.sqrt(delta))/.(2.*.a));
print_string " et ";
print_float ((-.b+.sqrt(delta))/.(2.*.a));
end;
end;
print_newline ();;
(* exemples *)
poly 0. 0. 0.;;
poly 1. (-2.) 1.;;
poly 1. (-3.) 2.;;
poly 1. 0. 1.;;
9 sept. 2010 à 18:48
25 avril 2011 à 14:56
25 avril 2011 à 17:52