Section courante

A propos

Section administrative du site

SUMINT

Sommation d'entier
Delphi/Kylix/Lazarus Math

Syntaxe

Function SumInt(Const Data:Array of Integer):Integer;

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 entier.

Exemple

Voici un exemple montrant l'utilisation de cette fonction :

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

on obtiendra le résultat suivant :

SUMINT(5,-18)=-13
SUMINT(1,2,3,4,5)=15
SUMINT(5,4,3,2,1)=15
SUMINT(24,34,13,72,100,1,34)=278

Voir également

Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Sum
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - MaxIntValue
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - MinIntValue

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