Un prog qui détermine si c'est une année bissextile - Page 1

bsxtl(a)
Prgm
if mod(a,4)=0 and mod(a,400)>0 and mod(a,100)=0 or mod(a,4)>0 then
Text "Année normale"
else
if mod(a,4)=0 and mod(a,400)=0 and mod(a,100)=0 or mod(a,4)=0 and mod(a,400)>0 and mod(a,100)>0
Text "Année bissextile"
endif
endprgm

Y a-t-il un moyen plus simple que ce gros machin ? Merci d'avance...

bsxtl(a)
func
if mod(a,400)=0 or (mod(a,4)=0 and mod(a,100)/=0) then
Text "Année bissextile"
else
Text "Année normale"
endif endfunc

Ça ? (si mes souvenirs sur la définition d'une année bissextile sont corrects)
Tu peux même remplacer le "mod(a,4)=0" par "(a and 3)=0" mais je sais pas si ça change grand chose en basic.

rahhhh le temps d'éditer et il poste, lui !
(cela dit évidement, si tu ne dois qu'afficher le texte et ne faire aucun traitement, encore que je vois mal à quoi ça peut servir, le when est préferable)

Oui, ça marche.
Merci Vertyos
Et maintenant le transcrire en CAML...

[edit] : greetz à la bonne personne et cross post

C'est plutôt "le temps de poster mon message et Vertyos poste, lui".

bah... oué
bon par contre en CAML, heu... je garantis rien

# let bissextile = function
   a when (a mod 4) = 0 && ((a mod 100) <> 0 || (a mod 400) = 0) -> "bissextile"
 | _ -> "normale";;

[edit] manquait une parenthèse, là c'est bon (moche, mais correct )

houuu... c quoi cette horreur ??
Une année a est bissextile quand a est multiple de 4 ou multiple de 400, mais pas multiple de 100
donc la fonction est vite faite:
if (not mod(a, 4)) and (mod(a,100)) or (not mod(400)) then ...
^^ c ti pas plus bô ?
EDIT: Ouuuuh, ça alors.... Super cross-post
EDIT2: Gouré pr le dernier opérateur logique

alamasse GoldenCrystal
heu d'ailleurs il me semble qu'il y a une petite erreur : il faut que l'année soit
• soit multiple de 4 mais pas de 100
• soit multiple de 400

GoldenCrystal > j'ai pas tout compris à ta fonction ça doit être un multiple de 100 mais pas de 4

Flanker > Ba si a est multiple de 100, mod(a,100)=0, donc la condition est fausse. Sinon, si a est multiple de 4, not mod(a,4) = -1, et de même pour 400

double cross edit, il a corrigé (oula ^^)
[edit] et je cross en disant ça... bon ok j'abandonne :d

GoldenCrystal > T'as corrigé entre-temps

Vertyos>Par contre, pour CAML, je pensais à

let bsxtl = fun a -> (et une grosse ligne de if);;

Euh... when(mod(mod(année,100),4)=0,"Bisextile","normale"), ça marche pas ??

mod(1900,4) = 0 -> mod(mod(1900,100),4) = 0 -> "bissextile", alors que 1900 n'est pas bissextile

Pkoi l'année bissextile sauterais en début de siècle ??

pour la même raison qu'il y a une année bissextile tous les 4 ans : une année fait un peu plus que 365 jours, mais un peu moins que 365,25 (mais un peu plus que 365 + 1/4 - 1/100)

Lol napo : moi qui me demandait où je pouvais utiliser mod(), en voila en bel éxemple

N'est-ce pas ?

naPO :
Vertyos>Par contre, pour CAML, je pensais à
let bsxtl = fun a -> (et une grosse ligne de if);;

oui mais tant qu'à faire du CAML, utiliser les if je trouve ça dommage
(l'un comme l'autre, ça doit surement pas être des bonnes solutions, mais le caml c'est pas fait pour être performant )

Flanker>a, je savais pas.

en caML je passerai par le type bool pour avoir ca... (enfin sous SCILAB oui, sous caML peut etre)

(* remplacez 2002 par l'année que vous souhaitez *)
let a = 2002;;
(* on crée une fonction bisextile avec le numéro de l'année *)
let bis a = a ;;
(* on assigne les textes de résultat dans les variables correspondantes *)
let t = "année bisextile" ;;
let f = "année non bisextile" ;;
(* on assigne a mod le module de a et de 4 *)
let modu a = (a mod 4) ;;
(* on transforme cette valeur en booléen avec true si modu=0 *)
(* on ne peut pas appeller le module "mod" parce que c'est un opérateur *)
let verif = modu a = 0 ;;
(* si le module est nul, on affiche t, sinon, on affiche f *)
if verif = true then t else f ;;
(* programme alternatif

let a = 2002;;
let bis a = a ;;
let t = "année bisextile" ;;
let f = "année non bisextile" ;;
let modu a = (a mod 4) = 0 ;;
if modu = true then t else f ;;

mais dans ce cas, on doit impérativement relancer l'ensemble du programme,
alors que dans le cas précedent, on peut directement réassigner
"modu a", ou même passer a let verif=modu "valeur voulue" si on pose verif
avec le type fun*bool->bool *)

Ce programme est fonctionnel sur la version 0.73... donc il doit marcher partout (sauf sur la toute premiere...)

soit tu es un clone, soit tu n'as pas lu le topic

la vache, c'est quoi ce code

il est presque juste en plus (<=> complètement faux )

Ce sombre Darky Elle était facile, DSL utilise trop de ifs et de let à mon goût.

naPO :
Et maintenant le transcrire en CAML...

C'est une drôle d'idée d'écrire un programme dans un langage, pour ensuite le traduire dans un langage qui n'a rien à voir...

Vertyos :
oui mais tant qu'à faire du CAML, utiliser les if je trouve ça dommage

La programme ici n'est qu'impératif, alors...

(l'un comme l'autre, ça doit surement pas être des bonnes solutions, mais le caml c'est pas fait pour être performant )

!slap Vertyos :p
• Hippopotame slaps Vertyos :p around a bit with a large trout !




Enfin bref,

let bissextile a =
     (a mod 4 =0)
  && ( (a mod 100 !=0) or (a mod 400 =0) );;

Bah quoi, c'est vrai ce que je dis
Heu c'est && pour le "et", mais "or" pour le "ou" ? Curieux, je ne me rappellais pas de ça. Sinon ton truc ne fait que retourner un booleen (c'est la même chose que la 2eme ligne de ce que j'ai posté en #6)

sextile";;Bon alors if ... then "bissextile" else "pas bis

Heu c'est && pour le "et", mais "or" pour le "ou" ?

J'utilise or par habitude, mais pour faire homogène, on peut utiliser && pour "et" et || pour "ou".

On peut aussi utiliser & pour "et".

Par contre "and" est un mot réservé pour la structure "let x = ... and y = ..." et "|" est réservé pour le filtrage.


Bref, le plus homogène est "&&" et "||".