Programme Calcul Impôts

**lolo90** · 15/03/2011, 20h51

Bonjour

J'ai une question concernant un programme que j'ai élaboré. En effet, je ne trouve pas mes erreurs de syntaxe, pourriez-vous m'aider ?

Voici le 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
44
45
46
47
program impots;
  var
  N,QF,RI,MI,I:real;
  celibataire,couple,coupleavec1enfant,coupleavec3enfants,coupleavec4enfants:string;
  S:string;
 
Begin
  writeln('entrer le montant imposable de votre famille');
  readln(MI);
 
  RI:=MI*0.9*0.8;
  writeln('saisissez votre situation familiale, celibataire, couple, couple avec 1 enfant, couple avec 3 enfants, couple avec 4 enfants');
  readln(S);
 
       if(S=celibataire)
       then N:=1;
       if(S=couple)
       then N:=2;
       if(S=coupleavec1enfant)
       then N:=3;
       if(S=coupleavec3enfants)
       then N:=4;
       if(S=coupleavec4enfants)
       then N:=5;
 
   QF:=RI/N;
 
          if(QF<25610)
          then I:=0;
          if(QF>=25610)and(QF<=50380)
          then I:=(RI*0.105)-(2689*N);
          if(QF>50380)and(QF<=88670)
          then I:=(RI*0.24)-(9490*N);
          if(QF>88670)and(QF<=143580)
          then I:=(RI*0.33)-(17470*N);
          if(QF>143580)and(QF<=233620)
          then I:=(RI*0.43)-(31828*N);
          if(QF>233620)and(QF<=288100)
          then I:=(RI*0.48)-(43509*N);
          if(QF>288100)
          then I:=(RI*0.54)-(607795*N);
 
    writeln('Votre impot est de ','I');
    readln;
    readln;
 
end.

Merci beaucoup d'avance.

Bien Cordialement,

lolo90

**droggo** · 15/03/2011, 21h15

Mao,

Regarde les messages de ton compilateur, tu connaîtras les lignes qui posent problème.

Et reprends tes cours pour comprendre.

**Alcatîz** · 16/03/2011, 07h19

Bonjour,

Pour comprendre les messages d'erreur renvoyés par le compilateur, tu peux t'aider de la FAQ :

http://pascal.developpez.com/faq/?pa...de-compilation

**Paul TOTH** · 16/03/2011, 10h12

question pratique, je ferais plutôt un affichage comme ceci:

saisissez votre situation familiale :
1- celibataire,
2- couple,
3- couple avec 1 enfant,
4- couple avec 3 enfants,
5- couple avec 4 enfants
_

**Loupsio** · 21/03/2011, 15h59

coupleavec1enfant,coupleavec3enfants

1-les couples avec 2 enfants sont exonérés?

2- a quoi correspond ton N? a première vu on dirai le nombre de parts mais 1 couple avec un enfant = 2,5 part
1 couple avec trois enfants = 3 parts
et un couple avec 4 enfants = 4parts
ce que ne serait pas le cas dans ton exemple si c est bien le nombre de parts

3-

writeln('Votre impot est de ','I');

les apostrophes servent a écrire exactement ce qu'il y a entre 2 apostrophes, or la tu veux justement pas écrire I mais la valeur de I, donc I ne doit pas être entre apostrophes

4- enleve les points virgules apres chaque 'then' sauf le dernier et rajoute des 'else' devant chaque if sauf le premier

Code :

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

1
2
3
4
5
6
7
8
if....then
 I:=....
else if .... then
I:=...
else if ... then
I:= ...
else if .... then
I:=... ;

**extrem-alpha** · 26/05/2011, 15h35

question pratique, je ferais plutôt un affichage comme ceci:

saisissez votre situation familiale :
1- celibataire,
2- couple,
3- couple avec 1 enfant,
4- couple avec 3 enfants,
5- couple avec 4 enfants

+1
tu peux utiliser

Code :

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

1
2
3
4
5
case s of 
.
.
.
end;

(biensur tu dois modifier le type de la varibale

Code :

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

s:byte;

**mohamine1989** · 02/09/2011, 21h57

Pour le test (condition) suivante :

Code :

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

1
2
 
if(S=celibataire)

S est de type string, tu doit faire :

Code :

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

1
2
 
if(S='celibataire')

quand test deux varibles, ou on les compares, il faut qu'ils soient du méme type et ca dans n'importe quel language de programmation
méme chose pour les autres tests

**EpiTouille** · 21/09/2011, 09h04

Envoyé par mohamine1989

if (S='celibataire')

Oui et non. Non parce que dans le programme, il y a celibataire de déclaré de type string. Et oui parce que elle ne s'en sert pas.
Je pense que ça serait mieux de faire un menu du genre "taper 1 pour celibataire". Entre les gens qui taperont Celibataire, Célibataire, celibataire... on va pas s'en sortir

**droggo** · 21/09/2011, 16h17

Qua,

Envoyé par titeeee

Oui et non. Non parce que dans le programme, il y a celibataire de déclaré de type string. Et oui parce que elle ne s'en sert pas.
Je pense que ça serait mieux de faire un menu du genre "taper 1 pour celibataire". Entre les gens qui taperont Celibataire, Célibataire, celibataire... on va pas s'en sortir

Oui, c'est ce que je faisais généralement.

En plus, ça simplifie le travail des utilisateurs, ce qui est toujours apprécié.

Sinon, si on tient à l'entrée de mots, je faisais parfois, à la demande de clients rétifs à cette simplification :

- lire le mot
- supprimer les accents ... (é, è deviennent e ...)
- tout passer en minuscules
- à partir de là, on peut comparer avec les mots de référence.
- et si on ne trouve pas de correspondance, on peut compliquer la comparaison, par exemple en cherchant uniquement sur les premières lettres, jusqu'à trouver une partie de mot discriminante.

Et donc, demander des valeurs numériques pour le choix simplifie également le travail du programmeur, ce qui fait que tout le monde est content, sauf certains clients à la logique étrange.