Perl

Problème affichage tableau de taille variable

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème affichage tableau de taille variable

chupitoman

Bonjour,
J'ai un problème avec mon programme en langage Perl.
Le but c'est de trouver la moyenne et ecart type de notes.
Enfin, je veux afficher les notes sur la console via un tableau.
C'est là qu'est le problème: quand je fais ma boucle pour afficher le tableau : la console n’affiche que la dernière note plusieurs fois.
Tout le programme marche à part le tableau , donc ligne 5 et ligne 66
Voyez vous où est le problème?

Cordialement

Code :

use strict;
use warnings;
my ($somme_note, $somme_note_carre, $noteMin, $noteMax, $note) = (0, 0, 20, 0);
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;
}
my @tab = $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";
for ( my$i=1; $i<=$nombre_cours; $i++)
{
print"@tab[$i] = $note\n";
}
<>;

Message édité par chupitoman le 27-10-2012 à 21:33:44

Publicité

ccp6128

Syntax error

1 - Tu déclares ton tableau à chaque tour de la boucle
2 - Ce n'est pas comme ca qu'on concatène un élément dans un tableau

=> Soit tu déclares un tableau de taille fixe après avoir entré le nombre de cours, soit tu déclares un tableau dynamique et tu push() les éléments dedans.

3 - Les index d'un tableau en perl commencent à 0, et se terminent à nombre de cours - 1 du coup.

J'ai pas regardé tes algos de calcul de note.

Message édité par ccp6128 le 28-10-2012 à 00:18:12

gilou

Modérateur
Modzilla

Citation :

Soit tu déclares un tableau de taille fixe après avoir entré le nombre de cours

:heink:
En Perl, il faudra que tu me montres ta notion de tableau de taille fixe. Dans un langage comme le C, C++, etc, je dis pas, mais en Perl, heu...
A+,

Message cité 1 fois

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

ccp6128

Syntax error

gilou a écrit :

Citation :

Soit tu déclares un tableau de taille fixe après avoir entré le nombre de cours

:heink:
En Perl, il faudra que tu me montres ta notion de tableau de taille fixe. Dans un langage comme le C, C++, etc, je dis pas, mais en Perl, heu...
A+,

Exact, abus de langage puisque pour émuler le comportement d'un tableau de taille fixe je suis obligé d'encapsuler les ajouts et les suppression d'élements pour garder la taille du tableau fixée.

On reformule : tu déclares un tableau de la taille du nombre de notes prédéclaré, et tu le parcours comme s'il s'agissait d'un tableau de taille fixe.

chupitoman

Merci tout les 2, ça marche j'ai bien le tableau.

Maintenant, je veux extraire la médiane de mes notes.
Pour cela ,je dois trier mon tableau dans l'ordre croissant, puis trouver la médiane (en fonction de nombre_note pair ou impair).
En fait à la base, j'ai un programme en C et je le traduit en perl.
Et ça ne marche pas, pouvez vous me dire mes erreurs? Déjà la fonction ceil en C existe t'elle en Perl? ( ceil permet d'arrondir à la valeur supérieure)

J'ai mis en comment ma partie sur médiane et tri de tableau.

Code :

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
# for (my $t=1; $t < $nombre_cours; $t++)
# {
# for(my $k=0; $k < $nombre_cours - 1; $k++)
# {
# if($tab[$k] > $tab[$k+1])
# {
# my $valeurtemporaire = $tab[$k];
# $tab[$k] = $tab[$k+1];
# $tab[$k+1] = $valeurtemporaire;
# }
# }
# }
######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\nMediane :$mediane";
<>;

ccp6128

Syntax error

Tu as la fonction sort() pour trier un tableau sans faire de boucle toute moche : http://docstore.mik.ua/orelly/perl [...] h04_15.htm

Pour l'arrondi, il y a plusieurs méthode, celle que j'utilise le plus souvent est :

$rounded = int ( $orig + 0.5 )

chupitoman

ça ne marche pas, je rajoute ça :

Code :

my @tab_trie = sort{ $a <=> $b ) @tab;

???? je comprend pas

gilou

Modérateur
Modzilla

Tu ne comprends pas quoi?
A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

chupitoman

En fait j'ai mis une parenthèse au lieu d'une accolade, désolé.

Il me reste plus qu'à trouver la médiane :

Code :

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";
<>;

chupitoman

C'est bon, j'ai compris mon erreur sur la médiane, j'ai oublié +0.5 dans le int etj'ai mis un - à la place d'un + dans la partie pair.

Code :

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";
}
#####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+ 0.5 );
$mediane = $tab_trie[$mediane_1];
}
print"\nRecapitulatif:\nVoici vos notes dans l'ordre croissant, votre moyenne et votre mediane!\n";
for ( my $j = 1; $j <= $nombre_cours; $j++)
{
print"Votre note numero $j est : $tab_trie[$j] \n";
}
print "Moyenne :$moyenne\nMediane :$mediane";
<>;

Merci en tout cas

Publicité

gilou

Modérateur
Modzilla

