Discussion :

[agan2012]

Voilà l'exercice

Elaborer un programme qui permet de lire pour un client d'une agence de location de voitures le nom, la nationalité (marocaine ou etrangère), la
durée de location et le prix unitaire, ensuite de calculer et afficher le prix
total, la réduction et le montant à payer.
* La réduction est 15% du prix total pour les marocains et 500 DHs pour chaque semaine complète pour les étrangers.

Et mon travail le voici

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
ses crt;
 
var   d,reste:byte;
      n,na,m,e:string;
      pu,pt,ru,nap:real;
 
 
begin
clrscr;
write('Donner le nom du client:                ');readln(n);
write('Donner la nationalit‚ du client:        ');readln(na);
write('saiser la dur‚e du jour:                ');readln(d);
write('saiser le prix unitaire du chaque jour: ');readln(d);
 
if n='m' then
ru:=pu*d*0.15
nap:=(pu*d)-ru
 
 
 
else if (n='e') and (d<7) then
 
       ru:=0
 
       else   if (n='e') and (d=7) then
 
       ru:=pu*d-500
 
             else   if (n='e') and (d>7) then
 
                    reste:= d mod 7
 
                    ru:=( (d mod 7) - 500 ) + (reste * pu)
 
                    pt:=pu*d
 
                    nap:=pu*d-ru;
 
writeln('le prix total est:     ',pt:4:2);
writeln('la r‚duction est :     ',ru:4:2);
writeln('le montant … payer est:',map:4:2);
readln;
end.

Je demande une aide S.V.P

[agan2012]

Mon problème dans ce cas c'est le reste de la division

[droggo]

Hia,

Conseil : donner des noms explicites aux variables, constantes, fonctions, procédures, types...

Cela t'aurait peut-être évité ceci

Code :

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

1
2
write('saiser la dur‚e du jour:                ');readln(d);
write('saiser le prix unitaire du chaque jour: ');readln(d);

Du coup, je n'ai pas vérifié le reste, sauf : pourquoi se limiter à un type byte pour les variables d et reste ?

[agan2012]

Du coup, je n''ai pas vérifié le reste, sauf :
pourquoi se limiter à un type byte pour
les variables d et reste ?

Parce que la durée ne peut pas dépasser 250 et également le reste.

[droggo]

Hei,

parce que la duré ne peut pas dépasser 250 et également le reste

Ok, mais ça pose un problème, dans cette ligne par exemple:

Code :

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

                    ru:=( (d mod 7) - 500 ) + (reste * pu)

d étant du type byte, d mod 7 l'est également. Et quand tu lui enlève 500, ça risque d'entraîner un dépassement (ou même, ça entraîne un dépassement, je ne sais plus avec TP).

[agan2012]

d étant du type byte, d mod 7 l'est également.
Et quand tu lui enlève 500, ça risque d'entraîner un dépassement (ou même, ça entraîne un dépassement, je ne sais plus avec TP).

Oui vous avez raison

[agan2012]

voilà après les modifications

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
uses crt;
 
var   d,reste:byte;
      n,na,m,e:string;
      pu,pt,ru,nap:real;
begin
clrscr;
write('Donner le nom du client:                ');readln(n);
write('Donner la nationalit‚ du client:        ');readln(na);
write('saiser la dur‚e du jour:                ');readln(d);
write('saiser le prix unitaire du chaque jour: ');readln(pu);
 
if n='m' then
ru:=(pu*d)*0.15
 
 
 
else if (n='e') and (d<7) then
        ru:=0
     else   if (n='e') and (d=7) then
 
       ru:=(pu*d)-500
 
           else   if (n='e') and (d>7) then
 
                    reste:= (d mod 7 );
 
                    ru:=( (d div 7) * 500 ) ;
 
                    pt:=pu*d ;
 
 nap:=pu*d-ru;
 
writeln('le prix total est:     ',pt:4:2);
writeln('la r‚duction est :     ',ru:4:2);
writeln('le montant … payer est:',nap:4:2);
readln;
end.

mais il y a quelque chose qui cloche

[droggo]

Hie,

voilà après les modifications

Quelles modifications ?

À part la ligne

Code :

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

