Discussion :

[nteek]

Bonjour,
Pourquoi ce programme ne marche-t-il pas avec ces valeurs :
s= 5000 k=2000 j=24
et comment résoudre le problème ?
Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
program e;
uses wincrt;
var i,j,k,s:integer;
begin
 write('Entrer une somme: ');
 readln(s);
 write('Entrer somme a ajouter chaque année puis nombre d''année: ');
 readln(k,j);
 for i:=1 to j do
 s:=s+k;
 writeln('La somme sera de : ',s);
 readln;
end.

[Roland Chastain]

Bonjour ! 24 fois 2000 plus 5000 égale 53000. Apparemment tu utilises un vieux compilateur, pour lequel le type integer est une variable de 16 bits, dont la valeur est comprise entre -32768 et 32767.

La solution est de changer le type de la variable. Il faut consulter l'aide de ton compilateur à la rubrique "Data types" (types de données).

[ALT]

Je confirme !
En l'absence de précision ("ça ne marche pas", on fait difficilement plus vague !), c'est l'explication la plus vraisemblable. Et la plus évidente !

[lagareg]

si tu ne dois pas changer de type utilise une condition ou une fonction qui teste si la valeur ne depasse pas

[Roland Chastain]

si tu ne dois pas changer de type utilise une condition ou une fonction qui teste si la valeur ne depasse pas

C'est intéressant. Quelque chose comme ça, alors ?

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 int16;
 
{$IFDEF VPASCAL}
  {&PMTYPE VIO}
  {&USE32-}
{$ENDIF}
 
var
  somme: integer;
  i: integer;
 
begin
  WriteLn(SizeOf(somme)); // 2 (octets)
 
  somme := 5000;
  for i := 1 to 24 do
    if somme + 2000 <= High(integer) then
    begin
      somme := somme + 2000;
      WriteLn(somme);
    end else
    begin
      WriteLn('Erreur');
      break;
    end;
 
  Write('Appuyez sur la touche Entr'#130'e... ');
  ReadLn;
end.

Mais cela suppose que le compilateur puisse vérifier la condition, c'est-à-dire qu'il utilise un type de donnée capable de représenter la valeur somme + 2000. Est-ce que ça fonctionnerait avec TPW 1.5, par exemple ?

[e-ric]

Sans avoir testé l'idée :

Code :

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

if somme + 2000 <= High(integer) then

elle me paraît saugrenue (je pense qu'elle doit lêtre aussi pour Roland) car on retombe sur le problème initial, en fait au premier dépassement, la valeur de somme + 2000 sera négative et le test sera donc toujours positif. Une solution, bancale, consisterait à faire le même test en convertissant en réel, mais bon ça vaut ce que ça vaut ...

Mais lagareg devrait préciser son idée...

Ce problème de type provient sans doute d'un vieux compilo, type TurboPascal, c'est ça ?

Je pense à deux solutions :
- Passer à FreePascal, un peu plus moderne quand même, les entiers sont sur 4 octets, ta somme passe largement.
- changer le type Integer -> LONGINT (selon le cours : http://cyberzoide.developpez.com/info/turbo/chap4.php3, ça fait longtemps que j'ai pas travaillé avec TP).

Ce fil de discussion met bien en évidence le soin avec lequel il faut définir les types et structures de données et les faiblesses des programmes en général.

@+

[ALT]

Il existe une directive de compilation ( (*$Q+*) )qui permet de détecter ces dépassements.
Avec un (*$i-*) & un (*$i+*) encadrant la somme, lié à un ioresult, on devrait pouvoir circonvenir le sinistre.
Exemple, à titre d'illustration :

Code :

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

1
2
3
4
5
6
(*$Q+*) (** peut aussi s'écrire {Q+} **)
...
(*$I-*)
somme:=65535+1; (** si on a un entier non signé sur 16 bits, on dépasse le maximum **)
if (ioresult<>0 then message_erreur;
(*$I+*)

Et hop ! si dépassement, pas de plantage, mais un message d'erreur qui prévient l'utilisateur, ce qui est beaucoup plus sympa.