Discussion :

[www.rubis]

bonjour

j'aimerais savoir quelle est la position de la valeur max et min dans un tableau

voici mon 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
23
24
25
26
27
28
29
30
31
32
 
use strict;
use warnings;
use List::Util qw(max min);
 
 
my $valeur1 = "1240";
my $valeur2 = "1320";
my $valeur3 = "2050";
my $valeur4 = "2356";
 
my $chiffre  = 0;
my ($nbelememt);
 
my @tableau = (); 
 
 
push(@tableau, "$valeur1");
push(@tableau, "$valeur2");
push(@tableau, "$valeur3");
push(@tableau, "$valeur4");
 
$nbelememt = scalar(@tableau); 
 
print "Valeur du tableau: @tableau\n";
print "Nombre d'enregistrement: $nbelememt\n";
 
print max (@tableau)."\n";
print min (@tableau)."\n";
 
print "Valeur Max:". max (@tableau)."\n";
print "Valeur Min:". min (@tableau)."\n";

Merci d'avance pour vos reponce

Bien cordialement

[Dimitry.e]

Code :

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

1
2
3
4
5
6
7
8
 
my ($indexMin,$indexMax) = (0,0);
my $i = 1;
while ($i < scalar(@t)) {
  $indexMax = $i if($t[$i] > $t[$indexMax] );
  $indexMin = $i if($t[$i] < $t[$indexMin] );
  ++$i;
}

[Philou67430]

Manque juste quelque $
Par ailleurs, on peut commencer la boucle avec $i = 1

[Dimitry.e]

Erratum.
Je corrige.

[www.rubis]

Merci pour vos reponse

j'ai du mal a comprendre mais cas marche

comment faire pour avoir toute les valeurs sauf $indexMax ???

my $i = 0;
while ($i < scalar(@heure_max)) {
$indexMax = $i if($heure_max[$i] > $heure_max[$indexMax] );
$indexMin = $i if($heure_max[$i] < $heure_max[$indexMin] );
++$i;
}

print "position valeur Max $indexMax\n";
print "position valeur Min $indexMin\n";

Merci davance pour vos reponse

Bien cordialement