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 ...
Exercice récurrent suite de ROBINSON
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> Algorithmes récurrents
hg Previous topic :: Next topic   hd
Author Message
ammar2010
recent membre
recent membre

Offline

Joined: 11 Jan 2010
Posts: 11
Point(s): 12
Moyenne de points: 0

Posted: Wed 27 Jan - 13:56 (2010)    Post subject: Exercice récurrent suite de ROBINSON Reply with quote

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
Publicité






Posted: Wed 27 Jan - 13:56 (2010)    Post subject: Publicité

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


Offline

Joined: 17 Feb 2010
Posts: 5
Point(s): 5
Moyenne de points: 0

Posted: Wed 17 Feb - 17:41 (2010)    Post subject: Exercice récurrent suite de ROBINSON Reply with quote

svp  envouez moi la correction de cet  ex

 
Revenir en haut
Disdous


Offline

Joined: 22 Feb 2010
Posts: 43
Point(s): 43
Moyenne de points: 0

Posted: Mon 22 Feb - 21:45 (2010)    Post subject: Exercice récurrent suite de ROBINSON Reply with quote

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


Offline

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

Posted: Sun 7 Nov - 19:57 (2010)    Post subject: Exercice récurrent suite de ROBINSON Reply with quote

 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
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 -> Algorithmique & programmation -> Algorithmes récurrents All times are GMT + 1 Hour
 
Page 1 of 1

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