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 récurrent suite de ROBINSON
 
 
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 récurrents
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
ammar2010
recent membre
recent membre

Hors ligne

Inscrit le: 11 Jan 2010
Messages: 23
Point(s): 24
Moyenne de points: 0

Posté le: Mer 27 Jan - 13:56 (2010)    Sujet du message: Exercice récurrent suite de ROBINSON Répondre en citant

PublicitéSupprimer les publicités ?
soit la suite u définie par :
U1 = 1 (choix arbitraire)
Un+1 = apparition de chaque chiffre distinct dans Un
exemple :
soit U1 = 1
U2 = 11 (1 apparait 1 fois dans U1)
U3 = 21 (1 apparait 2 fois dans U2)
U4 = 1211
U5 = 3112
U6 = 132112
...
ecrire un programme permettant d'afficher le N ième terme de la suite U ; sachant que U1 et N sont donnés.


 
Revenir en haut
semia


Hors ligne

Inscrit le: 17 Fév 2010
Messages: 5
Point(s): 5
Moyenne de points: 0

Posté le: Mer 17 Fév - 17:41 (2010)    Sujet du message: Exercice récurrent suite de ROBINSON Répondre en citant

svp  envouez moi la correction de cet  ex

 
Revenir en haut
Disdous


Hors ligne

Inscrit le: 22 Fév 2010
Messages: 52
Point(s): 52
Moyenne de points: 0

Posté le: Lun 22 Fév - 21:45 (2010)    Sujet du message: Exercice récurrent suite de ROBINSON Répondre en citant

facile a résoudre! mais tres difficile a comprendre! il faut mettre l'entier apres son nombre d'occurence.
J'ai la solution mais pas pour le moment. Je la posterai bientot Inchallah!


 
Revenir en haut
manianis


Hors ligne

Inscrit le: 11 Aoû 2010
Messages: 95
Masculin
Point(s): 102
Moyenne de points: 0

Posté le: Dim 7 Nov - 19:57 (2010)    Sujet du message: Exercice récurrent suite de ROBINSON Répondre en citant

 Une solution possible

Code:
program suite_n;

function occurence(chif : char ; nombre : string):integer;
var
   cpt, i : integer;
begin
     cpt := 0;
     for i:=1 to Length(nombre) do
       if (nombre[i] = chif) then cpt := cpt + 1;
     occurence := cpt;
end;

function chiffre_distinct(nombre : string):string;
var
   nombre2 : string;
   i, p    : integer;
begin
     nombre2 := '';
     for i:=1 to Length(nombre) do
     begin
        if (Pos(nombre[i], nombre2) = 0) then
                nombre2 := nombre2 + nombre[i];
     end;
     chiffre_distinct := nombre2;
end;

function occ_chiff_dis(nombre : string):string;
var
   ch_d, ch2, occ_s : string;
   i, occ : integer;
begin
     ch_d := chiffre_distinct(nombre);
     ch2 := '';
     for i:=1 to Length(ch_d) do
     begin
          occ := occurence(ch_d[i], nombre);
          Str(occ, occ_s);
          ch2 := ch2 + occ_s + ch_d[i];
     end;
     occ_chiff_dis := ch2;
end;

function un(start : string ; n : integer):string;
var i : integer;
begin
        if (n = 1) then un := start
        else
            begin
                 for i:=2 to n do
                 begin
                      start := occ_chiff_dis(start);
                 end;
            end;
        un := start;
end;


var
   n, nb, i : integer;
   ch_nb : string;
begin
     repeat
          Write('Donner un nombre (>0) : ');
          Readln(nb);
     until (nb > 0);
     Str(nb, ch_nb);

     repeat
          Write('Donner un nombre (>0) : ');
          Readln(n);
     until (n > 0);

     for i:=1 to n do
     begin
        Writeln('U',i,' = ',Un(ch_nb, i));
     end;
end. 


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 05:06 (2016)    Sujet du message: Exercice récurrent suite de ROBINSON

 
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 récurrents 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