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.

[aymenet1]

il ya une faute de déclaration du nouvau type du tableau.
La faute est :

Code :

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

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

Il faut déclarer le nouveau type comme ça :

Code :

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

type v=array[1..50]of integer;

Je te conseille de partager ton programme en modules (procédures, fonctions)

[krachik]

Bonjour

il ya une faute de declaration du nouvau type du tableau
la faute est :
Var V array [1..50] of Integer;

ça été deja soulevé sauf qu'il ne demandais pas de creer un type
et pendant qu'on y est je pourrais ajouter aussi

Code :

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

1
2
3
 
Const nbElt=50;
Var V :array [1..nbElt] of Integer;

d'abord il faut saisir k

il faut savoir ce donne parle l'exercice

=aymenet1je te conseille de partager ton programme en modules (procedures , fonctions )

d'accord avec toi meme vu la taille du code pas tres utile mais c'est une bonne habitude à prendre
@+

[aymenet1]

je vous donne la resultat finale de ton programme ^^

Code :

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

1
2
3
4
5
6
7
8
9
10
11
program vecteur ;
uses wincrt ;
var t:array[1..50]of integer ;
var k:integer;
begin 
for k:=1 to 50 do 
begin
t[k]:=sqr(k);
write(t[k],' '); {on affiche les valeurs separés par un espace et en meme ligne c'est plus beau comme ça ^^ }
end;                
end.

[aymenet1]

Bonjour

Envoyé par aymenet1
d'abord il faut saisir k
il faut savoir ce donne parle l'exercice
@+

vous avez raison lol j'ai dis des choses tres stupides xD merci bcp j'ai pas bien lu l'exercice et j'ai fait ça aussi dans un devoir de programmation j'ai perdu 7 points dans le premier execices

[droggo]

Lio,

je vous donne la resultat finale de ton programme ^^

Code :

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

1
2
3
4
5
6
7
8
9
10
11
program vecteur ;
uses wincrt ;
var t:array[1..50]of integer ;
var k:integer;
begin 
for k:=1 to 50 do 
begin
t[k]:=sqr(k);
write(t[k],' '); {on affiche les valeurs separés par un espace et en meme ligne c'est plus beau comme ça ^^ }
end;                
end.

Pourquoi poster ce code ?

À part l'utilisation de sqr au lieu d'une multiplication, c'est le même que celui d'origine, en y ajoutant le défaut du manque de clarté dû à la non-indentation.