nap:=(pu*d)-ru

qui a changé de place, d'ailleurs sans conséquence sur les calculs, et quelques lignes vides supprimées, je n'en vois aucune.

[agan2012]

si bien regarder le premier code et le dérnier
il y a énormément des fautes
mais maintenent mon problème c'est
si je choisis la nationalité 'm' il calcule la réduction du nationalité 'e'
alors comment faire-je pour le résoudre?

[Clandestino]

Voici un cas typique de problème lié à l'utilisation de noms de variables insuffisamment clairs!

En lisant ton code je me rends compte que tu calcules la remise par rapport au nom du client (string n), ce qui ne risque pas de marcher!!

Choisis des noms de variables plus explicites, ton code sera plus lisible et facile à corriger, y compris pour toi.

Bonne continuation.

[agan2012]

Voici un cas typique de problème lié à l'utilisation de noms de variables insuffisamment clairs!

En lisant ton code je me rends compte que tu calcules la remise par
rapport au nom du client (string n), ce qui ne risque pas de marcher!!

Choisis des noms de variables plus explicites, ton code sera plus lisible et facile à corriger, y compris pour toi.

Bonne continuation.

a votre avis comment sera le code de ce TP?

[droggo]

Gei,

a votre avis comment sera le code de ce TP?

Compte tenu des réponses précédentes, solution basique et drastique (et généralement efficace) : tu oublies ce que tu as déjà fait, et tu reprends à zéro, en utilisant des noms de variables, etc. explicites.

[agan2012]

Gei,

Compte tenu des réponses précédentes, solution basique et drastique (et généralement efficace) : tu oublies ce que tu as déjà fait, et tu reprends à zéro, en utilisant des noms de variables, etc. explicites.

oui c'est vrai
merci de votre aide droggo
voilà mon travail est achevé

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
uses crt;
 
var   d:integer;
      n,na,m,e:string;
      pu,pt,ru,nap:real;
begin
clrscr;
write('Donner le nom du client:                ');readln(n);
write('Donner la nationalit‚ du client:        ');readln(na);
write('saiser la dur‚e du jour:                ');readln(d);
write('saiser le prix unitaire du chaque jour: ');readln(pu);
 
if na='m' then
ru:=(pu*d)*0.15
 
 
 
else if (na='e') and (d<7) then
        ru:=0
     else   if (na='e') and (d>7) then
 
 
 
 
                    ru:=( (d div 7) * 500 ) ;
 
                    pt:=pu*d ;
 
 nap:=pu*d-ru;
writeln('le prix total est:     ',pt:4:2,' ','DHs');
writeln('la r‚duction est :     ',ru:4:2 ,' ','DHs');
writeln('le montant … payer est:',nap:4:2 ,' ','DHs');
readln;
end.

[droggo]

Kai,

On a parfois l'impression de parler à des murs. Des murs qui, par exception, n'ont pas d'oreilles.

Utiliser des noms de variables explicites. Est-ce trop dur à faire ?

Côté code, on y revient encore et toujours : soigner la présentation, par exemple

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
program hello;
 
uses crt;
 
var   
  d : integer;
  n, na, m, e : string;
  pu, pt, ru, nap : real;
begin
  clrscr;
  Write('Donner le nom du client:                ');
  Readln(n);
 
  Write('Donner la nationalit‚ du client:        ');
  Readln(na);
 
  Write('saiser la dur‚e du jour:                ');
  Readln(d);
 
  Write('saiser le prix unitaire du chaque jour: ');
  Readln(pu);
 
  if na = 'm' then
    ru := (pu * d) * 0.15
  else if (na = 'e') and (d < 7) then
    ru := 0
  else if (na = 'e') and (d > 7) then
    ru := ((d div 7) * 500);
 
  pt := pu * d;
  nap := pu * d - ru;
  Writeln('le prix total est:     ', pt: 4: 2,' ', 'DHs');
  Writeln('la r‚duction est :     ', ru: 4: 2, ' ', 'DHs');
  Writeln('le montant … payer est:', nap: 4: 2, ' ', 'DHs');
  Readln;
end.

Tout de suite plus lisible, Non ? Ou alors il faut être de mauvaise foi.