Discussion :

[Pclever]

Bonjour,

Je dois écrire un programme Pascal qui :
-lit un entier n compris entre (1 et 25) et crée un tableau A de n entiers
- affiche le contenu de A
- determine le plus petit element de A et le place en derniere position(indice n) dans le tableau
SVP aidez-moi à résoudre ce problème.

Bon voici ce que j'ai fait :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
program Question_1;
 
var  A : array[1..25] of integer;
n, i, reserve, p, id:integer;
begin
 
     repeat
           writeln('Donner le nombre d`element de votre tableau');
           readln(n);
     Until(n in [1..25]);
       for i :=1 to n do
       begin
            writeln('saisir l`element N°',i);
            read(A[i]);
       end
      for i :=1 to 25 do
		 begin
               writeln('le contenu du tableau est:', A[i]);
                writeln;            
          end;
p:= A[1];
id:= 1;
             for i:=2 to n do
             begin
                  if A[i]<p then
                  begin
                       p:= A[i];
                       id:= i;
                  end
             end
reserve:= A[n];
A[n]:= A[id];
A[id]:= reserve;
 
end.

[anapurna]

Salut

bon on va essayer de comprendre ce que tu as ecrit

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
program Question_1;
 
var  A : array[1..25] of integer;
n, i, reserve, p, id:integer;
begin
 
     repeat
           writeln('Donner le nombre d`element de votre tableau');
           readln(n);
     Until(n in [1..25]); // j'usqu'ici tout vas bien tu fait une boucle jusqu'a que n soit dans l'intervale 1..25
 
       for i :=1 to n do
       begin
            writeln('saisir l`element N°',i);
            read(A[i]);
       end
       // ici tu saisi les differente valeur dans le tableau
      for i :=1 to 25 do
      begin
         writeln('le contenu du tableau est:', A[i]);
         writeln;            
      end;
       // ici tu affiche les differente valeur du tableau 
       // 1er souci tu n'as pas initialisé ton tableau donc tout les valeur superieur a ton indice n peuvent prendre n'importe quel valeur
 
       p  := A[1];
       id  := 1;
       for i:=2 to n do
       begin
           if A[i]<p then // ici on recherche la plus petite valeur
           begin
              p:= A[i]; 
              id:= i;
           end
        end
       // on intervertie la valeur en position par la valeur en position ID 
       reserve := A[n]; 
       A[n]     := A[id];
       A[id]    := reserve;
    end.

tout cela me parais pas mal au vu de l’énoncé.
ou se produit le soucis ?

[Roland Chastain]

C'est un détail mais à chaque fois que je vois ce genre de chose,

Code :

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

1
2
3
4
5
for i := 1 to n do
begin
  writeln('Saisir l''element n°', i);
  read(A[i]);
end;

j'ai mal pour la personne qui, à chaque essai de son programme, va saisir manuellement 25 valeurs.

Je propose donc une modification au moins temporaire :

Code :

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

1
2
3
4
5
6
7
Randomize;
for i := 1 to n do
begin
  writeln('Saisir l''element n°', i);
  //read(A[i]);
  A[i] := Random(1000); // pour un nombre de 0 à 999
end;

[droggo]

Bonjour,

Je propose donc une modification au moins temporaire :

Code :

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

1
2
3
4
5
6
7
Randomize;
for i := 1 to n do
begin
  writeln('Saisir l''element n°', i);
  //read(A[i]);
  A[i] := Random(1000); // pour un nombre de 0 à 999
end;

Ok, sans oublier de supprimer le writeln ...

[Pclever]

tout cela me parais pas mal au vu de l’énoncé.
ou se produit le soucis ?

Comment initialiser les valeurs du Tableau?

Lorsque je compile le programme, le compilateur me fait remarquer une erreur au niveau de la ligne 16( au niveau de l’affichage du contenu du tableau)... Je ne sais pourquoi

[Roland Chastain]

lorsque je compile le programme, le compilateur me fait remarquer une erreur au niveau de la ligne 16( au niveau de l’affichage du contenu du tableau)... Je ne sais pourquoi

Il manque un point-virgule à la fin de la ligne précédente.

Ok, sans oublier de supprimer le writeln ...

En effet.

[Pierre le Grand]

Ce bout de code à beau être correct du point de vue syntaxique et sémantique, il en demeure pas moins non recommandable.

Code :

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

1
2
3
4
5
 
     repeat
           writeln('Donner le nombre d`element de votre tableau');
           readln(n);
     Until(n in [1..25]);

Comment l'utilisateur qui n'a pas accès au code source pourrait connaître les limites permises? Il pourrait entrer 400, 300, 200 etc. et devenir très frustré de ne pas comprendre la nature du problème. Les limites, 1 et 25 devraient avoir été communiquées à l'utilisateur.

[droggo]

Bonjour,

Ce bout de code à beau être correct du point de vue syntaxique et sémantique, il en demeure pas moins non recommandable.

Code :

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

1
2
3
4
5
 
     repeat
           writeln('Donner le nombre d`element de votre tableau');
           readln(n);
     Until(n in [1..25]);

Comment l'utilisateur qui n'a pas accès au code source pourrait connaître les limites permises? Il pourrait entrer 400, 300, 200 etc. et devenir très frustré de ne pas comprendre la nature du problème. Les limites, 1 et 25 devraient avoir été communiquées à l'utilisateur.

C'est un fait, et ça devrait être un réflexe pour le programmeur.

[e-ric]

Comment l'utilisateur qui n'a pas accès au code source pourrait connaître les limites permises?

C'est tout l'intérêt de l'Open Source !

[Pclever]

Merci