Range check error while evaluating constants
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:
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 :D.
Merci d'avance
