hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, 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 ...
exercice+correction
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mar 1 Déc - 17:53 (2009)    Sujet du message: exercice+correction Répondre en citant

PublicitéSupprimer les publicités ?
Exercice 3 :
On se propose de saisir un entier N de trois chiffres non nuls, de determiner et d'afficher tous les nombres qui peuvent être formés par les chiffres de N, ainsi que le plus petit et le plus grang de ces nombres.

Exemple :
Pour N=427:
  • Les nombres formés par les chiffres de N sont : 427, 472, 742, 724, 274, 247
  • Le plus petit nombre est 247
  • Le plus grand nombre est 742
Questions
1. Saisir n
2. Décomposer n en unité (U), en dizaines (D) et en centaines (C).
3. Utiliser le tri à bulles pour trouver la valeur du minimum et du maximum
4. Faire des permutations successives pour trouver toutes les combinaisons de ces chiffres.

Solution :
program ex3;
uses wincrt;
var n,v,max,min:integer;
    c, d, u : integer;
    i:integer;
begin
  repeat
    write('N= ');
    readln(n);
    c := n div 100;
    d := (n div 10) mod 10;
    u := n mod 10;
  until (c in [1..9]) and (d in [1..9]) and (u in[1..9]);
 
  (* Calculer en uitilsant le tri à bulles *)
  if (d < c) then begin v := d; d := c; c := v; end;
  if (u < d) then begin v := u; u := d; d := v; end;
  if (d < c) then begin v := d; d := c; c := v; end;
 
  min := c * 100 + d * 10 + u;
  max := u * 100 + d * 10 + c;
  writeln(' Le plus petit nombre est ',min);
  writeln(' Le plus grand nombre est ',max);
 
  Writeln(' Les nombres formes par les chiffres de N sont');
  for i := 0 to 5 do  begin
    v := c * 100 + d * 10 + u;
    Writeln(v);
    if (i mod 2 = 1) then begin
      v := d;
      d := c;
      c := v;
    end else begin
      v := u;
      u := d;
      d := v;
    end
  end; 
  Readln;
end.

Telecharger L'exercice ici


Dernière édition par KARIMOS le Dim 3 Jan - 14:02 (2010); édité 1 fois
 
Revenir en haut
Aymen092


Hors ligne

Inscrit le: 30 Déc 2009
Messages: 6
Masculin
Point(s): 6
Moyenne de points: 0

Posté le: Sam 2 Jan - 04:16 (2010)    Sujet du message: exercice+correction Répondre en citant

Merci !!

 
Revenir en haut
TuniLame
recent membre
recent membre

Hors ligne

Inscrit le: 28 Nov 2009
Messages: 13
Point(s): 14
Moyenne de points: 0

Posté le: Dim 3 Jan - 12:17 (2010)    Sujet du message: exercice+correction Répondre en citant

Merci, Okay
Mais il vaudrais mieux les mettre dans un fichier pdf, d'aprés moi bien sur... Very Happy


 
Revenir en haut
mounir


Hors ligne

Inscrit le: 15 Jan 2009
Messages: 10
Masculin
Point(s): 17
Moyenne de points: 0

Posté le: Lun 4 Jan - 15:15 (2010)    Sujet du message: exercice+correction Répondre en citant

Okay  merci.
_________________
Bonjour


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 23:21 (2016)    Sujet du message: exercice+correction

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation