Discussion :

[agan2012]

Salut tout le monde
Je suis nouveau parmi vous et j’espère bien être aidé.
Mon exercice est bien compliqué pour moi, le voici :

Dans une entreprise vous êtes chargé de créer un programme (avec Turbo Pascal) qui demande de saisir le Nom, le salaire fixe, le trajet par kilomètres, et la quantité vendue pour un représentant, et qui fournit le nom et le salaire net sachant que :

• une prime de 200 euro est accordé aux représentants ayant un trajet qui dépasse 300 km, 100 euro pour le cas contraire.
• une commission de 2% de salaire fixe est accordé par les représentants qui vendent plus de 300 unités.

Le salaire net est : la somme de salaire fixe, prime, et la commission.

Svp aidez-moi

Voilà ma réponse mais il manque quelque chose :

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
uses crt;
var  n:string;
     sf:integer;
     tpk,qv:integer;
     co:real;
     sn:real;
     pri:integer;
begin
clrscr;
write('inserez le nom de repr‚sentant SVP:      '); readln(n);
write('Entrez le salaire fixe de reprŠsentant:  '); readln(sf);
write('caisessez le trajet par kilomŠtre:       '); readln(tpk);
write('Tappez la quantit‚ vandu:                '); readln(qv);
 if tpk>300 then
 sf:=sf+200
 else
 sf:=sf+100;
 
clrscr;
   begin
   if qv>300 then
   co:=sf*0.1
   end;
   writeln;
   sn:=co+sf+pri;
 write('Votre nom est:                        ',n);  writeln;
 write('Votre salaire net est:                ',sn);
 readln;
 
end.

[Alcatîz]

Bonjour et bienvenue !

Tu as déclaré une variable pri mais tu ne t'en sers pas dans le programme, puisque tu ajoutes la prime directement au salaire fixe, ce qui fausse le calcul de la commission.
Au sujet de la commission, justement, pour calculer 2 % il faut multiplier par 0,02, pas par 0.1
Pour l'affichage final, il vaudrait mieux formater le nombre réel afin d'éviter la notation scientifique.

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
uses crt;
var  n:string;
     sf:integer;
     tpk,qv:integer;
     co:real;
     sn:real;
     pri:integer;
begin
  clrscr;
  write('Insérez le nom du représentant SVP:      '); readln(n);
  write('Entrez le salaire fixe du représentant:  '); readln(sf);
  write('Saisissez le trajet par kilomètre:       '); readln(tpk);
  write('Tapez la quantité vendue:                '); readln(qv);
  if tpk>300 then
    pri:=200
  else
    pri:=100;
  clrscr;
  if qv>300 then
    co:=sf*0.02;
  writeln;
  sn:=co+sf+pri;
  writeln('Votre nom est:                        ',n);
  write('Votre salaire net est:                ',sn:0:2);
  readln;
end.

(avec également quelques corrections d'orthographe dans les chaînes de caractères affichées)

[agan2012]

]Merci infiniment Alcatîz de votre réponse
ca marche
A+

[diden138]

Bonjour,
j'ajouterais juste une petite remarque concernant le type choisi pour sf (qui représente le salaire) tu l'a mi integer, il doit être un réel
Ps: si c'est résolu n'oublie pas de le mettre
Cordialement,