Discussion :

[agan2012]

Un magasin de reprographie facture ses clients suivant les règle ses de sous
- 0,95 dhs/copie si le nombre de copie est < 500 ;
- 0,70 dhs/copie si 500<=Nombre copies<1500 ;
- 0 ,45 dhs/copie si 1500<=Nombre copies<3000 ;
- 0,25 dhs/copie si Nombre copies >=3000
Etablir un programme qui demande le nombre de copie et qui affiche le net à payer.
NB (500x0,95)+(1000x0,70)+(1500x0,45)+((nb-3000)x0,25)

Je reviens pour la correction
Je me casse la tête d'abord environ 30min.

[diden138]

Bonsoir,

Un magasin de reprographie facture ses clients suivant les règle ses de sous
- 0,95 dhs/copie si le nombre de copie est < 500 ;
- 0,70 dhs/copie si 500<=Nombre copies<1500 ;
- 0 ,45 dhs/copie si 1500<=Nombre copies<3000 ;
- 0,25 dhs/copie si Nombre copies >=3000
Etablir un programme qui demande le nombre de copie et qui affiche le net à payer.
NB (500x0,95)+(1000x0,70)+(1500x0,45)+((nb-3000)x0,25)
je reviens pour la correction
je me casse la tête d'abore environ 30min.

et...
Commence par nous montrer ce que t'a fais?
Cordialement,

[agan2012]

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
uses crt;
var ndc:integer;
    nap:real;
begin
    write('Le nombre de copie est: '); readln(ndc);
    if ndc<300 then
      nap:=ndc*0.96 
    else
      if ndc<1500 then
        nap:=500*0.95+1500-ndc*0.70 
      else
        if  ndc<1500 then
          nap:=500*0.95+1000-ndc*0.70+1500*0.45
    if ndc>=3000 then
      nap:=500*0.95+1000-ndc*0.70+1500*0.45+nb-3000*0.25
    write(Le net à payer en dhs:');readln(nap);
end.

Voilà mais il y a des erreurs.

[Alcatîz]

Bonjour, (c'est gratuit et ça fait toujours plaisir)

Je reviens pour la correction
Je me casse la tête d'abord environ 30min.
Voilà mais il y a des erreurs.

La coloration syntaxique du forum devrait t'indiquer tout de suite qu'il y a des erreurs de syntaxe... Ton compilateur t'aidera à corriger tes erreurs; utilise également la FAQ :
http://pascal.developpez.com/faq/?pa...de-compilation

Un truc qui saute au yeux : tu as mis deux fois le test

Code :

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

if ndc<1500 then

[droggo]

Hia,

Il manque entre autres des ; pour terminer les lignes.

Et petit leitmotiv : papier, crayon, exécuter le programme à la main, en suivant le code ligne à ligne (en suivant le code, pas ce que tu penses qu'il fait ).

[agan2012]

salut tout le monde
voila l'exercice et résolut

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
uses crt;
var ndc:integer;
    nap:real;
 
   begin
   clrscr;
    write('donner le nombre de copie: '); readln(ndc);
    if ndc<500 then
    nap:=0.95*ndc else
    if ndc<1500 then
    nap:=500*0.95+ndc-500*0.70 else
    if  ndc<3000 then
    nap:=500*0.95+1000*0.70+ndc-1500*0.45 else
    nap:=500*0.95+1000*0.70+1500*0.45+ndc-3000*0.25;
    write('Le net … payer en dhsest:',nap:5:2);
    readln;
    end.

[droggo]

Meo,

Avec une petite présentation un peu plus claire, et quelques commentaires et sauts de lignes pour aérer:

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
program hh;
 
uses crt;
 
var 
  ndc : Integer;
  nap : Real;
 
begin
  { lecture nombre copies }
  clrscr;
  Write('donner le nombre de copie: '); 
  Readln(ndc);
 
  { traitement }
  if ndc < 500 then
    nap := 0.95 * ndc 
  else if ndc < 1500 then
    nap := 500 * 0.95 + ndc - 500 * 0.70 
  else if ndc < 3000 then
    nap := 500 * 0.95 + 1000 * 0.70 + ndc - 1500 * 0.45 
  else
    nap := 500 * 0.95 + 1000 * 0.70 + 1500 * 0.45 + ndc - 3000 * 0.25;
  Write('Le net … payer en dhsest:', nap: 5: 2);
 
  { attendre fin }
  Readln;
end.

D'autre part, les lignes de calcul comme celle-ci

Code :

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

    nap := 500 * 0.95 + 1000 * 0.70 + 1500 * 0.45 + ndc - 3000 * 0.25;

sont plus claires à lire avec des parenthèses

Code :

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

    nap := (500 * 0.95) + (1000 * 0.70) + (1500 * 0.45) + ndc - (3000 * 0.25);

car la structure des opérations apparaît immédiatement.