Section courante

A propos

Section administrative du site

MEAN

 Moyenne
Delphi/Kylix/Lazarus Math

Syntaxe

Function Mean(Const Data:Array of Double):Extended;

Paramètres

Nom Description
Data Ce paramètre permet d'indiquer le tableau de valeur à calculer

Description

Cette fonction permet de renvoyer la moyenne d'un tableau de nombre réel.

Exemple

Voici un exemple montrant l'utilisation de cette fonction :

  1. Program MeanSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4.      
  5. Uses SysUtils,Math;
  6.      
  7. Var
  8.  Array1:Array[0..1]of Double = (5,-18);
  9.  Array2:Array[0..1]of Double = (0.25,0.115);
  10.  Array3:Array[0..4]of Double = (1,2,3,4,5);
  11.  Array4:Array[0..4]of Double = (5,4,3,2,1);
  12.  Array5:Array[0..6]of Double = (24,34,13,72,100,1,34);
  13.      
  14. BEGIN
  15.  WriteLn('Mean(5,-18)=',Mean(Array1):1:0);
  16.  WriteLn('Mean(0.25,0.115)=',Mean(Array2):1:3);
  17.  WriteLn('Mean(1,2,3,4,5)=',Mean(Array3):1:0);
  18.  WriteLn('Mean(5,4,3,2,1)=',Mean(Array4):1:0);
  19.  WriteLn('Mean(24,34,13,72,100,1,34)=',Mean(Array5):1:0);
  20. END.

on obtiendra le résultat suivant :

Mean(5,-18)=-7
Mean(0.25,0.115)=0.183
Mean(1,2,3,4,5)=3
Mean(5,4,3,2,1)=3
Mean(24,34,13,72,100,1,34)=40

Voir également

Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Max
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Min
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - CompareValue

Dernière mise à jour : Mercredi, le 18 février 2015