SUM |
Sommation |
|---|---|
| Delphi/Kylix/Lazarus | Math |
Syntaxe
| Function Sum(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 somme d'un tableau de nombre réel.
Exemple
Voici un exemple montrant l'utilisation de cette fonction :
- Program SumSamples;
-
- {$APPTYPE CONSOLE}
-
- Uses SysUtils,Math;
-
- Var
- Array1:Array[0..1]of Double = (5,-18);
- Array2:Array[0..1]of Double = (0.25,0.115);
- Array3:Array[0..4]of Double = (1,2,3,4,5);
- Array4:Array[0..4]of Double = (5,4,3,2,1);
- Array5:Array[0..6]of Double = (24,34,13,72,100,1,34);
-
- BEGIN
- WriteLn('Sum(5,-18)=',Sum(Array1):1:0);
- WriteLn('Sum(0.25,0.115)=',Sum(Array2):1:3);
- WriteLn('Sum(1,2,3,4,5)=',Sum(Array3):1:0);
- WriteLn('Sum(5,4,3,2,1)=',Sum(Array4):1:0);
- WriteLn('Sum(24,34,13,72,100,1,34)=',Sum(Array5):1:0);
- END.
on obtiendra le résultat suivant :
Sum(5,-18)=-13Sum(0.25,0.115)=0.365
Sum(1,2,3,4,5)=15
Sum(5,4,3,2,1)=15
Sum(24,34,13,72,100,1,34)=278
Voir également
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Dec
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Inc
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 - Mean
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 - Sqr
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Sqrt