Discussion :

[fabman]

Bonjour, j'ai créé un programme simple permettant d'initialiser et d'afficher un vecteur de 50 éléments de façon à ce que chaque élément contienne son rang élevé à la puissance 2.

J'ai écrit le programme suivant sous turbopascal7 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
program puissance;
 
Var V array [1..50] of Integer;
Var K : Integer;
 
 Begin
       For K:=1 to 50 do
           Begin
           V[K]=K*K;
           write(V[K])
           End;
End.

La compilation fonctionne mais rien ne s'affiche (et le programme m'est inutile). Sauriez-vous d'où vient l'erreur ?

[droggo]

Hio,

En soi, le programme est ok.

Le problème est que tu n'as pas le temps de voir l'affichage.

Ajoute un ReadLn à la fin, juste avant le End.

De plus, en utilisant seulement un write comme tu le fais, les valeurs vont s'écrire les unes à la suite des autres, sans rien pour les séparer.
Autrement dit, ce sera absolument illisible.
WriteLn est mieux.

Et il est inutile de répéter le mot-clé Var.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
program puissance;
 
Var V array [1..50] of Integer;
    K : Integer;
 
Begin
  For K:=1 to 50 do
  Begin
    V[K]=K*K;
    WriteLn(V[K])
  End;
 
  ReadLn;
End.

Et apprends à indenter ton code, tu verras que c'est vraiment utile.

Tel qu'il est écrit, l'utilisation d'un tableau dans ce programme est totalement superflue. Pour la justifier, il faudrait par exemple créer des procédures ou fonctions qui permettent de remplir ce tableau d'une part, et de l'afficher d'autre part.

[fabman]

Merci beaucoup, j'apprend quelque chose de très utile ! Je programme en pascal depuis peu et j'ignorais totalement ça, mais quelle est la différence entre readln et read (entre writeln et write), c'est seulement une histoire de lisibilité ?
Finalement il est nécéssaire de toujours ajouter un readln avant la fin du programme lorsqu'on veut afficher quelque chose ?
Merci encore

[droggo]

Jio,

- Read et ReadLn : Read est très fortement déconseillé quand on lit des valeurs au clavier.
En dehors de ce problème, la différence principale est que ReadLn va lire jusqu'à réception d'un retour chariot (la touche "Enter" ou "Entrée"...).

- Write et WriteLn : WriteLn ajoute un saut de ligne, c'est à dire que la prochaine opération d'écriture s'effectuera sur la ligne suivante.

Code :

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

1
2
3
4
5
6
7
8
9
...
Write('hello ');
Write('World !');
 
WriteLn ; { pour aller à la ligne suivante }
WriteLn ; { pour sauter une ligne }
 
WriteLn('hello ');
WriteLn('World !');

donnera pour résultat:

Code :

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

1
2
3
4
hello World !
 
hello 
World !

- ReadLn à la fin du code n'est vraiment nécessaire que quand on exécute le programme depuis le système de développement (TP7).
Si on le lance depuis une console MSDOS, il n'est pas utile, mais ne gène pas, alors...

[Prof]

Bonjour.

Il me semble qu'il y a au moins deux erreurs dans ce programme :

1) Il manque un ":" dans la déclaration de la variable V.

Il faut écrire :

Code :

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

    Var V : array [1..50] of Integer;

2) La ligne "V[K]=K*K;" est incorrecte car en Pascal "=" est l'égalité ( elle sert dans les comparaisons ) alors qu'ici il faut une affectation ( une variable reçoit une valeur ).

Il faut écrire :

Code :

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

    V[K]:=K*K;

Je m'étonne que Turbo Pascal ait compilé ce programme sans signaler ces deux erreurs.

[droggo]

Hui,

Bonjour.

Il me semble qu'il y a au moins deux erreurs dans ce programme :

1) Il manque un ":" dans la déclaration de la variable V.

Il faut écrire :

Code :

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

    Var V : array [1..50] of Integer;

2) La ligne "V[K]=K*K;" est incorrecte car en Pascal "=" est l'égalité ( elle sert dans les comparaisons ) alors qu'ici il faut une affectation ( une variable reçoit une valeur ).

Il faut écrire :

Code :

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

    V[K]:=K*K;

Je m'étonne que Turbo Pascal ait compilé ce programme sans signaler ces deux erreurs.

Ça arrive très souvent, car le code posté ici, surtout quand il vient de TP, n'est pas issu d'un copier/coller habituel, mais d'une nouvelle frappe.

Une autre raison est que les membres, les nouveaux surtout, ne veulent pas avouer que leur programme ne compile pas.
Il sont nouveaux ici, et généralement débutant en programmation.
Excusons-les donc un peu.