Marc email Envoyé le : 22/11/2004 à 17:13

Bonjour
J'ai presque fini un programme d'algo concernant une caisse de supermarché mais j'ai un petit probleme conçernant la monnaie à rendre. Je dois calculer celle-ci selon la disponibilité de la caisse.

Au début du programme je demande à l'utilisateur de mettre la composition en caisse. Ensuite je demande quelle est la valeur de l'achat et combien donne le client (la composition)
J'ai utilisé ce-ci mais je crois pas que cela fonctionne :
Merci d'avance

Nb100; Nb50 étant le nombre de billet dispo en caisse
Rend100; Rend50 est le nombre de billets à rendre
Monnaie:=SommeDonnee-MontantAchat;

{BILLET DE 100 EURO}

while (Monnaie>=100) and (nb100>=1) do
begin
nb100:=nb100-1; {suppression d un billet de 100euro dans la disponibilités}
Monnaie:=Monnaie-100; {suppression de 100euro de la somme donnée}
rend100:=rend100+1; {incrémentation pour savoir le nombre de billet(s) de 100euro a rendre}
end;

{BILET DE 50 EURO}

while (Monnaie>=50) and (nb50>=1) do
begin
nb50:=nb50-1; {suppression d un billet de 50euro dans la disponibilités}
Monnaie:=Monnaie-50; {suppression de 50euro de la somme donnée}
rend50:=rend50+1; {incrémentation pour savoir le nombre de billet(s) de 50euro a rendre}
end;


.........jusqu'à 1 euro