Discussion :

[mamislimen]

Bonjour,

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
program ex1;
uses wincrt;
var
p,n,i,j,max:integer;
a,b:array [1..20] of integer;
begin
  repeat
    read(n);
  until (n>=1) and (n<=20);
 
  for i := 1 to n do
    read(a[i]);
 
  for i := 1 to n do
    begin
      max:=a[1];
      p:=1;
      for i:=2 to n do
        begin
          if a[i]> max then
            max:=a[i];
          p:=i;
        end;
      a[p]:=0;
      b[i]:=max;
    end;
  for i:=1 to n do
    writeln(b[i]);
end.

Aidez-moi, j'ai une erreur je ne sais pas où.
Merci d'avance.

[Alcatîz]

Bonjour,

Les erreurs renvoyées par le compilateur sont pourtant explicites.
Voici l'explication de toutes les erreurs : http://pascal.developpez.com/faq/?pa...de-compilation.

Allez, un petit indice, il y a deux boucles for imbriquées qui utilisent le même compteur i.

[mamislimen]

L'erreurs n'est pas de compilateur
L'erreur c'est le résultat toujours le nombre max pas les nombre de ordre décroissant

[Modulpro]

Bonjour,

Comme te l'a dit Alcatîz, deux boucles for qui utilisent le même compteur sont imbriquées. Ainsi la seconde boucle modifie la valeur de i à l’intérieur de la première, d'où l'erreur. Ce problème peut être facilement résolu en utilisant deux variables distinctes pour tes boucles.
De plus, comme tes compteurs ne dépassent pas 255, il est possible de les déclarer en byte et non en integer, afin d'économiser de la mémoire.