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
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
A voir également:
- Recherche lettre dans mot
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Voir mot de passe wifi android - Guide
- Mot de passe administrateur - Guide
- Caractere speciaux lettre - Guide
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
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