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