Discussion :

[Air-bin]

Bonjour à tous,

J'essaie de faire un programme en PERL et ce dernier me pose problème.

En effet, j'essaie que le programme puisse dire à l 'utilisateur si un caractère lu est avant un autre caractère ou après.

Prenons le cas du caractère 'n'.

J'ai tapé ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
my $Q;
print "Entrez une lettre\n";
$Q=<STDIN>;
if($Q eq 'n'){
	print "Cette lettre est 'n'\n";
}	
elsif($Q lt 'n'){
print "Cette lettre est avant n dans l'alphabet.\n";
}
else{
print "Cette lettre n'est pas avant n dans l'alphabet.\n";
}
system "pause";

N'importe quel que soit le caractère que je rentre le programme ecrit:

"Cette lettre est 'n'."


Je ne vois pas ou est mon erreur.
Pourriez vous m'aider svp?
Merci d'avance.

[Philou67430]

Je ne vois pas non plus ton erreur, puisque ton programme fonctionne.
(pour citer une programme, utilise la balise CODE ou l'icône ).

Sur quelle plateforme fonctionne-tu ?

[Air-bin]

Merci de votre réponse rapide.

J'utilise "Perl Command Line Interprete"
==>L'icone de raccourci est une boule bleu avec des graphes (dont une étoile me semble t-il) dedans celle ci.

Je suis sous windows 7 en terme d'OS. Je ne sais pas si cela peut avoir une influence. Je débute complètement dans le milieu de la programmation.

[djibril]

Rajoute un chomp comme ci-dessous :

Code :

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

chomp($Q=<STDIN>);

Il te permet d'enlever le retour chariot.

[Philou67430]

Exact, je me suis fait abuser par le fait que "a\n" est inférieur à "n" et que "o\n" est supérieur à "n", mais en tapant "n\n", il ne trouve effectivement pas que c'est "n"

[Air-bin]

Il me met toujours, si je rentre 'a' ou 'v', que c'est la lettre 'n'.

J'ai pas du comprendre ou 'chomper" la variable.

-Si je chompe sous la lecture de #$q je dois appuyer deux fois sur entrée pour que le programme lise mon caractère et l'associe à ma variable.

-Si je chompe en fin de programme, je dois appuyer deux fois sur entrée pour fermer mon programme.

Merci de votre aide, excusez moi de mon incompréhension.

[djibril]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
my $Q;
print "Entrez une lettre\n";
chomp( $Q = <STDIN> );
if ( $Q eq 'n' ) {
  print "Cette lettre est 'n'\n";
}
elsif ( $Q lt 'n' ) {
  print "Cette lettre est avant n dans l'alphabet.\n";
}
else {
  print "Cette lettre n'est pas avant n dans l'alphabet.\n";
}
system "pause";

[Air-bin]

Ah d'accord!
Il faut donc chomper l'ensemble de la lecture!

Merci beaucoup pour vos réponses encore.

[djibril]

tag résolu si c ok.

Merci

[Air-bin]

Je me permet de reposter dans celui_ci pour ne pas créer un nouveau post.

J'ai un programme qui doit me donner la moyenne de 10 notes entrées par l'utilisateur (un prof). Ainsi que donner le nombre de note supérieure à la moyenne.

J'avoue avoir du mal, à partir des tutoriels, à effectuer cette opération.

Pour cette dernière opération, je n'ai aucune idée de comment je pourrais faire, pour le tableau, mon programme ne s'exécute pas.Il y a surement une erreur. Je ne vois pas ou encore un fois.

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
my @tab;
my $moy;
my $nb=0;
print "Entrez une note\n";
$note=<STDIN>;
while($note>20){
    print "Entrez une note valide\n";
    $note=<stdin>;
}
$tab[10]=$note;
$nb=$nb+$note;
$moy=$nb/10;
print "La moyenne des 10 notes est: $moy.\n;
 
system "pause";

Merci d'avance de votre aide encore une fois!

[Philou67430]

Pour citer un programme, utilise la balise CODE ou l'icône et pas la balise QUOTE.

Pour ajouter une valeur dans un tableau (à la fin du tableau), il suffit d'utiliser la commande push:

Code :

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

push @notes, $note;

Le nombre d'élément dans un tableau peut se lire dans la conversion en scalaire d'un tableau :

Code :

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

$nb_note = scalar(@notes);

ou plus simplement :

Code :

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

$nb_note = @notes;

Pour parcourir les éléments d'un tableau, tu peux utiliser for ou foreach :

Code :

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

1
2
3
4
 
foreach my $note (@notes) {
  $somme += $somme + $note;
}

Avec tous ces éléments, tu devrais pouvoir écrire ton programme (et attention à la condition de ta boucle while, qui me semble inversée).

[Air-bin]

Ok je vais essayer avec ça!

Merci beaucoup.

[Air-bin]

Bonjour à tous, je reviens encore vers vous.

Je galère littéralement en PERL. C'est ma première année d'études informatiques, j'ai pris le wagon 3 semaines après les autres, et les TP sont compliqués pour moi à ce jour.

Voici ce que j'essaie de faire: Faire comprendre à mon programme que tant qu'une note rentrée par l'utilisateur est > 10, un compteur calcule le nombre de note > 10.
Sous forme de: Il y a X notes au dessus de la moyenne. (X étant un réel calculé à partir d'une variable mais pas une variable en soit.)

J'ai rajoutée ça à mon programme:

Code :

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

1
2
3
4
while ($note>=10){
$nbre_note=$nbre_note+1;
print "Il y a $nbre_note au dessus de la moyenne à cet instant.";
}

Sachant que:
-$note sont les notes rentrées entre 0 et 20 (compris).
-$nbre_note a eté déclarée au début comme initialement=0.

Mon problème:

Comment sortir de ma boucle car il m'affiche le print en boucle.

Dans mon programme, juste après ce tant que, un autre tant que prend place.

Merci d'avance de vos aides, je vais avoir besoin de vous toute la journée, car je vous avouerais qu'il me manque des réflexes n'ayant pas fait de pseudo-code avant.

[Air-bin]

J'ai réussi m'en sortir après 2h de dur labeur! ^_^

Cependant un problème demeure et la je ne comprend pas pourquoi ça ne fonctionne pas.

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
 
while($note>10){
	$nbre_note_moy=$nbre_note_moy+1;
	while($note>=0){
	print "Quelle est la matiere concernee?\n";
	$mat=<STDIN>;
	chomp($mat);
 
	if($mat eq 'algo'){
		if($note>$max_algo){
			$max_algo=$note;
		}
		if($note<$min_algo){
			$min_algo=$note;
		}
 
		$algorithmique[$i]=$note;
		$i++;
		$sta=$sta+$note;
#...(etc, ceci est un extrait)

Le problème porte sur le fait de m'afficher la note maximale et minimale entrée par l'utilisateur.

$max_algo est la note maximum dans la matière algo.
$min_algo est la note minimum dans la matière algo.

Cependant il m'affiche effectivement la note max mais rien en note mini.

Les 2 variables avaient à la base été initialisées à 0, donc le programme m'affichait constamment 0 pour le $min_algo.
J'ai changé et je ne les ai initialisée à aucune valeur particulière.

Mais maintenant il ne m'affiche plus du tout la valeur minimale.

Si vous avez un peu de temps à m'accorder je vous remercie d'avance.

[Philou67430]

Pour trouver la note maximale, tu dois initialiser la valeur de cette note maximale à 0 de sorte que toute note puisse être sélectionnée.
Pour trouver la note minimale, c'est tout le contraire, tu dois l'initialiser à la valeur maximale d'une note, soit 20, de sorte que toute note puisse être sélectionnée comme minimale.