Discussion :

[mr-rat]

Bonjour,

Je dois réaliser un programme permettant de lire client, nom, nationalité, le séjour et le prix unitaire de la chambre, permettant de calculer le net à payer d'une réservation d'un hotel
puis afficher la fiche de

.......

client

nationalité

sejour

prix unitaire

prix total

reduction

taxe

net apayer


voila les calcules qui va traiter

prix total=sejour*prix unitaire

reduction=50 dh pour chaque 5 jour

net a payer = p total -sej


C'est tout, j'ai tenté de les résourdre...

[mr-rat]

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
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;


 
rc:=( (sejour mod  5) * 50 ) ;
le prblem est la ???

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.

[Dr.Who]

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
44
45
46
47
48
49
50
 
program fiche;
 
uses crt;
 
var 
  cl, nt : string;
  sejour, pu, pt, rc, tax, np, contour : currency;
 
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);
 
  // réduction HT
  rc  := (sejour/5) * 50;
 
  // prix total HT et HR (hors reduction)
  pt  := sejour * pu;
 
  // taxe
  // tax := (7/100)*pt + (1/3*rc); // ??! logiquement Taxe = PTHT * Taux 
  tax := (pt-rc) * 0.07; // = 7% de taxe, reduction comprise! arnaqueur!
  np  := (pt-rc) + tax;
 
  writeln('+------------------------------------------+');
  writeln('| la fiche de reservation                  |');
  writeln('+------------------------------------------+');
  writeln('  client ......... : ', cl);
  writeln('  nationalite .... : ', nt);
  writeln('  sejour ......... : ', sejour:2:2);
  writeln('  prix unitaire .. : ', pu:2:2);
  writeln('  prix total ..... : ', pt:2:2);
  writeln('  reduction ...... : ', rc:2:2);
  writeln('  taxe ........... : ', tax:2:2);
  writeln('+------------------------------------------+');
  writeln('  net a payer .... : ', np:2:2, 'DH');
  writeln('+------------------------------------------+');
 
  readln;
end.

[darrylsite]

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
44
45
46
47
48
49
50
 
program fiche;
 
uses crt;
 
var 
  cl, nt : string;
  sejour, pu, pt, rc, tax, np, contour : currency;
 
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);
 
  // réduction HT
  rc  := (sejour/5) * 50;
 
  // prix total HT et HR (hors reduction)
  pt  := sejour * pu;
 
  // taxe
  // tax := (7/100)*pt + (1/3*rc); // ??! logiquement Taxe = PTHT * Taux 
  tax := (pt-rc) * 0.07; // = 7% de taxe, reduction comprise! arnaqueur!
  np  := (pt-rc) + tax;
 
  writeln('+------------------------------------------+');
  writeln('| la fiche de reservation                  |');
  writeln('+------------------------------------------+');
  writeln('  client ......... : ', cl);
  writeln('  nationalite .... : ', nt);
  writeln('  sejour ......... : ', sejour:2:2);
  writeln('  prix unitaire .. : ', pu:2:2);
  writeln('  prix total ..... : ', pt:2:2);
  writeln('  reduction ...... : ', rc:2:2);
  writeln('  taxe ........... : ', tax:2:2);
  writeln('+------------------------------------------+');
  writeln('  net a payer .... : ', np:2:2, 'DH');
  writeln('+------------------------------------------+');
 
  readln;
end.

Je ne pense pas que le type currency soit un type reconnu par le pascal, ça fait plutot penser à un code vb.
Aussi, etant donné que sejour est un réel, faire sejour/5 sera aussi un réel et ne sera pas forcement le resultat. Peut etre devriez vous faire trunc(sejour/5).
Mais pour faire plut propre et dans le soucis d'utiliser moins de memoire, un type entier devrait faire l'affaire. Mieux faut declarer les valeurs des taxes comme des constantes

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
44
45
46
47
48
49
50
51
52
53
54
 
program fiche;
 
uses crt;
 
const tpt=0.07;
         trc=1/3;
 
