Déterminer le salaire net

Version imprimable

21/11/2008, 19h54
agan2012

Déterminer le salaire net

salut à tous
voila un autre exercice a résoudre
Je réfléchi d’abord est je reviens

Vous êtes charger de déterminer le salaire net d’un employer dont le nom et le salaire de base son donnés au moyen de clavier. Sachant :
* une prime est accorder selon le barème suivant
Salaire de base--------------Taux de prime
< 3000 ------------------------0%
]3000,5000]---------------------3%
]5000,10000]--------------------5%
>=10000------------------------7%
* chaque employer et bénéficier des allocations familiales selon le nombre d’enfant :
- 200 dhs/enfant pour les 3 premiers
- 36 dhs/ enfant pour les 3 suivants
-0 dh/a partir du 7eme enfant
* une impôt est retrancher (1.16%) de salaire de base

salut tout le monde
alors voila mon travail mais je me bloque

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
uses crt;
 
var
    sn,pr:real;
    sb,alf,n,imp,nd,al:integer;
 
 
 
begin
 
write('le nom de l''enployer:    '); readln(n);
 
    if sb<3000 then
       pr:=0      else
    if sb<=5000 then
       pr:=sb*0.03 else
    if sb<10000 then
       pr:=sb*0.05 else
    if sb>=10000 then
       pr:=sb*0.07;
    write('le prime est');
 
 
begin
 
if   nd=3 then
al:=200*3 else
if nd<=6 then
al:=200*3+36*3 else
if  nd<=7 then
al:=200*3+36*3+0;
write('Allocations familiales est:');
end
 
 
 
 imp:=sb*0.16;
sn:=sb+pri+al-imp;
write('Le salaire net est:'sn:6:2); readln(sn);
 
end.

22/11/2008, 22h59
droggo

Wao,

C'est pratiquement le même exercice que l'autre, aux données près.

Alors cherche un peu. :)
23/11/2008, 11h10
Alcatîz
Bonjour,

Une saine manière d'envisager le problème sans s'emmêler les pinceaux serait de créer une fonction séparée pour chaque aspect du calcul :
Code:

1 2 3 4 5 Function Prime (SalaireDeBase : Real) : Real; Function Allocations (NbEnfants : Integer) : Real; Function Impot (SalaireDeBase : Real) : Real;
Mais je ne sais pas si tu as déjà abordé les procédures et fonctions au cours.

Quoi qu'il en soit, tu dois bien comprendre que tu ne peux effectuer aucun calcul sur des variables non initialisées, sous peine d'obtenir n'importe quoi. C'est malheureusement le cas dans le code que tu as posté.

Autre chose : tu effectues un test inutile :
Code:

1 2 3 if sb<10000 then pr:=sb*0.05 else if sb>=10000 then
car dans la séquence du programme, sb est forcément supérieur ou égal à 10000 au niveau du else. ;)
23/11/2008, 11h44
agan2012

Mon problème maintenant c'est comment séparer les conditions entre eux : le prime avec des allocations familiales et également avec l'impôt
Comment faire- je?:bug::cry:
23/11/2008, 12h27
droggo

Soe,

Citation:

Envoyé par agan2012

Mon problème maintenant c'est comment séparer les conditions entre eux : le prime avec des allocations familiales et également avec l'impôt
Comment faire- je?:bug::cry:

Et hop, retour d'un leitmotiv :

Comment fais-tu le calcul à la main ?

Ton programme doit faire pareil. :)

voila 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
program salaire;
 
uses wincrt;
 
var sb,tp,af,impot,sn,ne : real;
 
 
begin
 
write('salaire de base =');
readln(sb);
write('nombre d_enfent =');
readln(ne);
 
 if sb <= 3000 then
    tp := 0;
 if (sb > 3000) and (sb <= 5000) then
    tp := sb*(3/100);
 if (sb > 5000) and (sb <=10000) then
    tp := sb*(5/100); 
 if sb > 10000 then
    tp := sb*(7/100);
 
writeln('taux de prime = ',tp);
 
 if ne <= 3 then
    af := 200*ne;
 if (ne > 3) and (ne <= 6) then
    af := 600+(ne-3)*36;
 if ne > 6 then
    af := 708;
 
writeln('allocation fammilial = ',af);
 
 
 impot := (sb*1.16)/100;
 
writeln('impot = ',impot);
 
 
 sn := sb+tp+af-impot;
 
writeln('salaire net = ',sn);
 
end.

salut tout le monde
merci de ton aide M yacineess19
voila :yaisse2::king:

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
uses crt;
 
var sb,tp,af,impot,sn: real;
     n:string;
     ne:integer;
 
begin
 
clrscr;
 
write('saisi le nom de l''omployer:');readln(n);
write('salaire de base=           ');readln(sb);
write('nombre d''enfent=           ');readln(ne);
 
 if sb <= 3000 then
    tp := 0;
 if (sb > 3000) and (sb <= 5000) then
    tp := sb*(3/100);
 if (sb > 5000) and (sb <=10000) then
    tp := sb*(5/100); 
 if sb > 10000 then
    tp := sb*(7/100);
 
writeln('taux de prime:             ',tp:4:2);
 
 if ne <= 3 then
    af := 200*ne;
 if (ne > 3) and (ne <= 6) then
    af := 600+(ne-3)*36;
 if ne > 6 then
    af := 708;
 
writeln('allocation fammilial:      ',af:4:2);
 
 
 impot := (sb*1.6)/100;
 
writeln('impot =                    ',impot:4:2);
 
 
 sn := sb+tp+af-impot;
 
writeln('salaire net =              ',sn:4:2);
readln;
 
end.

la correction la voici

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
program salaire;
 
uses crt;
 
var sb,pr,al,im,sn: real;
     n:string;
     ne:integer;
 
begin
 
clrscr;
 
write('saisi le nom de l''omployer:');readln(n);
write('salaire de base=           ');readln(sb);
write('nombre d''enfent=           ');readln(ne);
 
 if sb < 3000 then
    pr := 0
else  if  sb < 5000 then
    pr := 3*sb/100
 
else  if sb <10000 then
    pr :=5* sb/100
else   pr := 7*sb/100;
 
 
 if ne <= 3 then
    al := ne*200
else if ne <= 6 then
    al := (3*200)+(ne-3)*36
else  al := 708;
 
writeln('allocation fammilial:      ',al:4:2);