exercices sur turbo pascal Résolu/Fermé

Question

bonjour tout le monde.enfin j'ai un problème concernant la résolution de mon problème en langage turbo pascal que voici:
traduire en langage pascal un programme qui saisit le prix unitaire d'un produit,la quantité commandée et qui affiche le prix à payer en détaillant le coût de transport et la remise sachant que:
    - le port est gratuit si le prix  des produits est supérieur à 500cfa.dans le cas contraire le port est de 2%
    - la remise est de 5% si le montant total est compris entre 75000 et 100000 et de 10% au delà.
en fait ma difficulté se situe sur les interprétations entre le prix à payer, le prix des produits, le montant total.
merci de m'aider à résoudre mon problème

awax_tunisien · Accepted Answer

program xxx;
uses wincrt;
var 
prix_total,p_port,remise,pu,qte,prix:real;

begin
 writeln('donner le prix unitaire');
 readln(pu);
 writeln('donner la quantité');
 readln(qte);
prix:=pu*qte;

if prix>500 {g pas compris 500cfa} then
 p_port:=0
else p_port:=(2/prix)*100;

if (prix>=75000) and (prix<=100000) then
remise:=(5/prix)*100
else if  prix>100000 then 
remise:=(10/prix)*100
else 
remise:=0;

prix_total:=prix+p_port-remise;

writeln('le prix total à payer est = ',prix_total);

end.



je l'ai  pad executer sur pascal , alors il existe peut etre des erreurs de syntaxe ;)

didierassi · Answer

bonjour voici mon mon code je pense bien que sa marche resolution program vente; (*Pp=prix unitaire du produit Qc=la quantite commmande Mt= le montant total avant remise PA=prix a payer *) var Pp,Qc,Mt,PA:real; begin repeat writeln('entrez le prix unitaire du produit svp'); readln(Pp); if Pp<=0 then writeln('erreur Entrez un nombre positif non nul'); writeln(); until Pp>0; repeat writeln('entrez la quantite commmande'); readln(Qc); if Qc<0 then writeln('erreur Entrez un nombre positif non nul'); writeln(); until Qc>0; (* calculons le montant total avant remise *) Mt:=Pp*Qc; begin if Pp > 500 then writeln('le port est gratuit') else writeln('le port est de 2%'); if (MT >= 7500) and (MT<=100000) then (*calculons le prix a payer avec remise *) PA:= Mt*(1-0.05) else if Mt>100000 then PA:= Mt*(1-0.1); end; writeln(); writeln('le montant total est :',Mt:4:4,' cfa'); writeln(); writeln('le prix a payer est :',PA:4:4,' CFA'); readln(); End.

Exercices sur turbo pascal

2 réponses

Discussions similaires