Recherche lettre dans mot
PiR/D
Messages postés
213
Date d'inscription
Statut
Membre
Dernière intervention
-
PiR/D Messages postés 213 Date d'inscription Statut Membre Dernière intervention -
PiR/D Messages postés 213 Date d'inscription Statut Membre Dernière intervention -
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-
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-
A voir également:
- Recherche lettre dans mot
- Clavier iphone chiffre et lettre - Guide
- Trousseau mot de passe iphone - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Mot de passe - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
1 réponse
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