Discussion :

[www.rubis]

bonjour

j'ai un petit soucis et je voie pas comment faire pour trouver la valeur max
dans un tableau

voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
use strict;
use warnings;
 
my $valeur1 = "200";
my $valeur2 = "400";
my $valeur3 = "600";
my $valeur4 = "500";
 
my $chiffre  = 0;
my $nbelememt = 4;
 
my @tableau = (); 
 
 
push(@tableau, "$valeur1");
push(@tableau, "$valeur2");
push(@tableau, "$valeur3");
push(@tableau, "$valeur4");
 
 
print "@tableau\n";

comment faire sachant que les valeurs ne sont jamais les memes


merci d'avance pour vos reponses

[Philou67430]

Un module bien utile pour cela :

Code :

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

1
2
3
use List::Util qw(max);
 
print max(@tableau);

[mamax29]

Ou alors, tu peux faire cela à l'ancienne.
Tu parcours le tableau, et tu regarde la valeur. Si elle est supérieure à la valeur maximale précédemment trouvée, on a une nouvelle valeur max. etc.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
my $max = 0;
 
for (my $i=0; $i<scalar(@tableau); $i++)
{
		if ($max < $tableau[$i])
		{
			$max = $tableau[$i];
		}
}

[Philou67430]

Pour être sûr que l'algorithme proposé par mamax29 fonctionne quelles que soient les valeurs du tableau (y compris si elles sont toujours négatives), il est préférable d'initialiser $max avec $tableau[0]

[www.rubis]

Merci beaucoup pour vos reponce

je vais utiliser

use List::Util qw(max);

je ne connaissais pas cette fonction


Merci a Philou67430 & mamax29