Discussion :

[Maxence45]

Bonjour , j'ai envie d'écrire un programme qui fait ceci :

si je tape par exemple 15 au clavier , il m'affiche les valeurs de 1 à 15 , si je tape 44 au clavier il m'affiche les valeurs de 1 à 44 , bref quelquechose de simple , on lit une valeur numérique au clavier et on affiche les valeurs de 1 à valeur tapée .

La structure du programme est donc la suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
program test;
 
var
x: REAL;
 
begin
readln(x);
MaProcedure;
 
end.

ALors ma 1ère question est : où je dois mettre le code de ma procédure , dois je la déclarer quelquepart dans le programme?

merci de vos éclairssissements .

[M.Dlb]

Juste avant le begin du corps principal de ton programme.

[Maxence45]

ok parfait , alors vois tu j'ai déclaré dans mon programme une variable x qui je vais taper au clavier , et ma procédure va prendre en compte cette variable x et écrire les nombres de 0 à x , ma seconde question est la suivante :

ma procédure doit prendre x en paramètre je suppose ? si oui comment mettre x en paramètre dans le nom de la procédure ?

par exemple je l'écris comme çà :

MaProcédure(var: x) ?

c'est surtout sur l'écriture du paramètre de la procédure que j'ai des difficultés en fait...

[thewho]

Bonjour,

Au vu de tes différentes questions, qui concernent toutes les bases du langage, il est plus que temps que tu lises sérieusement un cours/bouquin sur le pascal.

[Maxence45]

je connais mon cours mais c'est pas parce qu'on connait son cours qu'on sait faire ce que l'on veut...

[Maxence45]

je sais déjà à quoi ressemble mon programme il ne me reste plus que la procédure à écrire , j'ai trouvé l'algo , alors voici le programme est l'algo :

1.programme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
program test;
 
var
x: REAL;//variable qu'on va taper au clavier
 
//code de ma procédure ici que j'ai pas encore mis
 
begin
readln(x);
MaProcedure;
 
end

et voici l'algorithme de ma procédure que j'ai du mal à traduire en pascal :

Si x = valeur tapée au clavier
j'écris x
je décrémente x

ce que je ne sais pas coder c'est "Si x = valeur tapée au clavier" , c'est tout...

[Maxence45]

voilà mon code final mais il ne marche pas , j'ai volontairement utilisé une procédure pour me familiariser avec :

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
 
program test;
 
var
x: REAL;//variable qu'on va taper au clavier
 
Procedure MaProcedure
begin
if(y = x)
write(y);
y := y-1
end;
 
begin
readln(x);
MaProcedure;
 
end.

[Maxence45]

çà fait des heures que je suis dessus donc ya aucune mauvaise volonté , si quelqu'un pouvait m'aider autrement qu'en me disant de lire mon cours çà m'aiderait mieux

[Haywire]

Salut,

c'est normal que ça ne marche pas:

Code :

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

1
2
3
4
5
6
7
 
Procedure MaProcedure
begin
if(y = x) // tu ne declare nulle part de variable y...
write(y); // mais meme si tu l'avais declaré, tu l'ecris
y := y-1 // puis tu diminues sa valeur de 1, et puis ???
end;

si on entrait 50, ca afficherait 50 puis ca mettrait y a 49 et puis c'est tout.

voici ce qu'il faut faire:

pour i de 1 à x faire
ecrire i;

et c'est tout !
Si tu veux les ecrire en partant du nombre entré tu fais:
pour i de x à 1 faire
ecrire i;

voici comment inserer ta procedure dans ton programme pascal, comme la version pascal est de la pure traduction de l'algo je te l'ai deja traduite:

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
 
program machin;
 
procedure afficherNombres (const x: integer);
var i:integer;
begin
   for i:= 1 to x do
      writeln(x);
end;
 
var x:integer;
 
begin
   readln(x);
   afficherNombres(x);
end;
end.

[Maxence45]

merci beaucoup , mais ton programme ne fait pas ce que je veux lol , si je tape 16 il m'affiche 16 fois 16 , moi je veux qu'il m'affiche 16 , 15 , 14...jusque 0

[Maxence45]

j'ai légèrement modifié ( un iota ton programme ) et là si je tape n'importe quel nombre et que je tape sur entrée il revient au prompt c'est curieux :

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
program machin;
 
procedure afficherNombres (const x: integer);
var i:integer;
begin
   for i:= x to 1 do
      writeln(x);
end;
 
var x:integer;
 
begin
   readln(x);
   afficherNombres(x);
end.

[Haywire]

oups excuse moi j'ai fais une erreur dans mon code, j'ai mis writeln(x) au lieu de writeln(i). C'est pour ça qu'il affiche toujours la meme chose.

Bon si tu veux que les chiffres s'affiche du plus grand au plus petit il faut mettre "downto" au lieu de "to" dans le for.

Et pour eviter que la fenetre se ferme apres execution, ajouter un readln a la fin.

Tout ça corrigé donne donc ceci:

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
 
program machin;
 
procedure afficherNombres (const x: integer);
var i:integer;
begin
   for i:= x downto 0 do
      writeln(i);
end;
 
var x:integer;
 
begin
   readln(x);
   afficherNombres(x);
   readln;
end;
end.

[Maxence45]

Le programme marche parfaitement et j'ai globalement compris sa structure , je reposerai une petite question demain sur le code si çà t'ennuit pas . J'ai un cours mais il explique rien dedans donc je galère un peu , merci bcp à demain .

[Haywire]

Au fait je n'avais pas executé le programme et je viens de me rendre compte que le "end;" avant le "end." doit être enlevé.

Maintenant j'ai vu sur le forum qu'au depart tu voulais afficher l'alphabet.
Tu peux alors modifier le programme de cette façon:

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
 
program machin;
 
procedure afficherAlpha;
var i: char;
begin
   for i:= 'a' to 'z' do
      writeln(i);
end;
 
var x:integer;
 
begin
   afficherAlpha;
   readln;
end.

[Maxence45]

Bonjour , alors voici ma petite question :

dans le programme qui m'affiche les nombres , tu déclares la procédure comme çà :

Code :

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

procedure afficherNombres (const x: integer)

SI j'ai bien compris elle a qu'un seul paramètre , et ce paramètre est en fait la variable que la procédure utilise , mais tu l'as déclaré comme une constante j'ai l'impression , "const x" , au lieu de dire "var x" , est ce normal ?

merci

[Haywire]

salut,

j'ai mis const pour empecher qu'on modifie sa valeur dans le corps de la procedure. Ici comme il n'y a que 2 lignes de code ce n'est pas très important mais c'est toujours bien de prendre l'habitude de mettre const quand on ne veut pas que la valeur de la variable puisse être modifié dans la procédure.

[Maxence45]

merci pour toutes tes précisions .

[inessou]

slt quesque vs voulez dire par le terme code!!!!!!!!!!!!

[Ultima]

slt quesque vs voulez dire par le terme code!!!!!!!!!!!!

Bonjour,
Code, c’est le diminutif de code source,
Le code source est ce que tu écris dans ton éditeur de texte.
Par abus de langage, on dit aussi programme. En réalité le programme est ce qu’on obtient après compilation du code source.
Deux lignes de code = deux lignes d'un texte qui pourrait être interprété par le compilateur ou l’interpréteur de code.