Discussion :

[flemmaster]

bonjour a vous ,j'ai un programme a faire en pseudo code mais je galère un peu , l'énoncé est le suivant :

" Lire la suite des prix (en euros entiers et terminée par zéro) des achats d’un
client. Calculer la somme qu’il doit, lire la somme qu’il paye, et simuler la remise de la
monnaie en affichant les textes "10 Euros", "5 Euros" et "1 Euro" autant de fois qu’il y a de
coupures de chaque sorte à rendre."

J'ai une trame principale avec deux boucles tantque et certaines affectations de variables , je voulais savoir si vous pouviez me donner des idées pour completer mon programme car je galère pour le mettre sur papier , merci de votre attention

[droggo]

Hoi,

On peut t'aider, t'orienter, mais probablement pas "compléter" quelque chose qui pour l'instant, est totalement "vide" (ou alors il faut que je change de lunettes ?).

[darrylsite]

Voilà un petit programme qui fait ce que tu veut.Mais il n' est pas complet. Il reste quelques trucs à ajouter. Je crois que pourras le faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
program client;
 
function facture:integer;
{achat des produit}
 var paie,s :integer;
 begin
 s:=0;
 writeln('Veuillez effectuer vos achats :');
 repeat
  write('Entrez le prix du produit voulu: ');readln(paie);  
  s:=s+paie;
 until paie=0;
 facture:=s;
end;
 
function relicat:integer;{difference entre somme payée et somme due}
{lecture de la somme payée}
 var paie,s:integer;
 begin
 s:=facture;
 writeln('Vous avez effectuez une depense egale à: ',s);
 repeat
 write('Veuillez payer lan facture: '); readln(paie);
 if (paie<s) then
  writeln('cette somme est inferieur aux depenses');
 until paie>=s;
 relicat:=paie-s;
end;
 
procedure simulremise(a: integer);
{simule la remise de la monaie}
 const monaie:array[1..8]of integer=(1,5,10,20,50,100,200,500);
     {les differentes coupures et aussi les centimes}
     {tu auras à completer la suite}
 var i,q,r:integer;
begin
if a<>0 then
 begin
 writeln('Remise de monnaie :');
 for i:=8 downto 1 do
  begin
  q:=a div monaie[i];
  a:=a mod monaie[i];
  {tu verras pour les accords}
  if q<> 0 then
    writeln(q,' coupure de ',monaie[i],' euro');
  end;
  end;
  writeln;
  writeln('Merci pour votre visite dans notre magasin');
 end;
 
{corps du programme}
BEGIN
simulremise(relicat);
readln;
end.

[flemmaster]

ok je pense que je pourrais completer , merci beaucoup

[M.Dlb]

Donner un code tout fait, c'est bien et généreux, mais c'est pas forcément utile, et c'est dutravail mâché. Surtout pour quelqu'un qui se surnomme flemmaster

[flemmaster]

ne t'en fait pas ( je n'avais demandé qu'une aide , mais je ne vais pas me plaindre ) , ce code sera étudié de près afin que je ressorte la technique pour l'utiliser moi même la prochaine fois

Ps : et qu'est ce que t'a contre mon pseudo ?? on est tous un peu flemmards quelque par ....

[M.Dlb]

Ps : et qu'est ce que t'a contre mon pseudo ?? on est tous un peu flemmards quelque par ....

Non pas tout le monde, et même si on l'est ce n'est pas une raison pour le revandiquer publiquement (c'est un conseil pour la suite).