Tableau décroissant

Version imprimable

Tableau décroissant

Bonjour,

Code:

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.

29/05/2011, 20h40
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.

;)
29/05/2011, 23h21
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
30/05/2011, 19h30
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.

Fuseau horaire GMT +2. Il est actuellement 04h31.