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 ...
extraire un mot
 
 
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
KARIMOS
Administrateur

Hors ligne

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

Posté le: Mar 1 Déc - 18:07 (2009)    Sujet du message: extraire un mot Répondre en citant

PublicitéSupprimer les publicités ?
bonjour, le sujet:
ecrire un algorithme qui permet de compter les occurences du premier mot d'une chaine de caractères.



correction

Function occ_mot (ch : String; var Mot : String) : Integer;
Var l, cpt, Debut : Integer;
m : String;
Begin
l :=1 ;
cpt := 0;
while l <= Length(ch) do
begin
sep:=[' ',';',',','.'];
while (ch[l] in sep) do
begin
l := l + 1;
end;
if ch[l]= mot[1]
then
begin
Debut := l;
while not (ch[l] in sep) do
l := l + 1;
m := Copy(ch,Debut,l - Debut);
if m = mot
then
cpt := cpt + 1;
end
else
l := l + 1;
end;
occ_mot := cpt;
end;



 


 
Revenir en haut
Wissale


Hors ligne

Inscrit le: 06 Jan 2010
Messages: 8
Point(s): 9
Moyenne de points: 0

Posté le: Mer 20 Jan - 17:09 (2010)    Sujet du message: extraire un mot Répondre en citant

bon choix

 
Revenir en haut
fattouna
recent membre
recent membre

Hors ligne

Inscrit le: 18 Oct 2009
Messages: 11
Point(s): 22
Moyenne de points: 0

Posté le: Lun 25 Jan - 17:33 (2010)    Sujet du message: extraire un mot Répondre en citant

tres bien Okay

 
Revenir en haut
yas


Hors ligne

Inscrit le: 02 Avr 2009
Messages: 2
Point(s): 9
Moyenne de points: 0

Posté le: Mar 26 Jan - 14:42 (2010)    Sujet du message: extraire un mot Répondre en citant

bien, mais tu peux trouver une autre solution meilleure 

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 17:27 (2016)    Sujet du message: extraire un mot

 
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