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 d'occurences
 
 
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 -> Récursivité
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:18 (2008)    Sujet du message: Exercice: Nombre d'occurences Répondre en citant

PublicitéSupprimer les publicités ?
Ecrire un programme modulaire qui permet de :
-  Saisir un entier N ( 1 ≤  N  ≤ 100) et remplir un tableau T par N caractères.
-  Saisir un caractère C.
-  Calculer et afficher le nombre d’occurrences de C dans le tableau T.
Vous devez utilisez un module récursif.
  Traduire le programe emn PASCAL.



 
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:19 (2008)    Sujet du message: Exercice: Nombre d'occurences Répondre en citant

program occu;
use wincrt;
type
tab=array[1..100] of char;
var
i,n:integer
t:tab;
c:char;
 
procedure saisie (var n:integer);
  begin
writeln('donner n');read(n);
 if (n<1) or (n<100) then
    saisie(n);
end;
 
procedure remplir(var t:tab; n:integer; var i:integer);
   begin
   writeln('t[',i,']=');readln(t);
   if (not(upcase (t in ['A'..'Z']))) then
       remplir(t,n,i+1);
end;
 


function occurence(t:tab,n,i:integer):integer;
     begin
 if (t<>c ) or (i>=n) then
     occurence:=0
 else
occurence:=s+1+occurence(t,n,i+1);
   end;


{program principal}
 begin
saisie(n);
i:=1;
remplir(t,n,i);
writeln('donner un caractère de ''A'' à  ''Z'');readln(c);
s:=0;
i:=0;
writeln('le nbr d''ocurence de',c,'est', occurence(t,n,i);
end.


telecharger la correction format pdf ici


Dernière édition par KARIMOS le Dim 20 Déc - 11:09 (2009); édité 1 fois
 
Revenir en haut
djo


Hors ligne

Inscrit le: 02 Déc 2008
Messages: 4
Point(s): 51
Moyenne de points: 0

Posté le: Jeu 4 Déc - 17:53 (2008)    Sujet du message: Exercice: Nombre d'occurences Répondre en citant

LOL if fout qui un prof fiat exercice est correcte ....
if fout teste aprés mettes sur le foroum ???


 
Revenir en haut
Chamam Labib


Hors ligne

Inscrit le: 10 Fév 2009
Messages: 4
Masculin
Point(s): 51
Moyenne de points: 0

Posté le: Ven 13 Fév - 02:37 (2009)    Sujet du message: Exercice: Nombre d'occurences Répondre en citant

{  juste petite rectification  mais je ne l'ai pas vérifié Smile}
program occu;
use wincrt;
type   tab=array[1..100] of char;
var
i,n:integer;
t:tab;
c:char;
 
procedure saisie (var n:integer);
  begin
writeln('donner n');read(n);
 if (n<1) or (n>100) then
    saisie(n);
end;
 
procedure remplir(var t:tab; n:integer; var i:integer);
   begin
{je suppose que i >=1 sinon on ajoute autre traitement  telque re-saisir de nouveau}
    if ( i <= n) then 
   begin
       writeln('t[',i,']=');readln(t[i]);
        if (not(upcase (t[i]) in ['A'..'Z'])) then
                             remplir(t,n,i);
        remplir ( t,n , i+1);
    end;
end;
 
function occurence(c : char ; t:tab ; n,i:integer):integer;
     begin
{de même je suppose que i >=1 }
 if  (i>n) then
            occurence:=0
 else if (t[i] = c ) then
        occurence:=1+occurence(c,  t, n , i+1);
 else   occurence := occurence (c,  t, n ,i+1);
  end;


{program principal}
 begin
saisie(n);
remplir(t,n,1);
repeat
writeln('donner un caractère de ''A'' à  ''Z'');readln(c);
until c in ['A'..'Z'];
 writeln('le nbr d''ocurence de',c,'est', occurence(c,t,n,1);
end.

Bon Travail Smile


 
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: Dim 20 Déc - 11:07 (2009)    Sujet du message: Exercice: Nombre d'occurences Répondre en citant

excellent

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 23:14 (2016)    Sujet du message: Exercice: Nombre d'occurences

 
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 -> Récursivité 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