Programme Calcul Impôts

Version imprimable

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:

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

15/03/2011, 21h15
droggo

Mao,

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

Et reprends tes cours pour comprendre. :)
16/03/2011, 07h19
Alcatîz

Bonjour,

Pour comprendre les messages d'erreur renvoyés par le compilateur, tu peux t'aider de la FAQ :
:fleche: http://pascal.developpez.com/faq/?pa...de-compilation

;)
16/03/2011, 10h12
Paul TOTH

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
_
21/03/2011, 15h59
Loupsio
Citation:

coupleavec1enfant,coupleavec3enfants

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

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-

Citation:

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:

1 2 3 4 5 6 7 8 if....then I:=.... else if .... then I:=... else if ... then I:= ... else if .... then I:=... ;
26/05/2011, 15h35
extrem-alpha
Citation:

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:

1 2 3 4 5 case s of . . . end;
(biensur tu dois modifier le type de la varibale

Code:

s:byte;
02/09/2011, 21h57
mohamine1989
Pour le test (condition) suivante :
Code:

1 2 if(S=celibataire)
S est de type string, tu doit faire :
Code:

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
21/09/2011, 09h04
EpiTouille

Citation:

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
21/09/2011, 16h17
droggo

Qua,

Citation:

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. :)
22/09/2011, 06h10
Paul TOTH

bon et alors ? on peut calculer nos impôts maintenant ? :D
23/09/2011, 22h04
CapJack

Citation:

Envoyé par Paul TOTH

bon et alors ? on peut calculer nos impôts maintenant ? :D

Quarante-deux.
— C'est tout. Il n'y a rien d'autre.
27/09/2011, 06h51
Paul TOTH

Citation:

Envoyé par CapJack

Quarante-deux.
— C'est tout. Il n'y a rien d'autre.

si c'est en euros, ça me va :D

Sinon je sors ma serviette ;)