hg Register Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Search Search Memberlist Memberlist Usergroups Usergroups Profile Profile Log in to check your private messages Private Messages Log in Log in


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum révision tunisie , vous devez
 inscrire sur notre forum a partir d'ici
   NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
 
forum d'aide informatique : internet, réseau, programmation informatique ...
Programme de rendu de monnaie (langage C)
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Espace étudiants -> Projets & Mini-projets
hg Previous topic :: Next topic   hd
Author Message
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Wed 3 Nov - 13:47 (2010)    Post subject: Programme de rendu de monnaie (langage C) Reply with quote

 BRAVO  EXCELLENT TRAVAIL  Okay

 
Revenir en haut
Publicité






Posted: Wed 3 Nov - 13:47 (2010)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
manianis


Offline

Joined: 11 Aug 2010
Posts: 88
Masculin
Point(s): 94
Moyenne de points: 0

Posted: Fri 5 Nov - 16:20 (2010)    Post subject: Programme de rendu de monnaie (langage C) Reply with quote

Voici une autre version en Pascal :


 
Code:
program monnaie;
uses wincrt;

const
     b500 = 500;
     b200 = 200;
     b100 = 100;
     b20  = 20;
     b10  = 10;
     b5   = 5;
     b2   = 2;
     b1   = 1;

var
        somme, nb : integer;

begin
        repeat
                Write('Donner une somme d''argent (>0) : ');
                Readln(somme);
        until (somme > 0);

        nb := somme div b500;
        if (nb <> 0) then
        begin
                Writeln('il faut ', nb, ' billets de ', b500);
                somme := somme mod b500;
        end;

        nb := somme div b200;
        if (nb <> 0) then
        begin
                Writeln('il faut ', nb, ' billets de ', b200);
                somme := somme mod b200;
        end;

        nb := somme div b100;
        if (nb <> 0) then
        begin
                Writeln('il faut ', nb, ' billets de ', b100);
                somme := somme mod b100;
        end;

        nb := somme div b20;
        if (nb <> 0) then
        begin
                Writeln('il faut ', nb, ' billets de ', b20);
                somme := somme mod b20;
        end;

        nb := somme div b10;
        if (nb <> 0) then
        begin
                Writeln('il faut ', nb, ' billets de ', b10);
                somme := somme mod b10;
        end;

        nb := somme div b5;
        if (nb <> 0) then
        begin
                Writeln('il faut ', nb, ' billets de ', b5);
                somme := somme mod b5;
        end;

        nb := somme div b2;
        if (nb <> 0) then
        begin
                Writeln('il faut ', nb, ' billets de ', b2);
                somme := somme mod b2;
        end;

        nb := somme div b1;
        if (nb <> 0) then
        begin
                Writeln('il faut ', nb, ' billets de ', b1);
                somme := somme mod b1;
        end;
end. 


 
Revenir en haut
manianis


Offline

Joined: 11 Aug 2010
Posts: 88
Masculin
Point(s): 94
Moyenne de points: 0

Posted: Fri 5 Nov - 18:41 (2010)    Post subject: Programme de rendu de monnaie (langage C) Reply with quote

Il existe une solution plus compacte.


 
Code:
program monnaie;
uses wincrt;

const
     billets : array [1..8] of integer = (500, 200, 100, 20, 10, 5, 2, 1);

var
        somme, nb, i : integer;

begin
        repeat
                Write('Donner une somme d''argent (>0) : ');
                Readln(somme);
        until (somme > 0);

        for i:= 1 to 8 do
        begin
                nb := somme div billets[i];
                if (nb <> 0) then
                begin
                        Writeln('il faut ', nb, ' billets de ', billets[i]);
                        somme := somme mod billets[i];
                end;
        end;
end. 


 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Fri 5 Nov - 19:42 (2010)    Post subject: Programme de rendu de monnaie (langage C) Reply with quote

Okay Okay Okay Okay Okay Okay Okay Okay Okay

 
Revenir en haut
elayoubi


Offline

Joined: 21 Nov 2009
Posts: 3
Point(s): 3
Moyenne de points: 0

Posted: Sun 17 Apr - 21:38 (2011)    Post subject: Programme de rendu de monnaie (langage C) Reply with quote

Tres bon travaille, est il possible de le fair avec VB?

 
Revenir en haut
Contenu Sponsorisé






Posted: Today at 17:29 (2019)    Post subject: Programme de rendu de monnaie (langage C)

 
Revenir en haut
Display posts from previous:   
bg bd
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Espace étudiants -> Projets & Mini-projets All times are GMT + 1 Hour
 
Page 1 of 1

 
Jump to:  
Index | Make forum | Free support forum | Free forums directory | Report a violation | Conditions générales d'utilisation