Solution de mon exo

Bonjour,

AssassinTourist et zipe31 c'est juste vous dire que je n'avais pa compris les principe du CCM sinon j'aurai faire quelques choses pour vous montrer ....

voila donc comment j'ai eu a corriger:
specification:
Resultat: ecrire("la longueur du sous chaine est:"CH3; "et la position est:"CH4)
Traitement : la recherche de longueur et de la position de sous chaine nous fait appel aux: fonction length et fonction pos
fonction nombre(i , ch , chs): entier
n<-- 0
pour i de 1 a lenght (ch) faire
si chs elt ch alors n<--n+1
fin si
fin pour
fonction position(chs, ch):entier
p<-- 0
pour i de 1 a lenght (ch) faire
si n<=1 alors p<--pos(chs,ch)
sinon p<-- p et pos(chs,ch)
fin si
fin pour
fin position
algo:
0 debut:
Ecrire ("donner une chaine de caractere")
Lire(ch)
CH3<--pos(chs,ch)
CH4<--lengh(chs,ch)
ecrire("la longeur du sous chaine est:",CH3,"et"la position est:"CH4")
fin