Discussion :

[coolam]

Bonsoir,

Je demande votre aide car je rencontre un soucis avec la fonction Trunc() permettant d'obtenir la partie entière d'un real.

Code :

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

1
2
 
  euro := Trunc(somme);

La somme étant saisie par l'utilisateur, si elle est (exemple) 1000,25 aucun soucis, par contre si elle dispose de plus de chiffres, le programme plante et me renvoie l'erreur :
'ranges overrun'

Merci d'avance pour votre aide.

[Roland Chastain]

Bonjour !

Quel est le compilateur utilisé ?

J'ai essayé en vain de reproduire l'erreur en question. Tout ce que j'arrive à obtenir (avec Free Pascal 3.0.0), c'est le message "Invalid floating point operation", et non pas "Ranges overrun".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
uses
  sysutils;
 
var
  euro: integer;
  somme: real;
 
begin
  //ReadLn(somme);
  somme := 10000000000000000000000000000000000;
  euro := Trunc(somme);
end.

Autrement "overrun" veut dire dépassement. Ce dépassement semble se produire lors de l'appel de la function Trunc(), ou lors de l'assignation du résultat à la variable euro, je ne sais pas trop.

[Roland Chastain]

Voici une façon possible de gérer ce problème.

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
uses
  sysutils;
 
var
  euro: integer;
  somme: real;
  ok: boolean;
 
begin
  repeat
    Write('Veuillez saisir un nombre : ');
    ok := TRUE;
    try
      ReadLn(somme);
      euro := Trunc(somme);
    except
      on Exception: EInvalidOp do
      begin
        WriteLn('Le nombre est trop grand. Recommencez !');
        ok := FALSE;
      end;
    end;
  until ok;
end.

[coolam]

Merci mais justement je souhaite pouvoir entrer ce genre de nombre à rallonge.

Je suis avec FPS0.6.4a, ce n'est pas la bonne version ?

[Roland Chastain]

Merci mais justement je souhaite pouvoir entrer ce genre de nombre à rallonge.

Si le nombre dépasse la capacité du type utilisé pour le représenter, ça ne peut pas fonctionner.

Je suis avec FPS0.6.4a, ce n'est pas la bonne version ?

Ah oui, je vois.

http://pascal.developpez.com/telecha...il/id/2816/FPS

Cet éditeur est livré avec une version de FPC un peu ancienne, ce qui explique la différence entre les messages obtenus. Passer à une version plus récente est à envisager, mais ça ne résoudra pas votre problème.

[Roland Chastain]

Autre option, utiliser une bibliothèque de ce genre :

https://github.com/benibela/bigdecimalmath

[coolam]

Tu veux dire que dans un integer, je ne peux pas mettre un nombre plus grand que 55555 par exemple ?

[Roland Chastain]

Tu veux dire que dans un integer, je ne peux pas mettre un nombre plus grand que 55555 par exemple ?

Le type integer ou disons plutôt longint est fait pour représenter un nombre entier compris entre -2147483648 et 2147483647.

http://freepascal.org/docs-html/ref/refsu5.html

Chez moi le programme suivant s'exécute sans erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
uses
  sysutils;
 
var
  euro: longint;
  somme: real;
 
begin
  somme := 2147483647;
  euro := Trunc(somme);
end.

Mais remarque que la fonction Trunc() renvoie un int64,

http://www.freepascal.org/docs-html/...tem/trunc.html

dont la capacité est supérieure à celle du longint. Tu pourrais donc déclarer une variable euro de type int64. Mais ce n'est que reculer le problème.

[anapurna]

Salut

Une simple recherche sur les types ordinaux t'aurait peut-être aidé :

Type	Range	Size in bytes
Byte	0 .. 255	1
Shortint	-128 .. 127	1
Smallint	-32768 .. 32767	2
Word	0 .. 65535	2
Integer	either smallint or longint	size 2 or 4
Cardinal	longword	4
Longint	-2147483648 .. 2147483647	4
Longword	0..4294967295	4
Int64	-9223372036854775808 .. 9223372036854775807	8
QWord	0 .. 18446744073709551615	8

[coolam]

Aaaah enfin résolu ! Comme vous me l'avez dit, le integer était trop petit pour contenir le nombre souhaité.
Je pensais qu'il prenait automatiquement la capacité d'un longint ... Il ne faut pas en vouloir aux étudiants
Merci a vous, bonne continuation !