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 29 30 31 32 33 34 35 36 37 38 39 40
| program tache_achat_vente;
const Produit_A=10;
Produit_B=5;
Produit_C=4;
Produit_D=3;
var w, x, y, z : integer;
Prix_w, Prix_x, Prix_y, Prix_z : integer;
sum, donne, rendu : integer;
begin
writeln('Combien de produits A le client achete-t-il ?');
readln(w);
writeln('Combien de produits B le client achete-t-il ?');
readln(x);
writeln('Combien de produits C le client achete-t-il ?');
readln(y);
writeln('Combien de produits D le client achete-t-il ?');
readln(z);
begin
Prix_w:=w*Produit_A;
writeln('Le prix pour le produit A est de ',Prix_w,' euros.');
Prix_x:=x*Produit_B;
writeln('Le prix pour le produit B est de ',Prix_x,' euros.');
Prix_y:=y*Produit_C;
writeln('Le prix pour le produit C est de ',Prix_y,' euros.');
Prix_z:=z*Produit_D;
writeln('Le prix pour le produit D est de ',Prix_z,' euros.');
sum:=Prix_w+Prix_x+Prix_y+Prix_z;
writeln('Le prix total pour les courses est de ',sum,' euros.');
end;
begin
writeln('Combien vous donne le client ?');
readln(donne);
rendu:=donne-sum;
writeln('Donc si le client vous a donne ',donne,' euros, vous devez lui rendre ',rendu,' euros.');
end;
readln;
end. |
Partager