FAQ PascalConsultez toutes les FAQ

Vous avez dû mettre un point-virgule là où le compilateur n'en attend pas : il ne faut pas en mettre devant un else. La structure d'un bloc if est :

1
2
3
4
5
  
if Condition = True then 
  begin 
  ... 
  end;

1
2
3
4
5
6
7
8
9
  
if Condition = True then 
  begin 
  ... 
  end 
else 
  begin 
  ... 
  end;

Cette erreur est le symptôme d'une situation de débordement. En effet, les nombres sont stockés en mémoire sur un certain nombre de bits. Or si, lors d'une multiplication, la taille du résultat dépasse le nombre de bits prévu, les bits de poids fort qui « débordent » sont tronqués. De fait, si le dernier bit de poids fort pouvant loger est un 1 et que le type utilisé accepte les nombres signés, alors votre nombre apparaîtra comme négatif, et ce, même si vous n'avez utilisé que des nombres positifs.

Cette situation peut se produire dans deux cas de figure, chacun ayant sa méthode de résolution :

• Vous êtes certain que le résultat n'est pas trop grand pour le type utilisé :
  

1
2
3
4
5
6
7
8
  
Var 
  a, b, c : Integer; 
Begin 
  a := 300; 
  b := 400; 
  c := (LongInt(a) * LongInt(b)) div (a + b);   { car a * b = 120000 > 32768, et pourtant c = 171 } 
End;

• Le résultat final est trop grand pour le type choisi :
  

1
2
3
4
5
6
7
8
  
Var 
  a, b, c : LongInt; 
Begin 
  a := 300; 
  b := 400; 
  c := a * b; 
End;

Une fois que votre programme est terminé, le système (ou l'EDI) reprend la main. Or, si votre programme est très rapide, vous n'aurez pas le temps de voir ce qu'il a affiché !

La solution est toute simple : ajouter une pause à la fin du programme :

1
2
3
4
  
  ... 
  ReadLn; 
End.