Moyenne avec contribution positive non salvatrice

La commande ci-dessous (à recopier telle quelle dans Mathematica) permet de calculer sa moyenne pour un cours dont le barême est de :
30 % pour l'intra, 50 % pour le final et 20 % pour les TP (devoirs)
avec :

Recopiez tel quel le texte ci-dessous dans Mathematica:


notedecours[intra_,final_,tp_]:= Module[{exa,min,note1,note2},
exa = N[3/8 intra + 5/8 final];
min = Min[{exa,50}];
note1 = .3 intra + .5 final + .2 Max[{exa,tp}];
note2 = .3 intra + .5 final + .1 (exa + tp);
If[min >= 50,note1,note2]]

Testez la commande sur l'exemple suivant:
notedecours[40,45,100]
.
On trouve environ 48.8 % comme résultat, alors que le calcul habituel de la moyenne donnerait 54.5 % (.3 40 + .5 45 + .2 100).

Par contre, de bons examens contribuent à augmenter la moyenne des devoirs.
Par exemple, notedecours[80,72,40] donne 75 % comme note de cours au lieu de 68 %, même si la note de TP est faible!

Retour à ma page personnelle



©jmt 000829