Exercice de réservation d'hôtel

Version imprimable

Voir 40 message(s) de cette discussion en une page

Boe,

Prends l'habitude de bien présenter ton code : indentation, aérer avec des lignes vides, ...

Exemple :

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
program fiche;
 
uses crt;
 
var 
  cl, nt: string;
var 
  sejour, pu, pt, rc, tax, np: Real;
var 
  contour: Real;
 
begin
  clrscr
  Write('le client est  :');
  Readln(cl);
  Write('la nationalite est  :');
  Readln(nt);
  Write('le sejour est :');
  Readln(sejour);
  Write('le prix unitaire :');
  Readln(pu);
 
  pt := sejour * pu;
 
  while (sejour >= 5) do 
    contour = contour + 1
    sejour = sejour - 5;
 
  tax := (7 / 100 * pt) + (1 / 3 * rc);
  np := (pt - rc) + tax;
 
  Writeln('     la fiche de reservation     ');
  Writeln('.................................');
  Writeln('le client est...................:', cl);
  Writeln('la nationalite est..............:', nt);
  Writeln('le sejour est...................:', sejour: 2: 2);
  Writeln('le prix unitaire est............:', pu: 2: 2);
  Writeln('le prix total est ..............:', pt: 2: 2);
  Writeln('la reduction est ...............:', rc: 2: 2);
  Writeln('le taxe est ....................:', tax: 2: 2);
  Writeln('net a payer est.................:', np: 2: 2,'DH');
 
  Readln;
end.

Ce qui fait qu'on voit immédiatement :

Code:

1
2
3
4
5
6
var 
  cl, nt: string;
var 
  sejour, pu, pt, rc, tax, np: Real;
var 
  contour: Real;

==> il est inutile de répéter le mot-clé var, et donc

Code:

1
2
3
4
var 
  cl, nt: string;
  sejour, pu, pt, rc, tax, np: Real;
  contour: Real;

On voit également

Code:

1
2
3
  while (sejour >= 5) do
    contour = contour + 1 { ATTENTION, ici, il manque une virgule }
    sejour = sejour - 5;

qui montre qu'il faut créer un bloc begin end; pour que la boucle fasse ce qui est désiré :

Code:

1
2
3
4
5
  while (sejour >= 5) do
  begin
    contour = contour + 1;
    sejour = sejour - 5;
  end;

05/12/2009, 20h31
darrylsite
Citation:

Envoyé par mr-rat

voila ma derniere tentative et ca marche

cet tentative et fait par moi

est ce qu il ya d'autre ??

parceque le calcul (sejour div 5) fais un erreur ..

Dans le code que j'ai posté, j'avais changer le type de sejour en integer, puis qu'à ma connaissance un jour ne peut etre qu'entier et non réel. Et comme l'a dit Droggo, div ne marche que sur les entiers alors que dans ta declaration sejour est un réel.

Citation:

Envoyé par Dr.Who

on pourrais utiliser round au lieu de trunc.

On ne peut pas utiliser round puisque ça va fausser les calcul. Trunc est plus adapter et faire trunc(a/b) sur des réel revient à faire (a div b) sur des entiers.

mr-rat, tu gagneras à utiliser trunc ou div selon ton choix, mais à ta place je changerais le type de sejour et utiliser un div. Le code tel que tu as donné, et en faisant biensur les modifications que Droggo a ecrites, contient toujours une erreur. En fait ça concerne toujours sejour.
Citation:
Code:

1 2 3 4 5 6 7 while (sejour >= 5) do contour = contour + 1 sejour = sejour - 5; ... Writeln('le sejour est...................:', sejour: 2: 2);
Au fait, tu as au préalable modifié la valeur de sejour dans la boucle, puis tu desire afficher sejour. Selon toi, la valeur affichée sera t-elle la meme valeur de sejour initialement donnée?
06/12/2009, 12h48
mr-rat

merci a tous jai le resultat final maintenant et tous marche bien au prgramme

merci a droggo merci a darrysliste .dr who. et tous qui m'aider dans cette partie de ce exercice

et dsl j'ai in petit probleme de la langue francaise :ccool:

comme on dit depuis le début :

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
48
program fiche;
 
uses crt;
 
var 
  CLI, NAT: string;
 
var 
  JOURS, RDC : longint; // jours et rdc en longint
 
  PU, PTHT, TX, PTTTC: Real; // plus parlant
 
 
begin
  clrscr; // <- ne pas oublier le point virgule
 
  Write('le client est  :');
  Readln(CLI);
 
  Write('la nationalite est  :');
  Readln(NAT);
 
  Write('le sejour est :');
  Readln(JOURS);
 
  Write('le prix unitaire :');
  Readln(PU);
 
  RDC := (JOURS div 5) * 50;
 
  PTHT := JOURS * PU;
 
  TX := (PTHT * 0.07) + (1/3 * RDC);
  PTTTC := (PTHT-RDC) + TX;
 
  Writeln('     la fiche de reservation     ');
  Writeln('.................................');
  Writeln('le client est...................:', CLI);
  Writeln('la nationalite est..............:', NAT);
  Writeln('le sejour est...................:', JOURS: 2: 2);
  Writeln('le prix unitaire est............:', PU: 2: 2);
  Writeln('le prix total est ..............:', PTHT: 2: 2);
  Writeln('la reduction est ...............:', RDC: 2: 2);
  Writeln('le taxe est ....................:', TX: 2: 2);
  Writeln('net a payer est.................:', PTTTC: 2: 2,'DH');
 
  Readln;
end.

Voir 40 message(s) de cette discussion en une page