comparer variables integer

**alex01pernot** · 03/05/2006, 01h44

petite question toute bête
comment fait-on pour comparer les valeurs de plusieurs variables (integer) et trouver ensuite la plus petite?
merci d'avance

**avogadro** · 03/05/2006, 02h28

ta toujours la manière de faire des if imbriqué...

**alex01pernot** · 03/05/2006, 02h56

ok merci j'y avait penser mais il y a pas plus court ?
parce que quand il faut tester plus de 10 nombre s'est long.
merci quand meme

**e-ric** · 03/05/2006, 08h39

Salut

Est-ce que tes variables sont indéepndantes ou sont-elles les éléments d'un même tableau ?
Dans le deuxième cas, une recherche de minimum te donnera une solution simple et concise (une boucle for et un if).

Cdlt

e-ric

**Tardiff Jean-François** · 03/05/2006, 10h47

Bonjour,

Cela pourait'il vous aider ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
function MinOfArray(A: array of Integer): Integer;
var
  I: Integer;
begin
  result := 0;
  for I := 1 To High(A) do begin
    if A[result] > A[I] then
      Result := I;
  end;
 end;

(Attention je vien de "taper" se code à la volé, je ne l'ais pas "débuger".