Bonsoir à tous donc comme indiqué dans le titre j'ai un soucis dans l'éxécution de mon programme, il se compile, il se lance, et lorsque je rentre une valeur celui ci plante et me met un message type 'run time error: 221 ranges ovverrun' (j'ai vu un post récent cependant c'est pas l'aide que je désire). J'ai denombreuses fonctions, divers tableau mais j'ai revérifié l'érreur ne peu provenir de la, J'ai un doute et j'aurais besoin de votre aide pour me dire si l'orde est le bon dans une de mes procédure (je pense avoir fais des erreur dans les begin et end)

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
procedure centaine(N:integer);
 
var Dizaine, Reste:integer;                                           
begin
 
Dizaine:=trunc(N/10);                                                
  Reste:=trunc((N-TRUNC(N))*100);
  if((Dizaine<>7) or (Dizaine<>9) or (Dizaine<>1)) then                
     begin
      Write(Diz[Dizaine]);                                             
      if((Dizaine<>8) and (Reste=1))then                               
        write('et', Chif[Reste])                                      
        else if(Reste<>0)then                                             
          write(Chif[Reste]);                                        
     end
   else if( (Dizaine=1) or (Dizaine=7) or (Dizaine=9) )then
           begin
           if((Reste>=1) and (Reste<=6))then
             begin
               Dizaine:=Dizaine-1;
               Reste:=Reste+10;
               if((Dizaine=6) and (Reste=11))then
                  write(Diz[Dizaine],'et',Chif[Reste])
               else write(Diz[Dizaine],Chif[Reste]);
              end
 
        else if(Reste<>0)then
                  write(Diz[Dizaine],Chif[Reste])
             else write(Diz[Dizaine]);
            end;
END;

Merci de votre aide