var 
  cl, nt : string;
  pu, pt, rc, tax, np, contour : real;
  sejour : integer;
 
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);
 
  // réduction HT
  rc  := (sejour div 5) * 50;
 
  // prix total HT et HR (hors reduction)
  pt  := sejour * pu;
 
  // taxe
  // tax := Tpt*pt + Tcr*rc; // ??! logiquement Taxe = PTHT * Taux 
  tax := (pt-rc) *Tpt; // = 7% de taxe, reduction comprise! arnaqueur!
  np  := (pt-rc) + tax;
 
  writeln('+------------------------------------------+');
  writeln('| la fiche de reservation                  |');
  writeln('+------------------------------------------+');
  writeln('  client ......... : ', cl);
  writeln('  nationalite .... : ', nt);
  writeln('  sejour ......... : ', sejour:2:2);
  writeln('  prix unitaire .. : ', pu:2:2);
  writeln('  prix total ..... : ', pt:2:2);
  writeln('  reduction ...... : ', rc:2:2);
  writeln('  taxe ........... : ', tax:2:2);
  writeln('+------------------------------------------+');
  writeln('  net a payer .... : ', np:2:2, 'DH');
  writeln('+------------------------------------------+');
 
  readln;
end.

[droggo]

Nie,

Quand vous aurez fini de donner les solutions à des exercices d'école, ce forum pourra peut-être retrouver sa véritable destination : l'entraide, et pas un simili de OnFaitTesDevoirs.com.

[mr-rat]

Nie,

Quand vous aurez fini de donner les solutions à des exercices d'école, ce forum pourra peut-être retrouver sa véritable destination : l'entraide, et pas un simili de OnFaitTesDevoirs.com.

bonjour mr nie moi jai fais beaucoups de tentative mais jai petit erreur

a la reduction je sais pas ou

je veux pas que tu fais tous ce exercice car c'est pas bien pour moi

aider moi avec un algoritha n'importe

parcque l'exercice jai lesresoudre tous sauf cette parties de reduction

et merci

[mr-rat]

Je ne pense pas que le type currency soit un type reconnu par le pascal, ça fait plutot penser à un code vb.
Aussi, etant donné que sejour est un réel, faire sejour/5 sera aussi un réel et ne sera pas forcement le resultat. Peut etre devriez vous faire trunc(sejour/5).
Mais pour faire plut propre et dans le soucis d'utiliser moins de memoire, un type entier devrait faire l'affaire. Mieux faut declarer les valeurs des taxes comme des constantes

Code :

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

1
2
 
  rc  := (sejour div 5) * 50;

je fais ce calcul mais il ya un erreur dans l'execution

jai un explication div il divise par exemple 10/3 =1

mod divise par exemple 10/3 = 3

division simple 10/3= 3.3333

[mr-rat]

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
44
45
46
47
48
49
50
 
program fiche;
 
uses crt;
 
var 
  cl, nt : string;
  sejour, pu, pt, rc, tax, np, contour : currency;
 
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);
 
  // réduction HT
  rc  := (sejour/5) * 50;
 
  // prix total HT et HR (hors reduction)
  pt  := sejour * pu;
 
  // taxe
  // tax := (7/100)*pt + (1/3*rc); // ??! logiquement Taxe = PTHT * Taux 
  tax := (pt-rc) * 0.07; // = 7% de taxe, reduction comprise! arnaqueur!
  np  := (pt-rc) + tax;
 
  writeln('+------------------------------------------+');
  writeln('| la fiche de reservation                  |');
  writeln('+------------------------------------------+');
  writeln('  client ......... : ', cl);
  writeln('  nationalite .... : ', nt);
  writeln('  sejour ......... : ', sejour:2:2);
  writeln('  prix unitaire .. : ', pu:2:2);
  writeln('  prix total ..... : ', pt:2:2);
  writeln('  reduction ...... : ', rc:2:2);
  writeln('  taxe ........... : ', tax:2:2);
  writeln('+------------------------------------------+');
  writeln('  net a payer .... : ', np:2:2, 'DH');
  writeln('+------------------------------------------+');
 
  readln;
end.

merci ami mour ta tentative de maider a ce exercice

