Discussion :

[Jérém08]

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

[bredelet]

Oui c'est clair. Voilà ton code proprement tabulé (tout bon éditeur peut le faire pour toi):

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
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;
    end;
end;

J'ai rajouté les "end" qui manquaient, à toi de voir s'ils sont à la bonne place!

[Jérém08]

je te remercie vraiment bredelet c'est vrai que c'est plus lisible, cependant je ne comprend pas, il y'a 4 begin donc normalement 4 end.. et la il y en a beaucoup plus

[bredelet]

je te remercie vraiment bredelet c'est vrai que c'est plus lisible, cependant je ne comprend pas, il y'a 4 begin donc normalement 4 end.. et la il y en a beaucoup plus

J'avais pas fait gaffe, corrigé maintenant.

[Jérém08]

Encore merci pour ton aide, mais je vois toujours pas trop ou tu veux en venir étant donné que j'avais incorporé mais end dans la procédure, et donc avec les tiens en plus sa en fait beaucoup trop, cela veut dire que les miens sont à retirer? je suis débutant en pascal donc j'apprend encore

merci comme même et bonne nuit

[Jérém08]

C'est bon j'ai trouvé tu en avais mis deux en trop, j'arrive désormais à compiler et à le lancer mais me reste le problème de ranges over... donc cela vient d'un autre problème, tableau, programme principal, ou autre procédure.. c'est un mystère mais je vais m'y plonger dedans.

[bredelet]

Bon OK en regardant le code lui-même, j'ai quelques questions:

Quels sont les indices des tableaux Diz et Chif? Est-ce que N est forcément entre 0 et 99?

Qu'est-ce que ce code est sensé faire:

Code :

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

  Reste:=trunc((N-TRUNC(N))*100);

Je pense que N-trunc(N) est toujours 0.

[Jérém08]

Oula c'est assez compliqu, N est un entier compris jusque 1 million, c'est soit la partie entiére d'une somme entré, soit la partie décimale. pour les tableaux Diz comporte 16 cases de STRING avec une taille de 8 caractères max, et Chif comporte 9 case(1à 9) de string avec une taille de 16 caractère max('pour le nombre quatre-vingt-dix'.
Et ce code pour répondre à ta dernière question est censé convertir un montant tapé en chiffres et le transposé en lettre pour les libélé de chéques, avec les bonnes liaisons avec S ou non pour francs, avec la liaison ou non de 'et' et de 'de', avec le S de franc ou non... sa fais pas mal de temps que je suis sur ce programme je l'ai fini mais me reste ce soucis à régler.

En tout cas je te remerci de ton aide précieuse

[bredelet]

Puisque N est un entier, trunc(N) a la même valeur que N. Donc N-TRUNC(N) donne toujours zéro et Reste vaut toujours zéro.

Si N peut aller jusqu'à un million, alors Dizaine peut aller jusqu'à 100000. Donc il y a de bonnes chances que ce code plante:

Code :

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

Write(Diz[Dizaine]);

Puisque la taille de Diz est seulement 16.

À mon avis tu devrais tout reprendre du début en pseudo-code avant de te lancer dans Pascal.

[Jérém08]

NON NON je suis sur et certain de mon algo, il vient de mon Prof donc je doute pas une seconde, j'avais juste à transposer en pascal...
Concernant le tableau j'ai par exemple

type Dizaine = ARRAY [1..9] OF string[16];

ce qui signifie que j'ai 9 cases que je remplie dans la procédure initialiser comme pour exemple

Diz[1]:='dix';
Diz[9]:='quatre-vingt-dix' (ce qui représente bien la valeur 16 car 16 caractère pour string... car valeurs max des cases)

