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: Nombre le plus grand que l'on peut former !!
 
 
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 -> Algorithmes de tri
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: Mer 26 Nov - 13:04 (2008)    Sujet du message: Exercice: Nombre le plus grand que l'on peut former !! Répondre en citant

PublicitéSupprimer les publicités ?
Enoncé 


Ecrire un programme modulaire qui permet de :
*  Saisir un entier positif N.
*   Chercher et afficher le plus grand nombre G que l’on peut former par les mêmes chiffres de N.



 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

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

Posté le: Mer 26 Nov - 13:05 (2008)    Sujet du message: Exercice: Nombre le plus grand que l'on peut former !! Répondre en citant

voila une solution
***************


program  solution;
uses wincrt;
 var
 N,G:integer;
 
{ ============ CORPS  DE  LA PROCEDURE  SAISIE ============== }
 procedure saisie (Var N:integer);
 begin
  repeat
  writeln ('Donner un nombre positif');
  readln(N);
  until N>=0;
 End;
 
{ ============ CORPS  DE  LA FONCTION GRAND ============== }
 
 function grand (N:integer):integer;
 var
  G,i,j,e:integer;
 ch:string;
 temp:char;
 
 begin
 str (N,ch);
 for i:= 2  to  length (ch) do
   if  ch < ch  then
     begin
       Temp := ch;
       j:=i-1;
       while (j>=1) AND (ch[j] < temp) do
         begin
          ch[j+1]:= ch[j];
          j:=j-1;
         End;
        ch[j+1] := temp;
     End;
 val(ch,G,e);
 grand:=G;
 End;
{ ============ CORPS  DE  PROGRAMME  PRINCIPAL ============== }
 begin
 saisie (N);
 G:=grand(N);
 writeln('Le plus grand nombre possible est : ',G);
 End.


Dernière édition par KARIMOS le Ven 13 Nov - 09:19 (2009); édité 1 fois
 
Revenir en haut
fattouma


Hors ligne

Inscrit le: 18 Oct 2009
Messages: 3
Point(s): 10
Moyenne de points: 0

Posté le: Lun 9 Nov - 23:30 (2009)    Sujet du message: Exercice: Nombre le plus grand que l'on peut former !! Répondre en citant

merci
c'est interessant


 
Revenir en haut
ayari.zohra


Hors ligne

Inscrit le: 09 Déc 2009
Messages: 4
Féminin
Point(s): 4
Moyenne de points: 0

Posté le: Ven 5 Fév - 16:53 (2010)    Sujet du message: Exercice: Nombre le plus grand que l'on peut former !! Répondre en citant

Salem,
cette solution ne marche pas.


 
Revenir en haut
aloulou


Hors ligne

Inscrit le: 17 Mar 2010
Messages: 8
Masculin
Point(s): 8
Moyenne de points: 0

Posté le: Dim 2 Mai - 16:21 (2010)    Sujet du message: Exercice: Nombre le plus grand que l'on peut former !! Répondre en citant

wé ca marche pas , 
for i:= 2  to  length (ch) do 
   if  ch < ch  then 
     begin 
       Temp := ch; )
---- > cé pas logique 


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 13:09 (2016)    Sujet du message: Exercice: Nombre le plus grand que l'on peut former !!

 
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 -> Algorithmes de tri 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