Ma version:

Code :

#!/usr/local/bin/perl
 
use strict;
use warnings;
use List::Util qw(sum max min);
###################################################################################
print "------------------------------------------------------------\n";
print "| Programme de calcul de la moyenne et ecart type de notes |\n";
print "------------------------------------------------------------\n";
my ($noteMax, $noteMin, $moyenne, $variance, $ecart_type, $mediane);
 
my $nbCours = getNombreDeCours();
print "Trop d'erreurs! Fin du programme." and exit(1) unless defined $nbCours;
 
my @notes;
foreach my $cour (1..$nbCours) {
  my $note = getNote("$cour/$nbCours" );
  print "Trop d'erreurs! Fin du programme." and exit(1) unless defined $note;
  push @notes, $note;
}
 
$noteMax = max(@notes);
$noteMin = min(@notes);
$moyenne = sum(@notes)/$nbCours;
$variance = (($nbCours * sum(map {$_** 2} @notes)) - (sum(@notes) ** 2))/($nbCours ** 2);
$ecart_type = sqrt($variance);
my @sorted = sort {$a <=> $b} @notes;
my $mid = int @sorted/2;
$mediane = (@sorted % 2)?$sorted[$mid]:($sorted[$mid-1] + $sorted[$mid])/2;
 
print "------------------------------------------------------------\n";
print "La moyenne est : $moyenne \n";
print "L'ecart type est : $ecart_type\n";
print "Note maximale: $noteMax\n";
print "Note minimale: $noteMin\n";
print "------------------------------------------------------------\n";
if ($moyenne < 10) { print "Vous etes ajourne.\n"; }
else { print "Vous etes admis";
       if ( $moyenne >= 15) { print " avec mention tres bien"; }
       elsif ( $moyenne < 15 && $moyenne >= 12 ) { print " avec mention bien"; }
       print ".\n";
}
print "------------------------------------------------------------\n";
print "Recapitulatif:\n";
print "Voici vos notes dans l'ordre croissant, votre moyenne et votre mediane!\n";
print ("Votre note numero ", $_+1, " est $sorted[$_]\n" ) foreach (0..$#sorted);
print "Moyenne: $moyenne\n";
print "Mediane: $mediane\n";
print "------------------------------------------------------------\n";
 
###################################################################################
use IO::Prompt::Hooked;
use constant MAX_ESSAIS => 5;
use Scalar::Util::Numeric qw(isnum isint);
###################################################################################
# Recupère un nombre entier supérieur ou égal à 1 a partir de l'input utilisateur #
# En sortie, input est valide ou pas défini                                       #
###################################################################################
sub getNombreDeCours {
  my $input = prompt( message  => 'Entrez le nombre de cours :',
              tries    => MAX_ESSAIS,
              validate => sub {
            my $raw = shift;
            $raw =~ s/^\s+|\s+$//g;
            return isint $raw && $raw >= 1;
              },
              error    => sub {
            my($raw, $tries) = @_;
            if (isnum $raw) { if (isint $raw) { return "Le nombre minimal de cours est 1. Il vous reste $tries essais.\n"; }
                      else            { return "Ce n'est pas un nombre de cours valide. Il vous reste $tries essais.\n"; }}
            else { return "Ce n'est pas un nombre de cours. Il vous reste $tries essais.\n"; }},
            );
  return $input;
}
 
###################################################################################
# Recupère un nombre entre 0 et 20 a partir de l'input utilisateur                #
# En sortie, input est valide ou pas défini                                       #
###################################################################################
sub getNote {
  my $pass = shift;
  my $input = prompt( message  => "Entrez la note ($pass):",
              tries    => MAX_ESSAIS,
              validate => sub {
            my $raw = shift;
            $raw =~ s/^\s+|\s+$//g;
            return isnum $raw && $raw >= 0 && $raw <= 20;
              },
              error    => sub {
            my($raw, $tries) = @_;
            if (isnum $raw) { if ($raw < 0)     { return "La note minimale est 0. Il vous reste $tries essais.\n"; }
                      elsif ($raw > 20) { return "La note maximale est 20. Il vous reste $tries essais.\n"; }}
            else { return "Ce n'est pas une note. Il vous reste $tries essais.\n"; }},
            );
  return $input;
}
###################################################################################

Noter l'utilisation du module IO::Prompt::Hooked afin de faire de l'user input assez blindé.

A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

FORUM HardWare.fr

Programmation

Perl

Problème affichage tableau de taille variable

Sujets relatifs
Problème Connection MySQL sur mon VPS	tri tableau associatif JavaScript
probleme lecture swf flash cs6	[Ada] Problème avec Pm_Read de la bibliothèque portmidi
Problème carrousel	Probleme compilation MacOSX
Problème avec formulaire php - HELP!	Problème d'affiche de flux Twittter
Résolution d'un algo[tableau en java]	[JAVA] Compter nombre de fois caractère dans un tableau
Plus de sujets relatifs à : Problème affichage tableau de taille variable

Page générée en 0.130 secondes