Donc l'erreur ne viens pas de la. J'ai plus à présent le problème de ranges over... j'ai remplacer une procédure et j'ai modifier tout les integer par des long int (utile pour les millions, j'arrangerais sa plus tard) cependant maintenant j'ai le problème error 215: dans les lignes

-(M étant un int déclaré dans la procédure, et N déclaré en paramètre, tout deux en longint)

N:= N-(M * 1000000);

-(ainsi qu'une erreur dans mon programme principale, en rapport avec la ligne cité plus haut puisque c'est l'appel de cette procédure qui est concerné)

million(Franc);

Pense tu savoir d'ou cela peut venir?

[droggo]

Cao,
La remarque

Puisque N est un entier, trunc(N) a la même valeur que N. Donc N-TRUNC(N) donne toujours zéro et Reste vaut toujours zéro.

Si N peut aller jusqu'à un million, alors Dizaine peut aller jusqu'à 100000. Donc il y a de bonnes chances que ce code plante:

Code :

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

Write(Diz[Dizaine]);

Puisque la taille de Diz est seulement 16.

À mon avis tu devrais tout reprendre du début en pseudo-code avant de te lancer dans Pascal.

est parfaitement valide

NON NON je suis sur et certain de mon algo, il vient de mon Prof donc je doute pas une seconde, j'avais juste à transposer en pascal...

Donc tu as mal traduit.

Donc l'erreur ne viens pas de la. J'ai plus à présent le problème de ranges over... j'ai remplacer une procédure et j'ai modifier tout les integer par des long int (utile pour les millions, j'arrangerais sa plus tard) cependant maintenant j'ai le problème error 215: dans les lignes

-(M étant un int déclaré dans la procédure, et N déclaré en paramètre, tout deux en longint)

N:= N-(M * 1000000);

-(ainsi qu'une erreur dans mon programme principale, en rapport avec la ligne cité plus haut puisque c'est l'appel de cette procédure qui est concerné)

million(Franc);

Pense tu savoir d'ou cela peut venir?

Quelles valeurs peut prendre M ?

Sinon, sans le reste du code, difficile de répondre.

[Jérém08]

Voila la procédure en question: (j'ai des espaces affiché ici cependant il ne se mettent pas quand je l'envoi, et je ne connais pas l'éditeur pour les couleurs veuillez m'en escuser)

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
procedure million(N: longint);         
var M :longint;
 
begin
 
if (N>=1000000) then
begin
 
   M := trunc(N/1000000);
 
   Millier(M);
 end ;
 
if (M>1) then WriteLn('Millions')
 
  else
      WriteLn('Million');
 
    N:= N-(M * 1000000);
 
  if (N>=1000)then
   begin
      M:= trunc(N/1000);
   if(M>1)then
     millier(M) ;
 
     write('mille');
      N:=N-(M*1000)
   end;
   if(N>=1)then
     millier(N)
 
 
end;

[droggo]

Bia,

Pour afficher le code correctement, il faut l'encadrer avec les balises [*code] [*/code], sans les étoiles qui ne servent ici qu'a les désactiver.

Vu que tu ne donnes pas tout le code...

ps : au passage, apprend à utiliser l'opérateur mod (modulo) pour avoir le reste, et l'opérateur div pour faire une division entière (ça t'évitera le trunc).

[bredelet]

NON NON je suis sur et certain de mon algo, il vient de mon Prof donc je doute pas une seconde, j'avais juste à transposer en pascal...

Même un prof peut se planter parfois. À toi d'être assez malin pour débusquer l'erreur.

Mais dans ce cas, il est assez clair que tu ne comprends pas suffisament Pascal pour traduire l'algorithme. Je te conseille deux choses:

1. Vas voir ton prof et pose-lui des questions
2. Ecris des petits programmes tout bêtes qui vont te servir plus tard, pour voir quel est le résultat

Par exemple ce programme:

Code :

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

1
2
3
4
5
6
7
8
9
10
Program essai1;
Var N, Dizaine, Reste : longint;
Begin
  N := 163;
  Dizaine:=trunc(N/10);
  Reste:=trunc((N-TRUNC(N))*100);
  WriteLn('N = ', N);
  WriteLn('Dizaine = ', Dizaine);
  WriteLn('Reste = ', Reste);
End.

Ça devrait te donner des idées.
Aussi, ne compte pas sur les membres du forum pour te résoudre tes devoirs on n'est pas là pour ça.

[Jérém08]

Je te remercie j'ai modifier pour toute mes procédure, Pour un exemple cela donne dans une procédure:

Code :

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

1
2
  Cent:=trunc(N/100);
  Reste:=(N-trunc(N/100)*100);

Me restent désormais deux petits soucis si tu peux m'indiquer comment puis je résoudre :

Code :

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

N:= N-(M * 1000000);

Cela m'indique qu'il y a une erreur sur la ligne ci dessus dans la procédure million.
Dernier soucis je compren pas comment je pourrais afficher
Chif[cent] si j'ai par exemple 4980... étant donné que mon tableau est limité, on a tous cette erreur et je vois pas comment je peux faire.

[droggo]

Cio,

Comme je l'ai déjà écrit, il faut aussi prendre l'habitude d'utiliser les fonctions ou opérateurs du langage.

Comme N est un entier, le code

Code :

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

1
2
  Cent:=trunc(N/100);
  Reste:=(N-trunc(N/100)*100);

est avantageusement remplacé par :

Code :

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

1
2
  Cent:=N div 100;
  Reste:=N mod 100;

Quant à ton problème avec

N:= N-(M * 1000000);

quand je t'ai demandé quelles valeurs peut prendre M, ce n'est pas pour le simple plaisir.

Je soupçonne très fortement un débordement de capacité.

Et enfin pour

Dernier soucis je compren pas comment je pourrais afficher
Chif[cent] si j'ai par exemple 4980... étant donné que mon tableau est limité, on a tous cette erreur et je vois pas comment je peux faire

Il faut que ton algorithme ne puisse pas te conduire à cette situation, OU que ton tableau soit fait en conséquence (ce 2ème choix n'étant pas la bonne solution, sans le moindre doute).

[Jérém08]

merci c'est gentil mais comment je dois faire alors pour que cela fonctionne.. parce que bon j'ai du mal à comprendre ce que tu me dis, je suis pas un expert en pascal aprés seulement quelques semaines, et il me reste un jour avant de lui remettre

merci

[droggo]

Hao,

Si tu arrives à cette situation, c'est que ton code ne travaille pas correctement (en admettant que l'algorithme su lequel il est basé soit correct).

Comme il y a peu de calculs : feuille + crayon, et tu l'exécutes manuellement ligne à ligne, en notant toutes les valeurs prises par les variables, ce qui te conduira à l'erreur (ou aux erreurs ).

[bredelet]

N:= N-(M * 1000000);

Cela m'indique qu'il y a une erreur sur la ligne ci dessus dans la procédure million.
Dernier soucis je compren pas comment je pourrais afficher
Chif[cent] si j'ai par exemple 4980... étant donné que mon tableau est limité, on a tous cette erreur et je vois pas comment je peux faire

Dépassement de capacité
=
quand le nombre est trop grand pour tenir dans l'espace mémoire prévu par l'ordinateur

Dans ce cas M * 1000000 est probablement trop grand, es-tu sûr que c'est bien ce que tu veux faire

Pour le tableau tu devrais vérifier la valeur de l'indice (cent) et si il n'est pas dans la plage de valeurs correcte, signaler une erreur-- je suppose que l'utilisateur a entré un nombre incorrect.

Bonne chance.

[Jérém08]

D'accord j'ai compris ce que tu as voulu me dire, il est possible qu'il y ai une erreur dans l'algo que le prof nous à donner mais du coup nous avons tous ce probléme au niveau du débordement, et du stockage dans la variable N.
N'ayant pas cours aujourd'hui et devant le rendre demain cela signifie que ça ne marchera pas.. c'est pas grave, car je vois pas du tout comment faire pour résoudre sa.

Encore merci à vous