tax := (7/100)*pt + (1/3*rc); // ??! logiquement Taxe = PTHT * Taux


dans l'exercice ami cest ca le calcul v dsl dans le premier sujet je le fait ps

tax = 7/100 de pt majoré 1/3 de rc

majoré signifie +
tax := (7/100)*pt + (1/3*rc);

et dans le resulta ami camarche


mais le problem que jai c'est dans la reduction seulement

rc := (sejour/5) * 50;
je fais ((sejour mod 5)*50) mais ca marche pas

je fais les boucles (while .. do ...) il est un peut resoudre le problem est affiche le resultat mais aussi il ya un petit problem dans la valeur de la reduction dans l'affichage change et en plus dans l'exercice me dit de me faire pas de boucles ..

aidez moi cvp avec quelque chose .. algorithme exemple ...

[Dr.Who]

pour la réduction en effet on peut faire comme ceci, comme l'a dit Darryl :

Code :

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

rc := trunc(sejour/5) * 50;

sejour < 5 : rc = 0
sejour >= 5 : rc = 50
sejour >= 10 : rc = 100
sejour >= 15 : rc = 150
sejour >= 20 : rc = 200
sejour >= 25 : rc = 250

et non avec un mod :

1 mod 5 = 1 : rc = 50
2 mod 5 = 2 : rc = 100
3 mod 5 = 3 : rc = 150
4 mod 5 = 4 : rc = 200
5 mod 5 = 0 : rc = 0
6 mod 5 = 1 : rc = 50
7 mod 5 = 2 : rc = 100

ou avec la formule rc := sejour/5 * 50 :
1 : rc = 10
2 : rc = 20
3 : rc = 30
4 : rc = 40
5 : rc = 50
6 : rc = 60
7 : rc = 70



par contre oui, le type currency n'existe pas en TP7, on peut utiliser pour plus de précision le type double (norme IEEE FLOAT 64).

bref.

[Dr.Who]

Nie,

Quand vous aurez fini de donner les solutions à des exercices d'école, ce forum pourra peut-être retrouver sa véritable destination : l'entraide, et pas un simili de OnFaitTesDevoirs.com.

nous n'avons pas fait son exercice.
il fournis un code et à un problème qu'il n'arrive pas à résoudre.
il est donc normal qu'on l'aide puisque c'est le principe de ce forum.

aprés, il est vrai que si il avait un peu chercher dans l'aide TP et explorer et tester quelques codes différents pour le calcul de la reduc, il aurait trouvé tout seul. mais ça ... ce n'est pas notre problème.

[mr-rat]

nous n'avons pas fait son exercice.
il fournis un code et à un problème qu'il n'arrive pas à résoudre.
il est donc normal qu'on l'aide puisque c'est le principe de ce forum.

aprés, il est vrai que si il avait un peu chercher dans l'aide TP et explorer et tester quelques codes différents pour le calcul de la reduc, il aurait trouvé tout seul. mais ça ... ce n'est pas notre problème.

oui vraiment mr merci pour ce message moi je fais beacoup de tentative mais je sais que jais un petit petit erreur dans le calcul je veux que vous aide
c'est simple .. et merci encore

[mr-rat]

pour la réduction en effet on peut faire comme ceci, comme l'a dit Darryl :

Code :

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

rc := trunc(sejour/5) * 50;

sejour < 5 : rc = 0
sejour >= 5 : rc = 50
sejour >= 10 : rc = 100
sejour >= 15 : rc = 150
sejour >= 20 : rc = 200
sejour >= 25 : rc = 250

et non avec un mod :

1 mod 5 = 1 : rc = 50
2 mod 5 = 2 : rc = 100
3 mod 5 = 3 : rc = 150
4 mod 5 = 4 : rc = 200
5 mod 5 = 0 : rc = 0
6 mod 5 = 1 : rc = 50
7 mod 5 = 2 : rc = 100

ou avec la formule rc := sejour/5 * 50 :
1 : rc = 10
2 : rc = 20
3 : rc = 30
4 : rc = 40
5 : rc = 50
6 : rc = 60
7 : rc = 70



