Discussion :

[Nouwanda]

Hello,

Je suis un débutant en Pascal et j'utilise le compilateur FPC sous Linux.

J'ai un exercice assez simple de calcule de salaire en employant le "case..of" à réaliser mais j'obtiens la même erreur à chaque fois : "range check error while evaluating constants"

Voici mon code :

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
35
36
37
38
39
40
41
42
43
Program exercice14;

var brut,prime,old:integer;
var com:real;
var result:real;

begin

writeln('Introduisez le chiffre d''affaire et l''ancienneté du représentant :');
write('Chiffre d''affaire en €: ');
readln(brut);
write('ancienneté du représentant en année: ');
readln(old);

case brut of
	0..2499:
		com:=(brut);
		
	2500..12499:
		com:=(brut*1.075);
	12500..37500:
		com:=(brut*1.09)
	else
		com:=(brut* 1.113)
end;

case old of
		0..1: 
			prime:=70;
		2..6:
			prime:=70+(10*(old-2));
		7..14:
			prime:=120+(12*(old-7))
		else
			prime:=216+(14*(old-15));
			if prime > 326 then prime:=326
end;


result:=(prime+com);			
writeln('Votre salaire est ',result:10:2)
			
end.

Le problème se situe sur cette ligne, alors que quand je rentre la valeur 12500..30000 je peux compiler sans aucun soucis, je ne comprends pas trop d'où vient le problème.

Si quelqu'un a une idée, qu'il n'hésite pas .

Merci d'avance

[Dr.Who]

integer = entier 16bit = -32768..32767

essaye comme ça :

Code :

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

1
2
3
4
 
var 
  brut, prime, old: LongInt;
  com, result: double;

si ça ne marche pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
if brut < 2499 then
  com := brut
else
if brut < 12499 then
  com := brut * 1.075
else
if brut < 37500 then
  com := brut * 1.09
else
  com := brut * 1.113;

[Nouwanda]

Merci beaucoup

C'est vrai que je n'ai pas pensé à vérifier les propriétés de mes variables.

[Dr.Who]

oui, bien vérifié les types !

je serais toi, crée toi une petite unité utile de ce genre :

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
unit SimpleTypes;
 
interface
 
type
  Int = LongInt;
  UInt = LongWord;
 
  Int8 = shortInt;
  Int16 = smallInt;
  Int32 = LongInt;
  UInt8 = byte;
  UInt16 = word;
  UInt32 = LongWord;
 
  Float = single;
  Float32 = single;
  Float64 = double;
 
implementation
 
end;

et n'utilise plus que ces types.

pense aussi à mettre à jours FreePascal.