Exercices sur turbo pascal

Résolu/Fermé

rhymesflex - 20 avril 2010 à 16:28
didierassi Messages postés 12 Date d'inscription mardi 22 juillet 2014 Statut Membre Dernière intervention 25 juillet 2014 - 25 juil. 2014 à 12:09

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

A voir également:

Exercices sur turbo pascal
Turbo pascal download - Télécharger - Édition & Programmation
My pascal - Télécharger - Édition & Programmation
Turbo sim - Forum iPhone
Dev-pascal - Télécharger - Édition & Programmation
Turbosim - Forum Mobile

2 réponses

Réponse 1 / 2

awax_tunisien
20 avril 2010 à 19:23

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 ;)

Réponse 2 / 2

didierassi Messages postés 12 Date d'inscription mardi 22 juillet 2014 Statut Membre Dernière intervention 25 juillet 2014
25 juil. 2014 à 12:09

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.

Discussions similaires

turbi sim ou débloquage officielle ?

les avantages et inconvenient des modeles

Cours et exercices word avec corrigés

iPhone (débloquer) et Turbo SIM

Quelqu'un a le corrigé du livre transmath 3eme ?

Discussions similaires

Newsletters