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 :

• contribution positive, c'est-à-dire que la note de TP peut être rehaussée si la moyenne pondérée des examens est supérieure ou égale à 50 %
• non salvatrice, en ce sens que la note de TP sera la moyenne arithmétique entre la note de TP obtenue et la moyenne pondérée des examens si cette dernière est inférieure à 50 %

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