Section courante

A propos

Section administrative du site

MAXINTVALUE

Valeur entière maximal
Free Pascal Math

Syntaxe

Function MaxIntValue(const Data:Array of Integer):Integer;

Paramètres

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

Description

Cette fonction permet de renvoyer la plus grande valeur d'un tableau d'entier.

Exemple

Voici un exemple montrant l'utilisation de cette fonction :

  1. Program MaxIntValueSamples;
  2.  
  3. Uses Math;
  4.  
  5. Var
  6.  Array1:Array[0..1]of LongInt = (5,-18);
  7.  Array2:Array[0..4]of LongInt = (1,2,3,4,5);
  8.  Array3:Array[0..4]of LongInt = (5,4,3,2,1);
  9.  Array4:Array[0..6]of LongInt = (24,34,13,72,100,1,34);
  10.  
  11. BEGIN
  12.  WriteLn('MAXINTVALUE(5,-18)=',MaxIntValue(Array1));
  13.  WriteLn('MAXINTVALUE(1,2,3,4,5)=',MaxIntValue(Array2));
  14.  WriteLn('MAXINTVALUE(5,4,3,2,1)=',MaxIntValue(Array3));
  15.  WriteLn('MAXINTVALUE(24,34,13,72,100,1,34)=',MaxIntValue(Array4));
  16. END.

on obtiendra le résultat suivant :

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


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