Section courante

A propos

Section administrative du site

MEAN

Moyenne
Free Pascal Math

Syntaxe

Function mean(Const data:Array of Extended):float;
Function mean(Const data:PExtended;const N:LongInt):float;

Paramètres

Nom Description
data Ce paramètre permet d'indiquer le tableau de valeur à calculer
N Ce paramètre permet d'indiquer le nombre d'éléments dans le tableau.

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. Uses Math;
  4.  
  5. Var
  6.  Array1:Array[0..1]of Double = (5,-18);
  7.  Array2:Array[0..1]of Double = (0.25,0.115);
  8.  Array3:Array[0..4]of Double = (1,2,3,4,5);
  9.  Array4:Array[0..4]of Double = (5,4,3,2,1);
  10.  Array5:Array[0..6]of Double = (24,34,13,72,100,1,34);
  11.  
  12. BEGIN
  13.  WriteLn('Mean(5,-18)=',Mean(Array1):1:0);
  14.  WriteLn('Mean(0.25,0.115)=',Mean(Array2):1:3);
  15.  WriteLn('Mean(1,2,3,4,5)=',Mean(Array3):1:0);
  16.  WriteLn('Mean(5,4,3,2,1)=',Mean(Array4):1:0);
  17.  WriteLn('Mean(24,34,13,72,100,1,34)=',Mean(Array5):1:0);
  18. 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


Dernière mise à jour : Samedi, le 18 juillet 2015