problème avec un tri de tableau et autre

**chupinours** · 29/10/2012, 12h35

Bonjour,
J'ai un problème avec mon programme, je dois afficher une médiane de notes et d'abord je dois donc trier mon tableau de notes.

Je précise que mon programme fonctionne sans la partie tri de tableau et médiane.

Je vois pas où sont les problèmes, à part la fonction ceil qui est une fonction en C que je connais, je l'ai déjà vu en perl, mais je suis plus sur.

I need help!

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
 use strict;     
    use warnings;
    my ($somme_note, $somme_note_carre, $noteMin, $noteMax, $note,$mediane,$mediane_1) = (0, 0, 20, 0);
    my @tab;
    print "Programme de calcul de la moyenne et ecart type de notes .\n";   
    print "\nEntrez le nombre de cours : ";         
    my $nombre_cours = <STDIN>;       
    for (my $i=1; $i<=$nombre_cours; $i++) 
    {
    print "\nEntrez les notes : ";
    $note = <STDIN>;             
    while($note < 0 || $note > 20 )
        {
        print "\nErreur!\nEntrez la note : ";
        $note = <STDIN>;                     
        }                                   
        $somme_note =  $somme_note +  $note;           
        $somme_note_carre =  $somme_note_carre +  $note* $note;             
        if ($note > $noteMax)           
        {
        $noteMax =  $note;
        }
        else
        {
        $noteMax =  $noteMax;
        }
        if ( $note < $noteMin)           
        {
        $noteMin =  $note;
        }
        else
        {
        $noteMin =  $noteMin;
        }
    $tab[$i] = ($note);
    } 
        my $moyenne =  $somme_note / $nombre_cours;         
        my $variance = $somme_note_carre/ $nombre_cours - $moyenne * $moyenne;
        my $ecart_type = sqrt ( $variance);       
        print "\nLa moyenne est : $moyenne \nL'ecart type est : $ecart_type\nNote maximale: $noteMax\nNote minimale: $noteMin\n";
        if ( $moyenne < 10)                         
        {
    print "Vous etes ajourne.\n";
        }   
        else                                 
        {
    print "Vous etes admis.\n";
    }
        if ( $moyenne >= 15)
        {
    print "Avec mention tres bien.\n";
    }
        if ( $moyenne <= 15 && $moyenne >= 12 )
        {
    print "Avec mention bien.\n";
    }
        print"\nRecapitulatif:\nVoici vos notes dans l'ordre croissant, votre moyenne et votre mediane!\n";
    #######TRI TABLEAU ORDRE CROISSANT
     my @tab_trie = sort{ $a <=> $b ) @tab;
 
    #####MEDIANE
    if ($nombre_cours % 2 == 0)   #pair
    {
        $mediane = ($tab[$nombre_cours / 2]+$tab[($nombre_cours / 2) - 1]) / 2;
        }
    else if($nombre_cours % 2 == 1)   #impair
        {
    $mediane = $nombre_cours/2;
        $mediane_1 = ceil($mediane);
        $mediane = $tab[$mediane_1];
        }
        for ( my $j = 1; $j <= $nombre_cours; $j++)
        {
        print"Votre note numero $j est : $tab[$j] \n";
        }
    print "Moyenne :$moyenne\n";
 
    <>;
<>;

**djibril** · 29/10/2012, 13h02

Bonjour,

Il existe des modules Perl qui peuvent vous calculer la médiane

.

**Lolo78** · 29/10/2012, 13h27

Pour trier numériquement un tableau:

@tableau_trie = sort {$a <=> $b} @tab_non_trie;

Je vois pas mal de problèmes, de raisonnements peu aboutis et de choses inutiles dans ton code. Je n'en citerai que quelques unes.

Envoyé par chupinours

Code :

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

1
2
3
4
5
6
7
8
9
 
        if ($note > $noteMax)           
        {
        $noteMax =  $note;
        }
        else
        {
        $noteMax =  $noteMax;
        }

à quoi sert la dernière affectation dans le else? Même question avec $noteMin.

Et d'ailleurs, si tu tries le tableau, pas besoin de maintenir $noteMax et $noteMin, il te suffira de prendre le premier et le dernier élément du tableau.

Tu testes si le nombre d'éléments est pair. Dans le cas contraire, tu vérifies s'il est impair. Est-ce bien utile?

Plus généralement, je séparerais plus clairement le programme en trois phases: la saisie des notes, les calculs, les affichages. Par exemple, ne pas mettre de calcul dans la partie saisie des notes.

Et pour les calculs de médiane, variance, écart-type, etc. il y a des modules Perl spécialisés dans les fonctions statistiques (à moins bien sûr que ce soit un devoir à la maison).

**chupinours** · 29/10/2012, 14h50

Bonjour,
pour le tri du tableau c'est réglé, j'avais mis une parenthèse au lieu d'une accolade....

