Calculer le net à payer par rapport au nombre de copies

Version imprimable

20/11/2008, 22h52
agan2012

Calculer le net à payer par rapport au nombre de copies

Citation:

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.
20/11/2008, 23h14
diden138

Re

Bonsoir,

Citation:

Envoyé par 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'abore environ 30min.

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

Code:

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.

21/11/2008, 00h46
Alcatîz

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

Citation:

Envoyé par agan2012

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

:roll: 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 :
:fleche: http://pascal.developpez.com/faq/?pa...de-compilation

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

Code:

if ndc<1500 then
21/11/2008, 00h59
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 :)).

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

Code:

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.

Meo,

Avec une petite présentation un peu plus claire, et quelques commentaires et sauts de lignes pour aérer:
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 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:

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

sont plus claires à lire avec des parenthèses

Code:

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

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