par contre oui, le type currency n'existe pas en TP7, on peut utiliser pour plus de précision le type double (norme IEEE FLOAT 64).

bref.

c'est quoi (trunc)

je choisi mod parceque dans un lesson on a fait ces calculs

par exemple ce que jai ecris...

div il divise par exemple 10/3 =1

mod divise par exemple 10/3 = 3

division simple 10/3= 3.3333


pour une meilleure comprehension

50 dh pour chaque 5 jour

lorsque tu a 7 sejour par exemple dans la reduction sera 50 dh

7 mod 5 *50

1*50=50
reduction=50

[droggo]

Bie,

nous n'avons pas fait son exercice.
il fournis un code et à un problème qu'il n'arrive pas à résoudre.
il est donc normal qu'on l'aide puisque c'est le principe de ce forum.

aprés, il est vrai que si il avait un peu chercher dans l'aide TP et explorer et tester quelques codes différents pour le calcul de la reduc, il aurait trouvé tout seul. mais ça ... ce n'est pas notre problème.

Quel code.

L'affichage serait différent chez moi ?

Moi, je vois un énoncé d'exercice réparti en quelques lignes, donnant très vaguement un algorithme, avec 2 ou 3 lignes supplémentaires faisant semblant d'être du code (ou se trouve ne serait-ce qu'un début de code Pascal là-dedans ?)

Bonjour,

Je dois réaliser un programme permettant de lire client, nom, nationalité, le séjour et le prix unitaire de la chambre, permettant de calculer le net à payer d'une réservation d'un hotel
puis afficher la fiche de

.......

client

nationalité

sejour

prix unitaire

prix total

reduction

taxe

net apayer


voila les calcules qui va traiter

prix total=sejour*prix unitaire

reduction=50 dh pour chaque 5 jour

net a payer = p total -sej


C'est tout, j'ai tenté de les résourdre...

De plus, aider ne signifie pas donner le code prêt à l'emploi, alors que c'est devenu une habitude qui viole la charte du forum.

[Dr.Who]

@mr-rat

non ce n'est pas bon avec le mod.

fait des tests avec des valeurs de 1 à 10

tu verra que des réduction apparaissent alors qu'elle ne devrait pas.

modulo renvois le reste d'une division.

en gros 7 divisé par 5, dans un contexte entier, renvois 1 et il reste 2

donc 7 mod 5 = 2 et pas 1!

et 2 * 50 = 100!

donc pour un sejour de 7 jours :

7 mod 5 * 50 = 100 DH!

parce que :



ce qui est faux puisqu'il n'y a qu'une periode de 5 jours dans les 7 jours du séjours (5+2).

pour un séjours de 11 jours :

11 mod 5 * 50 = 50 DH!

parce que :



ce qui est faux, puisqu'il y 'a DEUX periodes de 5 jours dans les 11 jours (5+5+1)

par contre :

comme 7 div 5 = 1 (1 période de 5 jours au moins)
et que 11 div 5 = 2 (2 période de 5 jours au moins)

7 div 5 * 50 = 50
11 div 5 * 50 = 100

mais comme on travail avec des flottants :

trunc(7/5) * 50 = 50
trunc(11/5) * 50 = 100

tout est ok.

on pourrais utiliser round au lieu de trunc.

trunc renvois une valeur entière "tronquée" du flottant donné.
round renvois une valeur entière "arrondie" du flottant donné.

exemple :

trunc(15.2) = 15
trunc(15.8) = 15
round(15.2) = 15
round(15.8) = 16



@droggo
mr-rat nous à simplement fait un jolie double-post au début du sujet. BOUUUH LE VILAIN!
dans le premier, il y à l'énoncé du problème en effet et trois minutes plus tard, dans le deuxième, il y à le code qu'il a fait :
http://www.developpez.net/forums/d84...l/#post4837052
qui n'était pas dans les balise codes, ajoutée par la suite par Alcatiz et donc aurait ainsi pus échappé à ta vigilance.
lire en Z, scroller trop vite... forcement ... ça donne ça

et puis chacun à sa façon d'appréhender l'entre-aide. certains y vois une façon de s'entrainer également et donc de pondre du code en conséquence et d'en faire profiter tout le monde.
bien entendu, il est toujours hors de question d'aider ceux qui ne fournissent pas de code ou qui ne font aucuns efforts. cela vas de soit.

mais tel Don Quichotte, qui voyait des moulins partout et devint fou, ne voyons pas à chaque fois les demandes d'aide pour des exercices d'école, comme forcement non conforme. prudent restons.
Ne faisont pas comme sur certains sites ou les messages pour ce genre de demande (conforme ou non) se coltines aux sempiternels "lit ton cours andouille" et "demande à ton prof boulet", qui à un impact encore plus négatif tant sur le forum que pour le demandeur, que de pondre un code tout fait...

ici notre ami était donc dans la conformité minimale, mais on lui pardonnera le langage qui n'est pas parfait en tout point.
Aprés tout, ne fait il pas l'effort d'essayer de s'exprimer dans une langue qui n'est assurément pas la sienne ?
ne rencontrons nous pas le même soucis que lui quand nous devons, par nécessité, communiquer sur un forum anglais, russe ou japonais avec pour seul outils notre maigre maitrise de ces langues et le traducteur neuroplégique de google ?

et bien sur n'oublions pas que les étudiants d'aujourd'hui pourront devenir à leurs tours, les gens qui transmettent leurs savoirs et aides bien volontairement les autres à comprendre le vaste monde de la programmation de demain.
donc, restons pédagogues et diplomates ... malgré tout.

Imagine si Obiwan avait envoyer bouler Luke ...
"Obiwan! apran moi a métrissé la forc! tu é mon sul éspoire!"
"non, retourne à tes champignons dans ta ferme bouseux, tu viol le code Jedi la!"
"mais..."
paf ...
the end.
TA TA TATA TAAA TA TAAAA (air de la marche impériale, je sais, je le fait mal)...

enfin bref ... en un sens ... tant que tout cela ne viens pas déséquilibrer l'univers ...
"on s'en tamponne le neutrino" comme dirait Pauli.

[mr-rat]

Bie,

Quel code.

L'affichage serait différent chez moi ?

Moi, je vois un énoncé d'exercice réparti en quelques lignes, donnant très vaguement un algorithme, avec 2 ou 3 lignes supplémentaires faisant semblant d'être du code (ou se trouve ne serait-ce qu'un début de code Pascal là-dedans ?)



De plus, aider ne signifie pas donner le code prêt à l'emploi, alors que c'est devenu une habitude qui viole la charte du forum.

dsl mais tu ne dit rien je suis pas tout a fait avec toi

mr drogo voir le 2 message cest moi qui fait la tentative

moi je fait tous l'exercice just jai un petit problem de l'exection de programme dans la reduction

jai la resolution mr drogo paar moi seul

voila

Code :

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

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

voila mr droggo la suite de mon exercice

je te dis quelque chose en fin moi aussi je suis contre de faire mes exercices

mais seulment aider un peu c'est sa il est la le forum

mr drogo je vous que tu vois le message 2 dans ce sujet de ma tentative

je suis tres nerve pour tes reponses qui dit que je fait rien jusque attendre ta reponse ...

[droggo]

Goe,

dsl mais tu ne dit rien je suis pas tout a fait avec toi

mr drogo voir le 2 message cest moi qui fait la tentative

moi je fait tous l'exercice just jai un petit problem de l'exection de programme dans la reduction

Désolé, mais je n'avais pas vu l'autre sujet, sans doute effacé avant que je passe sur le forum.

[mr-rat]

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
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.

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 ..

[droggo]

Hoy,

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

Div fait une division entière sur des entiers, pas sur des réels.

[mr-rat]

Hoy,


Div fait une division entière sur des entiers, pas sur des réels.

je sais pas mais on peut changer les valeurs ..

merci pour la remarque importante.. je comprends ami droggo

[mr-rat]

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
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.

voila mon resultat finale de l'exercice

j'attends le resultat de cours

dans la reduction finalement j'exprime (while .. do )