Tu as raison , les 2 choses que tu as cité sont inutiles, je les ai enlevé ( et oui pour un entier soit un nombre et pair ou impair, j'ai pas réfléchis sur ce coup là

).

Pour la médiane je voudrais faire un algorithme, car c'est un TD et tout le monde fait comme ça, je suis débutant en Perl, et on utilise pas de module, ça ferait louche si j'en utiliserai un.

Mon algorithme pour la médiane est exacte car il fonctionne en C , le problème vient de la syntaxe je pense.
J'ai utilisé ceil en C ( qui permet d'arrondir à la valeur supérieure) mais ça ne marche pas en Perl.
Du coup j'ai utilisé int , le programme ne bug pas, mais la valeur de la médiane est fausse.

EDIT : j'ai trouvé, j'ai oublié 0.5 dans le int , et j'ai mis un moins à la place d'un + dans la partie paire.

le programme marche, mais je dois toujours avoir des problèmes de syntaxes..... j'ai mis en pièce jointe la console, le programme affiche ce qu'on veut mais il y'a un léger bug

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
    use strict;     
    use warnings;
    my ($somme_note, $somme_note_carre, $noteMin, $noteMax, $note,$mediane,$mediane_1) = (0, 0, 20, 0);
    my @tab;
    print "Programme de calcul de la moyenne et ecart type de notes .\n";   
    print "\nEntrez le nombre de cours : ";         
    my $nombre_cours = <STDIN>;       
    for (my $i=1; $i<=$nombre_cours; $i++) 
    {
    print "\nEntrez les notes : ";
    $note = <STDIN>;             
    while($note < 0 || $note > 20 )
        {
        print "\nErreur!\nEntrez la note : ";
        $note = <STDIN>;                     
        }                                   
        $somme_note =  $somme_note +  $note;           
        $somme_note_carre =  $somme_note_carre +  $note* $note;             
        if ($note > $noteMax)           
        {
        $noteMax =  $note;
        }
 
        if ( $note < $noteMin)           
        {
        $noteMin =  $note;
        }
 
    $tab[$i] = ($note);
    } 
        my $moyenne =  $somme_note / $nombre_cours;         
        my $variance = $somme_note_carre/ $nombre_cours - $moyenne * $moyenne;
        my $ecart_type = sqrt ( $variance);       
        print "\nLa moyenne est : $moyenne \nL'ecart type est : $ecart_type\nNote maximale: $noteMax\nNote minimale: $noteMin\n";
        if ( $moyenne < 10)                         
        {
    print "Vous etes ajourne.\n";
        }   
        else                                 
        {
    print "Vous etes admis.\n";
    }
        if ( $moyenne >= 15)
        {
    print "Avec mention tres bien.\n";
    }
        if ( $moyenne <= 15 && $moyenne >= 12 )
        {
    print "Avec mention bien.\n";
    }
        print"\nRecapitulatif:\nVoici vos notes dans l'ordre croissant, votre moyenne et votre mediane!\n";
 
   #####TRI TABLEAU ORDRE CROISSANT
     my @tab_trie = sort {$a <=> $b} @tab;
 
    ##MEDIANE
    if ($nombre_cours % 2 == 0)   #pair
    {
        $mediane = ($tab_trie[$nombre_cours / 2]+ $tab_trie[($nombre_cours / 2) - 1]) / 2;
        }
    else                         #impair
        {
    $mediane = $nombre_cours/2;
        $mediane_1 = int($mediane);
        $mediane = $tab_trie[$mediane_1];
        }
 
		for ( my $j = 1; $j <= $nombre_cours; $j++)
        {
        print"Votre note numero $j est : $tab_trie[$j] \n";
        }
    print "Moyenne :$moyenne\nMediane :$mediane";
 
<>;

**Lolo78** · 29/10/2012, 19h33

Essaie peut-être ceci:

Code :

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

1
2
3
4
5
6
7
my $nb = scalar @tab_trie; # nb : nombre d'éléments du tableau
if ($nb % 2 == 0)  {  #pair
     $mediane = ($tab_trie[$nb/2] + $tab_trie[$nb/2 - 1])/2;
}
else {
     $mediane = $tab_trie[int($nb/2)];
}

Avec:

Code :

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

@tab_trie = qw /1 2 3 4 5 6/;

j'obtiens une médiane de 3,5.

avec

Code :

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

@tab_trie = qw /1 2 3 4 5 /;

j'obtiens une médiane de 3.

Ce qui me paraît correct.

**chupinours** · 29/10/2012, 21h14

En fait j'ai mal formulé,
Mon programme marche nickel, mais j'ai des messages d'erreurs quand même.
J'aimerai juste savoir à quoi c'est du, j'ai mis en pièce jointe les erreurs sur mon message précédent.

**Lolo78** · 29/10/2012, 23h12

Je les au cherchées, mais pas trouvées.

**chupinours** · 30/10/2012, 00h23

ok, merci à tous,
sujet resolu

problème avec un tri de tableau et autre

Langage Perl

Discussions similaires

Partager

Partager