Discussion :

[Louis-Guillaume Morand]

jai lhabitude, de compiler en toute sorte de langage, et le ; est de rigeur.
je sais qu'en pascal aussi, mais une amie qui passe son partiel demain(donc c urgent) vient de voir dans son cours une phrase qui l'intrigue et moi de meme.

Code :

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

1
2
 
if a<b then writeln(a)(ne pas mettre de ;)

pourquoi ne pas mettre de ; alors que cest une execution.

estce normal, ou sinon mexpliquer pourquoi. merci

[HRS]

parce que derrière, il y a un ELSE

par conséquent, ce qui précède le ELSE n'a pas de ;

tout comme

Code :

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

1
2
3
4
5
6
7
 
if condition then begin
   action1;
   action2;
   end
else
   ....

il n'y a pas de ; derrière le END

cela fait partie des incohérences du Pascal. A prendre avec philosophie.

[Louis-Guillaume Morand]

pas bete jaurais du y penser, mais en meme temps, le else ne semble pas obligatoire.
je pourrai demander un nom et si cest bob, alors ca lance une fonction speciale mais ca continue le programme quand meme apres.

enfin, bon, t'es programmateur en pascal alors je me range sous ton avis.

merci bcp

[M.Dlb]

Le bloc if...then...else est considéré comme une seule instruction, donc il ne doit pas y avoir de ; dedans !! Par contre, comme le else n'est pas obligatoire alors le bloc if...then est aussi une instruction qui doit se terminer par un ;
a+

[Louis-Guillaume Morand]

bah oui mais nan!! d'ou mon post. et en testant sur tubo pascal 7, il merde si je met le ; apres le if then

[Louis-Guillaume Morand]

voici un code qui ne marche pas, et je connais pas vraiment le pascal mais cela me semble correct quand meme

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
Var nombre, note, max, min, somme, moyenne : integer ;
 
      BEGIN
           Writeln (‘Combien de notes voulez-vous entrer ?’) ;
           Readln (nombre) ;
     REPEAT
          Writeln (‘Entrez une note’) ;
           Readln (note) ;
                  If      note >= max    then   max := note (*(avec ou sans;)*)
              Else if   note <= min    then   min := note;
           Somme := somme + note ;   
           Inc(i);
     UNTIL (i = nombre) ;
      Moyenne := somme / nombre ;
      Writeln( moyenne);
      Readln ;
      END.

bref il sort erreur 26 type mismatch sur la ligne du until

[Denis69]

voici un code qui ne marche pas, et je connais pas vraiment le pascal mais cela me semble correct quand meme

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
Var nombre, note, max, min, somme, moyenne : integer ;
 
      BEGIN
           Writeln (‘Combien de notes voulez-vous entrer ?’) ;
           Readln (nombre) ;
     REPEAT
          Writeln (‘Entrez une note’) ;
           Readln (note) ;
                  If      note >= max    then   max := note (*(avec ou sans;)*)
              Else if   note <= min    then   min := note;
           Somme := somme + note ;   
           Inc(i);
     UNTIL (i = nombre) ;
      Moyenne := somme / nombre ;
      Writeln( moyenne);
      Readln ;
      END.

bref il sort erreur 26 type mismatch sur la ligne du until

Il manque pas une initialisation de I quelque part ????

[M.Dlb]

Ben justement parce qu'il y a un else après le then !!
Si il n'y a pas de else, le bloc if..then se comporte comme une instruction, donc ; à la fin.
a+

[M.Dlb]

Il manque surtout la déclaration de i en tant qu'integer...
a+

[Denis69]

Il manque surtout la déclaration de i en tant qu'integer...
a+

Oui... Aussi !

[Louis-Guillaume Morand]

merde je lai oublié, mais non plus, la personne atesté aussi et le i mis en integer ne change rien. donc ntore incomprehension

[Denis69]

merde je lai oublié, mais non plus, la personne atesté aussi et le i mis en integer ne change rien. donc ntore incomprehension

Et l'initialisation ?

[HRS]

Outre l'absence de déclaration de i, le caractère bornant vos litteraux

‘Combien de notes voulez-vous entrer ?’

et

‘Entrez une note’

n'est pas un ' (sur la touche 4 en haut du clavier)
-------------
de plus remplacez

Moyenne := somme / nombre ;

par

Moyenne := somme div nombre ; (* division entière *)
-------------
enfin pour une exécution correcte, initialisez i, min, max

--------------------
PS : avertissement du modérateur

vous ne devez pas créer un nouveau message quand c'est la continuation
du précédent; j'ai verrouillé ce dernier pour éviter la dispersion.

[Louis-Guillaume Morand]

desolé pour le deuxieme post mais a lorigine, cest deux personne differentes et deux problemes differents meme si un partie du code ressemble, donc je lai posé a coté.

par contre, je vienx dapprendre que si on n'itialise pas les variables, ca peut bugger. merci

je pense en effet que lerreur venait la ligne moyanne a cause du type mismatch. je lui ferai parvenir. merci de sa part

[siocnarf]

D'accord avec tous les bons conseils ci-dessus.

Sauf que d'un strict point de vue mathématique, il me semble qu'il vaut mieux laisser la ligne

Code :

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

Moyenne := somme / nombre ;

Mais remplacer

Code :

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

Var nombre, note, max, min, somme, moyenne : integer ;

par

Code :

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

1
2
Var nombre, note, max, min, somme : integer ; 
    moyenne : real;

Car la moyenne d'entiers n'est pas forcément un entier. La moyenne de 2 et 5 est 2,5 et non 2.

[Sub0]

Salut!

Avec Writeln, tu envois sur l'écran, une ligne de caractère PLUS le code du retour chariot (#13+#10).
Le Readln qui le suit, intercepte ce retour chariot, comme si tu l'avais tapé au clavier...
Donc, tes Readln sont inefficaces! -> 2 solutions:

Code :

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

1
2
3
Writeln('blablabla');
Repeat Until(Keypressed); 
Readln;

Et l'autre solution (plus simple):

Code :

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

1
2
Write('blablabla'+#13);
Readln;

[Louis-Guillaume Morand]

merci sub0, japprend encore un truc. mais, je ne vois pas pourquoi il intercepte ce retour chariot. dans les autres langages, tu peux mettres ton \n dans la phrase que tu sors a lecran et ton getch suivant ne le prendra pas pour autant

[Sub0]

Salut!

Readln intercepte le retout chariot de Writeln. L'explication est toute simple: Writeln a pour fonction d'écrire une ligne complète de caractère, en passant le curseur à la ligne. Si les concepteurs de Pascal l'ont fait ainsi, je crois que c'est parce-qu'il existe aussi une autre fonction pour les autres cas -> Write - Avec Write('blablabla'+#13), le curseur sera en bout de ligne, mais ne sera pas à la ligne, c'est toute la différence! Difficile d'être plus clair! Avec d'autres languages, tu avais une option, et ben là c'est un peu pareil, ya 2 options avec la procédure WRITE: #13 et #13+#10. Quand à Readln, il passe la main dès que la touche Entrée est appuyée. Dans les autres cas, il existe la fonction Read, à+

WRITE(#13+#10) == WRITELN