[Turbo Pascal] Déterminer le net à payer

Déterminer le net à payer

salut tout le monde
voila un autre TP
Je réfléchie d'abord

***********

Citation:

Proposer un programme qui demande de saisir le nom, la durée (jours), la catégorie (m/f)
Pour un client dans un hôtel, et afficher le net a payé, sachant que :
Le prix unitaire journalier varie comme ceci

- 500 dhs si le nombre de jours<5
- 350 dhs si 5<= nembre de jours<15
- 250 dhs si nombre du jours >=15
Une réduction est accordé au client selon le tableau suivant :

Durée homme femme
<15 jours 3% 2%
>=15 jours 5% 4%

Déterminer le net à payé

Bonjour
C'est à croire que tu aimes calculer les nets :)
PLus sérieusement, on te l'a déjà dit:Inutile de nous montrer le TP et de dire que tu réflechis d'abord;), réfléchis d'abord et montres nous ce que tu as fait pour qu'on te débloques et une fois que tu fais deja un exercice comme ça , d'autres exercices similaires ne devraient pas te poser de problèmes puisque le principe ne change pas en tant que tel.
Quand tu poses une discussion il est supposé poser un problème; c'est pas ton cas.

Cordialement

voila mon travail

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
uses crt;
var    n:string;
       nj,du:integer;
       ca,f,m:char;
       ru,pu,nap:real;
begin
clrscr;
write('donner le nom de r‚sidant:');readln(n);
write('donner le nombre de jour: ');readln(nj);
write('donner la cat‚gorie:      ');readln(ca);
 
if  nj<5 then
pu:=500*nj
else if nj<=15 then
pu:=350*nj
else pu:=250*nj;
if ca=f and nj<15 then
ru:=pu*0.02
else if ca=h and nj<15 then
ru:=pu*0.03
if ca=f and nj>15 then
ru:=pu*0.04
else if ca=h and nj>15 then
ru:=pu*0.05;
nap:=pu-ru
write('le prix unitaire est:'pu:4:2);
readln;
 
 
 
end.

Je ne suis pas de genre qu’il demande d’aide son faire le moindre effort
Je sais bien ça
Je fatigue mon cerveau d’abord si je n’ai pas un issu à mon problème donc
Dés c’est Là vient le soutien

Bonjour
Ce que je voulais dire c'est de nous présenter en meme temps que l'exercice ta solution :)
Mais tu ne dis toujours pas le problème que tu rencontres ou tu veux juste qu'on te dise si c'est bon ou pas, ou qu'on te donne des conseils sur l'algo utilisé?
Il serait bien aussi d'indenter ton coder pour le rendre plus lisible ;)
Juste un petit point

Citation:

if ca=f and nj<15 then

f et h sont considérés comme variable qui n'existent pas il faut dire que c'est caractères en mettant entre quote ' et mettre une parenthèse autour de la condition du if ;)
Cordialement

Merci krachik de votre répense

Citation:

Envoyé par krachik

Mais tu ne dis toujours pas le problème que tu rencontres ou tu veux juste qu'on te dise si c'est bon ou pas, ou qu'on te donne des conseils sur l'algo utilisé?

voilà c'est ca

Citation:

Envoyé par krachik

Il serait bien aussi d'indenter ton coder pour le rendre plus lisible ;)
Juste un petit point

un coup de main fais l'affaire

Fei,

Et c'est toujours le même exercice, à peu de choses près. Tu ne devrais donc plus avoir le moindre problème pour l'écrire.

Bon
Quand on y jette un coup d'oeil on voit que l'algo est a revoir
Pour l'indentation
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 uses crt; var n:string; nj,du:integer; ca,f,m:char; ru,pu,nap:real; begin clrscr; write('donner le nom de r‚sidant:'); readln(n); write('donner le nombre de jour: '); readln(nj); write('donner la cat‚gorie: '); readln(ca); if nj<5 then pu:=500*nj else if nj<=15 then pu:=350*nj else pu:=250*nj; if ca=f and nj<15 then ru:=pu*0.02 else if ca=h and nj<15 then ru:=pu*0.03 if ca=f and nj>15 then ru:=pu*0.04 else if ca=h and nj>15 then ru:=pu*0.05; nap:=pu-ru write('le prix unitaire est:'pu:4:2); readln; end.
En gros la partie if +else if+ else n'a pas trop de sens .
Par exemple faire ça:
Code:

