Sciences de l'informatique

Bienvenue dans notre forum de partage et d'échange d'information technique dans le domaine NTIC (Informatique, Programmation, Réseau, Multimédia), ce forum est destinée à tous les élèves Tunisiens
 
AccueilCalendrierFAQMembresGroupesS'enregistrerConnexion
Sujets similaires
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Derniers sujets
Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 6 le Ven 13 Jan - 2:22

Partagez | 
 

 Exercice 7 (Récursivité)

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Dhifallah Fethi
Admin
avatar

Messages : 74
Date d'inscription : 02/03/2011

MessageSujet: Exercice 7 (Récursivité)   Ven 18 Mar - 4:59

Exercice 7

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.

Réponse

Code:
program occu;
uses wincrt;
type
tab=array[1..100] of char;
var
s,i,n:integer;
t:tab;
c:char;

procedure saisie (var n:integer);
  begin
writeln('donner n');
readln(n);
 if (n<1) or (n>100) then
    saisie(n);
end;

procedure remplir(var t:tab; n:integer; var i:integer);
var j:integer;
  begin
      write('t[',i,']=');readln(t[i]);
  if ((upcase(t[i]) in ['A'..'Z'])and (i<n))then
      begin
      j:=i+1;
      remplir(t,n,j);
end;
end;



function occurence(c : char ; t:tab ; n,i:integer):integer;
    begin
 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;



 begin
saisie(n);
i:=1;
remplir(t,n,i);
repeat
writeln('donner un caractère de ''A'' à  ''Z''');readln(c);
until upcase(c) in ['A'..'Z'];
i:=1;
 writeln('le nbr d''ocurence de ',c,' est:', occurence(c,t,n,i));
end.
Revenir en haut Aller en bas
http://ntic.moontada.net
 
Exercice 7 (Récursivité)
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» les exercice de chimie 2

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Sciences de l'informatique :: 4ème SI :: Programmation :: Exercices & Devoirs-
Sauter vers: