1. Accueil
  2. Tous les snippets
  3. Snippets Delphi / Pascal
  4. Calcul d'une moyenne

Calcul d'une moyenne

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 578 fois - Téléchargée 35 fois

Commenter

Contenu du snippet

Cette fonction calcul la moyenne des chiffres d'un tableau...
Il faut faire passer un tableau de type "Double" en paramètre...

Source / Exemple : 


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;

Conclusion :


G pas trouvé une fonction déja existante dans Delphi,
elle doit surement exister...

A voir également

Ajouter un commentaire Commentaires
fabiin Messages postés 329 Date d'inscription mercredi 4 avril 2001 Statut Membre Dernière intervention 8 décembre 2009 6
7 mai 2003 à 15:16
ah oué ! merci :)
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 2
7 mai 2003 à 00:43
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.
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
6 mai 2003 à 19:52
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.pas
Mais, 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.
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (fabiin)