1 2 3 4 5 if nj<5 then pu:=500*nj else if nj<=15 then pu:=350*nj
N'a pas de sens puisque si nj est inférieur ou egal à 15 les deux if sont concerné :) il faudra dire aussi qu'il soit supérieur a 5.
Quand tu lis l'énoncé:

Citation:

- 500 dhs si le nombre de jours<5
- 350 dhs si 5<= nembre de jours<15
- 250 dhs si nombre du jours >=15

ça te fait penser tout de suite à
Code:

1 2 3 4 5 6 7 8 9 10 Si nbjour<5 Alors .... FinSi Sinon Si nbjour=>5 ET nbjour<=15 .... FinSi Sinon (Si nbjour>=15) .... FinSinon
Après quand tu vois

Citation:

Une réduction est accordé au client selon le tableau suivant :
Durée homme femme
<15 jours 3% 2%
>=15 jours 5% 4%

Tu vois qu'il y a des conditions a rajouter
Je prend juste le dernier cas pour t'aider >=15 jours 5% 4%
ça veut dire qu'on est dans le cas
Code:

1 2 3 4 Sinon (Si nbjour>=15) .... FinSinon
Alors il faudra rajouter
Code:

1 2 3 4 5 6 7 8 9 10 Sinon (Si nbjour>=15) ......(pu=nbjour*250; Si categorie=homme Alors ....(ru=pu*0.05;) FinSi Sinon(Si categorie=femme) Alors ....(ru=pu*0.04) FinSinon FinSinon
Apres quand tu auras fini de jouer avec ça tu veras que ça peut être interessant de jouer avec les enregistrements :mouarf:

Cordialement

Voilà et merci beaucoup krachik j’ai terminer

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
uses crt;
var  n:string;
     pt,r,np:real;
     d:byte;
     c:char;
begin
clrscr;
 
write('donner le nom:              ');readln(n);
write('donner  la categorie:       ');readln(c);
write('donner la dure:             ');readln(d);
     if d<5       then
        pt:=d*500
else if d<15      then
        pt:=d*350
else    pt:=d*250;
     if c='h'     then
     if d<15      then
        r:=3*pt/100
else
     r:=5*pt/100
else
     if d<15 then
     r:=2*pt/100
else
     r:=4*pt/100;;
     np:=pt-r;
writeln('net apayer en DHs:        ',np:4:2);
readln;
end.

Geo,
Citation:
Envoyé par krachik
En gros la partie if +else if+ else n'a pas trop de sens .
Par exemple faire ça:
Code:

1 2 3 4 5 if nj<5 then pu:=500*nj else if nj<=15 then pu:=350*nj
N'a pas de sens puisque si nj est inférieur ou egal à 15 les deux if sont concerné il faudra dire aussi qu'il soit supérieur a 5.
Correspond très bien à l'énoncé:
Code:

1 2 3 4 5 6 7 8 if nj<5 then pu:=500*nj else { désormais, on est dans le cas où nj >= 5, c'est bien ce qu'il faut } if nj<=15 then { donc ici, 5 <= nj <= 15 } pu:=350*nj
:)

:oops: en effet
Pas fais attention au else ;)
Avec une bonne indentation on s'y retrouve plus vite

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
 
uses crt;
var  n:string;
     pt,r,np:real;
     d:byte;
     c:char;
begin
clrscr;
 
write('donner le nom:              ');readln(n);
write('donner  la categorie:       ');readln(c);
write('donner la dure:             ');readln(d);
     if d<5       then
        pt:=d*500
     else
       if d<15      then
        pt:=d*350
     else
        pt:=d*250;
 
      writeln(pt:5:2);
     if c='h'     then
       if d<15      then
         r:=3*pt/100
       else
         r:=5*pt/100
     else
         if d<15 then
           r:=2*pt/100
         else
          r:=4*pt/100;;
     np:=pt-r;
writeln('net apayer en DHs:        ',np:4:2);
readln;
end.

Ceo,

Citation:

Envoyé par krachik

Avec une bonne indentation on s'y retrouve plus vite

Mes petits leitmotiv sur la présentation ne sont pas une simple manie personnelle. :)