Aide pour construire un pseudocode

Version imprimable

15/10/2007, 15h36
flemmaster

Aide pour construire un pseudocode

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 :D
15/10/2007, 16h38
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 ?). :)

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:

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.

15/10/2007, 17h31
flemmaster

ok je pense que je pourrais completer , merci beaucoup :P
15/10/2007, 17h58
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 :roll:
15/10/2007, 18h05
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 :D

Ps : et qu'est ce que t'a contre mon pseudo ?? :twisted: on est tous un peu flemmards quelque par ....
15/10/2007, 20h40
M.Dlb

Citation:

Envoyé par flemmaster

Ps : et qu'est ce que t'a contre mon pseudo ?? :twisted: 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).
16/10/2007, 01h15
krachik

:yaisse2::yaisse2:
t'es trop cool

Citation:

wormful_sickfoot

problème copié

Tu peux essayer ce programme :

Code:

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
program client;
uses wincrt;
var
   r:integer;
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 AFFICHE (r : integer) ;
Var 
     c ,n1,n2,n3:integer ;
begin
        N1 := R DIV 10;
        N2 := (R MOD 10) DIV 5;
        N3 := R MOD 5;
        For c := 1 to n1 do
              write ('10 Euros') ;
        For c := 1 to n2 do
              write ('5 Euros');
        For c := 1 to n3 do
              write ('1 Euro')
end;
 
begin
     r:=relicat;
     affiche(r);
end.

22/10/2007, 22h56
gammoudi

une anlyse

si tu cherche une anlyse, en voici une pour ton problème :
Voici une spécification du problème
Résultat : afficher n1 fois le texte "10 Euros", n2 fois le texte "5 Euros" et n3 fois le texte "1 Euro" (on utilise 3 boucles pours
Pour c de 1 à n1 faire
Ecrire ("10 Euros")
Finpour
…………. )
Traitement : n1 = ? n2 = ? n3 = ?
N1 et le nombre des pièces de 10 Euros dans la somme à rendre (SR)
N1 <-- SR DIV 10
N2 et le nombre des pièces de 5 Euros dans la somme à rendre (SR) après avoir enlever les pièces de 10 euros
N2 <-- (SR MOD 10) DIV 5
N3 et le nombre des pièces d’1 Euro dans la somme à rendre (SR) après avoir enlever les pièces de 10 euros et celle de 5Euros.
N3 <-- SR MOD 5
SR = ?
Sr est la difference entre la somme donnée (SD) et le prix total (PT)
SR <-- SD – PT
PT = ?
SD = ?
PT est la somme d’une suite de nombres entiers finissant par 0.
On utilise une boucle répétitive à condition d’arrêt
PT<--0
Repeter
Lire (p)
PT <-- PT + p
Jusqu’à p=0
SD = donnée à saisir au clavier(Lire (D)).
23/10/2007, 02h10
droggo

Meo,

Citation:

Envoyé par wormful_sickfoot

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

C'est vrai !

Mais je me demande si gammoudi a lu ça ?