Exo algorithme pour correction s'il vous plai

Variables
i, j , ok , Convert_num , l1 , l2 : entiers   l'entier ok sert de signal : ok=0 pas bon, ok=1 c'est bon
a , b , chaine, ChaineNum : chaine de caractère  a et b sont des chaines parce que tu utilises sschaine()

DEBUT
ChaineNum<-- "0123456789"  ChaineNum contient tout les caractères valides.
l1<--LONGUEUR(ChaineNum)
Afficher("Saisir une chaine ")
Saisir(chaine)
l2<--LONGUEUR(chaine)
i=0
Repeter
   i=i+1
   a<--sschaine(chaine,i,1)
   j=0
   faire
      j=j+1
      b<--sschaine(chaineNum,j,1)
      si a=b alors ok<--1
      sinon si ((a="+" ou a="-") et i=1) alors ok<--1
      sinon ok<--0
      fin si
   Jusqua_Ce_Que ok=1 ou j=l1  si ok=1 le caractère est valide , on sort de la boucle , on verifie le suivant
Jusqua_Ce_Que ok=0 ou i=l2     si ok=0 caractère invalide, chaine invalide, on sort de la boucle
si ok=0 alors
    afficher(a," n'est pas un chiffre")
sinon
    Convert_num<--CVNOMBRE(chaine)
    afficher("chaine valide")
    afficher(Convert_num)
finsi
FIN

....
i=0 ;index de position dans chaine, initialisé à 0
Repeter
   i=i+1 ;a chaque tour on avance de 1, i varie de 1 à L2 (longueur de chaine)
   a<--sschaine(chaine,i,1) ; a prend la valeur du caractère pointé par i
                                      sschaine(chaine,i,1) veut dire que a prend la valeur de chaine à partir de la position i
                                      sur une longueur de 1 caractère
   j=0 ;index de position dans chaineNum, initialisé à 0
   Repeter
      j=j+1 ;a chaque tour on avance de 1, j varie de 1 à L1 (longueur de chaineNum)
      b<--sschaine(chaineNum,j,1) ;b prend la valeur du caractère pointé par j

ici commence la comparaison
pour i=1 a="4"
pour j=1 b="0"
si a=b ;Faux on regarde deuxième condition
sinon si ((a="+" ou a="-") et i=1) ;Faux donc condition par défaut
sinon ok<--0 ;les deux premières conditions sont fausses, on applique ce cas.

Jusqua_Ce_Que ok=1 ou j=L1 ; ok=0 et j=1, la codition de sortie de boucle est fausse
                             donc on refait un tour

j=j+1 ; j=2
a toujours egale 4 (a="4")
b="1"
on compare a et b ; c'est pareil que ci-dessus, on refait un tour

j=j+1 jusqu'a j=5
a toujours egale 4 (a="4")
b="4"
si a=b ; Vrai alors ok<- 1; condition satisfaite, on va à fin si

Jusqua_Ce_Que ok=1 ou j=L1 ; ok=1 et j=5, la condition de sotie de boucle est vraie, on sort de la boucle
Jusqua_Ce_Que ok=0 ou i=L2 ; ok=1 et i=1, a condition de sotie de boucle est fausse donc on refait un tour
i=i+1
a="5"
j=0 ;on remet à 0 le pointeur de caractère de chaineNum et on recommence 
Repeter
   j=j+1 ;   j=1 -> b="0" -> comparer a?=b etc...

Maintenant pour i=5 -> a="+"    j=1 -> b="0"
a ?= b faux
((a ?= "+" ou a ?= "-") et i ?= 1)) faux puisque i>1
alors ok<-0 ;  on refait un tour j=j+1 etc..
mais les conditions 1 et 2 seront toujours fausses car "+" et "-" ne sont pas dans chaineNum et i>1,
ok sera toujours à 0 pour i=5
alors quand arrive j=10 (L1)
Jusqua_Ce_Que ok=1 ou j=L1 est Vrai (l1=10) ; sortie de boucle
Jusqua_Ce_Que ok=0 ou i=L2 est Vrai (ok=0) ; sortie de boucle

on est sorti des deux boucles, on enchaine le programme
si ok=0 alors
    afficher(a," n'est pas un chiffre"); VRAI puisque ok=0
sinon
    Convert_num<--CVNOMBRE(chaine)
    afficher("chaine valide")
    afficher(Convert_num)
finsi
FIN