function Moyenne(const Valeurs:array of Double):Extended; var a:integer; begin Result :=0; for a:=Low(Valeurs) to High(Valeurs) do Result := Result + Valeurs[a]; Result := Result / Length(Valeurs); end;
Juste pour info :{ Mean: Arithmetic average of values. (AVG): SUM / N }function Mean(const Data: array of Double): Extended;Précision : 1/- cette fonction est déclarée dans l'unité Math.pasMais, tu as raison, ce n'est pas la peine de lier l'unité toute entière quand la fonction est simple à reproduire.2/- il s'agit d'une moyenne arithmétique.
J'utiliserais plutôt :for a:=Low(Valeurs) to High(Valeurs) do ...Car sinon, si on passe en paramètre un tableau du style Array[3..7]Of doudle...plantage.
ah oué ! merci :)
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 872 279 membres 2 nouveaux aujourd'hui 16 148 membres club