Recherche lettre dans mot

Fermé
PiR/D Messages postés 213 Date d'inscription vendredi 28 mars 2014 Statut Membre Dernière intervention 26 mars 2016 - Modifié par PiR/D le 1/03/2015 à 14:48
PiR/D Messages postés 213 Date d'inscription vendredi 28 mars 2014 Statut Membre Dernière intervention 26 mars 2016 - 1 mars 2015 à 15:08
Bonjour,
Voici mon problème, j'ai un programme convertisseur de base et j'aimerais que quand je tapes un mot comme BONJOUR le prgm me dise qu'il est en base 29.
En gros qu'il cherche la lettre dans le mot qui est la plus loin dans l'alphabet (ici le u).
Comment faire ça ?
Merci d'avance

PS: le prgm de base est celui d'Openclassrooms (https://openclassrooms.com/fr/courses/960281-apprenez-a-programmer-en-ti-basic/955244-tp-convertisseur-de-bases )


-insérez une citation bidon trouvée sur internet-

1 réponse

PiR/D Messages postés 213 Date d'inscription vendredi 28 mars 2014 Statut Membre Dernière intervention 26 mars 2016 70
1 mars 2015 à 15:08
J'ai réussi à trouver une solution la voici:
:INPUT "NB A CONV: ", Chaine1
:"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"->Chaine2
:Lbl A
:0
:For(x,1,longueur(chaine1
:max(rep,carchaine(chaine2,sous-chaine(chaine1,x,1
:end
:disp "BASE SUGGEREE: "
:disp rep
:rep->C
:repeat rep
:codetouche
:end
:if rep/=105 //si rep diff de [enter] alors on rentre autre base
:input "BASE DE DEP: ",C
:input "BASE ARRIVEE: ",D
:if C>36 ou D>36 ou C<2 ou D<2 //test si bases valides
:then
:disp" "
:disp"ERREUR BASE(S)"
:pause
:goto A
:end
:longueur(chaine1)->A
:0
:for(x,0,A-1
:rep+c^xcarchaine(chaine2,sous-chaine(chaine1,A-x,1
:end
:rep->B
:"0"+chaine2->chaine2
:lbl R
:B->z
:" ->chaine1
:while Z
: artent(Z/D->Q
:sous-chaine(chaine2,Z-DQ+1,1)+chaine1->chaine1
:Q->Z
:end
:pause chaine1
:stop

0