Exercices sur turbo pascal
Résolu
rhymesflex
-
didierassi Messages postés 13 Statut Membre -
didierassi Messages postés 13 Statut Membre -
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
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
2 réponses
-
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 ;) -
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.
